diff --git a/base/comm/psb_cgather.f90 b/base/comm/psb_cgather.f90 index 2f0999323..e94664310 100644 --- a/base/comm/psb_cgather.f90 +++ b/base/comm/psb_cgather.f90 @@ -52,12 +52,12 @@ subroutine psb_cgatherm(globx, locx, desc_a, info, iroot) complex(psb_spk_), intent(in) :: locx(:,:) complex(psb_spk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, iiroot, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, lock, globk, maxk, k, jlx, ilx, i, j, idx @@ -225,12 +225,12 @@ subroutine psb_cgatherv(globx, locx, desc_a, info, iroot) complex(psb_spk_), intent(in) :: locx(:) complex(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx @@ -336,12 +336,12 @@ subroutine psb_cgather_vect(globx, locx, desc_a, info, iroot) type(psb_c_vect_type), intent(inout) :: locx complex(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx complex(psb_spk_), allocatable :: llocx(:) diff --git a/base/comm/psb_chalo.f90 b/base/comm/psb_chalo.f90 index d6e9fe76a..e9c7d5da1 100644 --- a/base/comm/psb_chalo.f90 +++ b/base/comm/psb_chalo.f90 @@ -60,14 +60,14 @@ subroutine psb_chalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,& & err, liwork,data_ complex(psb_spk_),pointer :: iwork(:), xp(:,:) @@ -282,14 +282,14 @@ subroutine psb_chalov(x,desc_a,info,alpha,work,tran,mode,data) complex(psb_spk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & m, n, iix, jjx, ix, ijx, nrow, imode, err, liwork,data_ complex(psb_spk_),pointer :: iwork(:) character :: tran_ @@ -426,14 +426,14 @@ subroutine psb_chalo_vect(x,desc_a,info,alpha,work,tran,mode,data) type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, m, n, iix, jjx, ix, ijx, nrow, imode,& & err, liwork,data_ complex(psb_spk_),pointer :: iwork(:) diff --git a/base/comm/psb_covrl.f90 b/base/comm/psb_covrl.f90 index d6ac97391..afd1ae0d2 100644 --- a/base/comm/psb_covrl.f90 +++ b/base/comm/psb_covrl.f90 @@ -71,12 +71,12 @@ subroutine psb_covrlm(x,desc_a,info,jx,ik,work,update,mode) complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,& & mode_, err, liwork complex(psb_spk_),pointer :: iwork(:), xp(:,:) @@ -271,12 +271,12 @@ subroutine psb_covrlv(x,desc_a,info,work,update,mode) complex(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork complex(psb_spk_),pointer :: iwork(:) @@ -396,12 +396,12 @@ subroutine psb_covrl_vect(x,desc_a,info,work,update,mode) type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork complex(psb_spk_),pointer :: iwork(:) diff --git a/base/comm/psb_cscatter.F90 b/base/comm/psb_cscatter.F90 index d8307db04..4eba4f563 100644 --- a/base/comm/psb_cscatter.F90 +++ b/base/comm/psb_cscatter.F90 @@ -57,17 +57,17 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, iroot) complex(psb_spk_), intent(out) :: locx(:,:) complex(psb_spk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,& & jlx, myrank, rootrank, c, pos complex(psb_spk_),allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err name='psb_scatterm' @@ -169,8 +169,8 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, iroot) end do call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if (me == root) then displ(1)=0 @@ -190,8 +190,8 @@ subroutine psb_cscatterm(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) do c=1, k @@ -290,19 +290,19 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, iroot) complex(psb_spk_), intent(out) :: locx(:) complex(psb_spk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, m, n, i, j, idx, nrow, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,& & rootrank, pos, ilx, jlx complex(psb_spk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' if (psb_get_errstatus() /= 0) return @@ -384,8 +384,8 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, iroot) call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if(me == root) then displ(1)=0 @@ -402,8 +402,8 @@ subroutine psb_cscatterv(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) ! prepare vector to scatter if (me == root) then diff --git a/base/comm/psb_cspgather.F90 b/base/comm/psb_cspgather.F90 index e294e66c0..98a94c790 100644 --- a/base/comm/psb_cspgather.F90 +++ b/base/comm/psb_cspgather.F90 @@ -13,17 +13,17 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep type(psb_cspmat_type), intent(inout) :: loca type(psb_cspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root, dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root, dupl logical, intent(in), optional :: keepnum,keeploc type(psb_c_coo_sparse_mat) :: loc_coo, glob_coo - integer :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg - integer :: ip, ndx,naggrm1,naggrp1, i, j, k + integer(psb_ipk_) :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg + integer(psb_ipk_) :: ip, ndx,naggrm1,naggrp1, i, j, k logical :: keepnum_, keeploc_ - integer, allocatable :: nzbr(:), idisp(:) + integer(psb_ipk_), allocatable :: nzbr(:), idisp(:) character(len=20) :: name - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' if (psb_get_errstatus().ne.0) return @@ -71,12 +71,12 @@ subroutine psb_csp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep call mpi_allgatherv(loc_coo%val,ndx,mpi_complex,& & glob_coo%val,nzbr,idisp,& & mpi_complex,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,& + if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,& & glob_coo%ia,nzbr,idisp,& - & mpi_integer,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,mpi_integer,& + & psb_mpi_integer,icomm,info) + if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,& & glob_coo%ja,nzbr,idisp,& - & mpi_integer,icomm,info) + & psb_mpi_integer,icomm,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err=' from mpi_allgatherv') diff --git a/base/comm/psb_dgather.f90 b/base/comm/psb_dgather.f90 index a601a306a..c0e97e792 100644 --- a/base/comm/psb_dgather.f90 +++ b/base/comm/psb_dgather.f90 @@ -53,12 +53,12 @@ subroutine psb_dgatherm(globx, locx, desc_a, info, iroot) real(psb_dpk_), intent(in) :: locx(:,:) real(psb_dpk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, n, root, iiroot, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, lock, globk, maxk, k, jlx, ilx, i, j, idx character(len=20) :: name, ch_err @@ -224,12 +224,12 @@ subroutine psb_dgatherv(globx, locx, desc_a, info, iroot) real(psb_dpk_), intent(in) :: locx(:) real(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx @@ -335,12 +335,12 @@ subroutine psb_dgather_vect(globx, locx, desc_a, info, iroot) type(psb_d_vect_type), intent(inout) :: locx real(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx real(psb_dpk_), allocatable :: llocx(:) diff --git a/base/comm/psb_dhalo.f90 b/base/comm/psb_dhalo.f90 index 894af4752..0993f5a9f 100644 --- a/base/comm/psb_dhalo.f90 +++ b/base/comm/psb_dhalo.f90 @@ -60,14 +60,14 @@ subroutine psb_dhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) real(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,& & err, liwork,data_ real(psb_dpk_),pointer :: iwork(:), xp(:,:) @@ -282,14 +282,14 @@ subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data) real(psb_dpk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & m, n, iix, jjx, ix, ijx, nrow, imode, err, liwork,data_ real(psb_dpk_),pointer :: iwork(:) character :: tran_ @@ -426,14 +426,14 @@ subroutine psb_dhalo_vect(x,desc_a,info,alpha,work,tran,mode,data) type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, m, n, iix, jjx, ix, ijx, nrow, imode,& & err, liwork,data_ real(psb_dpk_),pointer :: iwork(:) diff --git a/base/comm/psb_dovrl.f90 b/base/comm/psb_dovrl.f90 index d0eea00c9..e4f1a9f06 100644 --- a/base/comm/psb_dovrl.f90 +++ b/base/comm/psb_dovrl.f90 @@ -71,12 +71,12 @@ subroutine psb_dovrlm(x,desc_a,info,jx,ik,work,update,mode) real(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,& & mode_, err, liwork real(psb_dpk_),pointer :: iwork(:), xp(:,:) @@ -271,12 +271,12 @@ subroutine psb_dovrlv(x,desc_a,info,work,update,mode) real(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork real(psb_dpk_),pointer :: iwork(:) @@ -396,12 +396,12 @@ subroutine psb_dovrl_vect(x,desc_a,info,work,update,mode) type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork real(psb_dpk_),pointer :: iwork(:) diff --git a/base/comm/psb_dscatter.F90 b/base/comm/psb_dscatter.F90 index 99e8f7711..525cfe558 100644 --- a/base/comm/psb_dscatter.F90 +++ b/base/comm/psb_dscatter.F90 @@ -57,17 +57,17 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot) real(psb_dpk_), intent(out) :: locx(:,:) real(psb_dpk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,& & jlx, myrank, rootrank, c, pos real(psb_dpk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err name='psb_scatterm' @@ -169,8 +169,8 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot) end do call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if (me == root) then displ(1)=0 @@ -190,8 +190,8 @@ subroutine psb_dscatterm(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) do c=1, k @@ -291,19 +291,19 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot) real(psb_dpk_), intent(out) :: locx(:) real(psb_dpk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, m, n, i, j, idx, nrow, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,& & rootrank, pos, ilx, jlx real(psb_dpk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' if (psb_get_errstatus() /= 0) return @@ -385,8 +385,8 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot) call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if(me == root) then displ(1)=0 @@ -403,8 +403,8 @@ subroutine psb_dscatterv(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) ! prepare vector to scatter if (me == root) then diff --git a/base/comm/psb_dspgather.F90 b/base/comm/psb_dspgather.F90 index 67d733ec9..ab4f640f9 100644 --- a/base/comm/psb_dspgather.F90 +++ b/base/comm/psb_dspgather.F90 @@ -13,17 +13,17 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep type(psb_dspmat_type), intent(inout) :: loca type(psb_dspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root, dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root, dupl logical, intent(in), optional :: keepnum,keeploc type(psb_d_coo_sparse_mat) :: loc_coo, glob_coo - integer :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg - integer :: ip, ndx,naggrm1,naggrp1, i, j, k + integer(psb_ipk_) :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg + integer(psb_ipk_) :: ip, ndx,naggrm1,naggrp1, i, j, k logical :: keepnum_, keeploc_ - integer, allocatable :: nzbr(:), idisp(:) + integer(psb_ipk_), allocatable :: nzbr(:), idisp(:) character(len=20) :: name - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' if (psb_get_errstatus().ne.0) return @@ -71,12 +71,12 @@ subroutine psb_dsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep call mpi_allgatherv(loc_coo%val,ndx,mpi_double_precision,& & glob_coo%val,nzbr,idisp,& & mpi_double_precision,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,& + if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,& & glob_coo%ia,nzbr,idisp,& - & mpi_integer,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,mpi_integer,& + & psb_mpi_integer,icomm,info) + if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,& & glob_coo%ja,nzbr,idisp,& - & mpi_integer,icomm,info) + & psb_mpi_integer,icomm,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err=' from mpi_allgatherv') diff --git a/base/comm/psb_igather.f90 b/base/comm/psb_igather.f90 index 49e96f022..aa796057a 100644 --- a/base/comm/psb_igather.f90 +++ b/base/comm/psb_igather.f90 @@ -35,9 +35,9 @@ ! This subroutine gathers pieces of a distributed dense matrix into a local one. ! ! Arguments: -! globx - integer,dimension(:,:). The local matrix into which gather +! globx - integer(psb_ipk_),dimension(:,:). The local matrix into which gather ! the distributed pieces. -! locx - integer,dimension(:,:). The local piece of the distributed +! locx - integer(psb_ipk_),dimension(:,:). The local piece of the distributed ! matrix to be gathered. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Error code. @@ -50,15 +50,15 @@ subroutine psb_igatherm(globx, locx, desc_a, info, iroot) use psb_base_mod, psb_protect_name => psb_igatherm implicit none - integer, intent(in) :: locx(:,:) - integer, intent(out) :: globx(:,:) + integer(psb_ipk_), intent(in) :: locx(:,:) + integer(psb_ipk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, n, root, iiroot, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, lock, globk, maxk, k, jlx, ilx, i, j, idx character(len=20) :: name, ch_err @@ -207,9 +207,9 @@ end subroutine psb_igatherm ! This subroutine gathers pieces of a distributed dense vector into a local one. ! ! Arguments: -! globx - integer,dimension(:). The local vector into which gather the +! globx - integer(psb_ipk_),dimension(:). The local vector into which gather the ! distributed pieces. -! locx - integer,dimension(:). The local piece of the ditributed +! locx - integer(psb_ipk_),dimension(:). The local piece of the ditributed ! vector to be gathered. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Error code. @@ -221,15 +221,15 @@ subroutine psb_igatherv(globx, locx, desc_a, info, iroot) use psb_base_mod, psb_protect_name => psb_igatherv implicit none - integer, intent(in) :: locx(:) - integer, intent(out) :: globx(:) + integer(psb_ipk_), intent(in) :: locx(:) + integer(psb_ipk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx diff --git a/base/comm/psb_ihalo.f90 b/base/comm/psb_ihalo.f90 index 034c28e3c..2e3a46947 100644 --- a/base/comm/psb_ihalo.f90 +++ b/base/comm/psb_ihalo.f90 @@ -37,7 +37,7 @@ ! distributed dense matrix between all the processes. ! ! Arguments: -! x - integer,dimension(:,:). The local part of the dense matrix. +! x - integer(psb_ipk_),dimension(:,:). The local part of the dense matrix. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Return code ! alpha - real(optional). Scale factor. @@ -59,19 +59,19 @@ subroutine psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) use psi_mod implicit none - integer, intent(inout), target :: x(:,:) + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, k, maxk, liwork,& & imode, err,data_ - integer, pointer :: xp(:,:), iwork(:) + integer(psb_ipk_), pointer :: xp(:,:), iwork(:) character :: tran_ character(len=20) :: name, ch_err logical :: aliw @@ -261,7 +261,7 @@ end subroutine psb_ihalom ! distributed dense matrix between all the processes. ! ! Arguments: -! x - integer,dimension(:). The local part of the dense matrix. +! x - integer(psb_ipk_),dimension(:). The local part of the dense matrix. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Return code ! alpha - real(optional). Scale factor. @@ -283,19 +283,19 @@ subroutine psb_ihalov(x,desc_a,info,alpha,work,tran,mode,data) use psi_mod implicit none - integer, intent(inout) :: x(:) + integer(psb_ipk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, m, n, iix, jjx, ix, ijx, nrow, imode,& & err, liwork, data_ - integer,pointer :: iwork(:) + integer(psb_ipk_),pointer :: iwork(:) character :: tran_ character(len=20) :: name, ch_err logical :: aliw diff --git a/base/comm/psb_iovrl.f90 b/base/comm/psb_iovrl.f90 index f87a3ed49..c9456e852 100644 --- a/base/comm/psb_iovrl.f90 +++ b/base/comm/psb_iovrl.f90 @@ -68,17 +68,17 @@ subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode) use psi_mod implicit none - integer, intent(inout), target :: x(:,:) + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, target, intent(inout) :: work(:) + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,& & mode_, err, liwork - integer, pointer :: iwork(:), xp(:,:) + integer(psb_ipk_), pointer :: iwork(:), xp(:,:) logical :: do_swap character(len=20) :: name, ch_err logical :: aliw @@ -269,17 +269,17 @@ subroutine psb_iovrlv(x,desc_a,info,work,update,mode) use psi_mod implicit none - integer, intent(inout), target :: x(:) + integer(psb_ipk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, target, intent(inout) :: work(:) + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork - integer,pointer :: iwork(:) + integer(psb_ipk_),pointer :: iwork(:) logical :: do_swap character(len=20) :: name, ch_err logical :: aliw diff --git a/base/comm/psb_iscatter.F90 b/base/comm/psb_iscatter.F90 index c2ae6a219..5f2252258 100644 --- a/base/comm/psb_iscatter.F90 +++ b/base/comm/psb_iscatter.F90 @@ -36,8 +36,8 @@ ! into pieces that are local to alle the processes. ! ! Arguments: -! globx - integer,dimension(:,:). The global matrix to scatter. -! locx - integer,dimension(:,:). The local piece of the ditributed matrix. +! globx - integer(psb_ipk_),dimension(:,:). The global matrix to scatter. +! locx - integer(psb_ipk_),dimension(:,:). The local piece of the ditributed matrix. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Error code. ! iroot - integer(optional). The process that owns the global matrix. If -1 all @@ -53,19 +53,19 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot) include 'mpif.h' #endif - integer, intent(out) :: locx(:,:) - integer, intent(in) :: globx(:,:) + integer(psb_ipk_), intent(out) :: locx(:,:) + integer(psb_ipk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,& & jlx, myrank, rootrank, c, pos - integer, allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: scatterv(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err name='psb_scatterm' @@ -167,8 +167,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot) end do call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if (me == root) then displ(1)=0 @@ -188,8 +188,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) do c=1, k @@ -206,8 +206,8 @@ subroutine psb_iscatterm(globx, locx, desc_a, info, iroot) ! scatter !!! call mpi_scatterv(scatterv,all_dim,displ,& - & mpi_integer,locx(1,jlocx+c-1),nrow,& - & mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,locx(1,jlocx+c-1),nrow,& + & psb_mpi_integer,rootrank,icomm,info) end do @@ -268,8 +268,8 @@ end subroutine psb_iscatterm ! into pieces that are local to alle the processes. ! ! Arguments: -! globx - integer,dimension(:). The global vector to scatter. -! locx - integer,dimension(:). The local piece of the ditributed vector. +! globx - integer(psb_ipk_),dimension(:). The global vector to scatter. +! locx - integer(psb_ipk_),dimension(:). The local piece of the ditributed vector. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Error code. ! iroot - integer(optional). The process that owns the global vector. If -1 all @@ -285,22 +285,22 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot) include 'mpif.h' #endif - integer, intent(out) :: locx(:) - integer, intent(in) :: globx(:) + integer(psb_ipk_), intent(out) :: locx(:) + integer(psb_ipk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, m, n, i, j, idx, nrow, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,& & rootrank, pos, ilx, jlx - integer, allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: scatterv(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' if (psb_get_errstatus() /= 0) return @@ -382,8 +382,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot) call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if(me == root) then displ(1)=0 @@ -400,8 +400,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) ! prepare vector to scatter if (me == root) then @@ -416,8 +416,8 @@ subroutine psb_iscatterv(globx, locx, desc_a, info, iroot) end if call mpi_scatterv(scatterv,all_dim,displ,& - & mpi_integer,locx,nrow,& - & mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,locx,nrow,& + & psb_mpi_integer,rootrank,icomm,info) if (me == root) deallocate(all_dim, l_t_g_all, displ, scatterv) end if diff --git a/base/comm/psb_sgather.f90 b/base/comm/psb_sgather.f90 index 42abb267b..166cae0c9 100644 --- a/base/comm/psb_sgather.f90 +++ b/base/comm/psb_sgather.f90 @@ -53,12 +53,12 @@ subroutine psb_sgatherm(globx, locx, desc_a, info, iroot) real(psb_spk_), intent(in) :: locx(:,:) real(psb_spk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, n, root, iiroot, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, lock, globk, maxk, k, jlx, ilx, i, j, idx character(len=20) :: name, ch_err @@ -224,12 +224,12 @@ subroutine psb_sgatherv(globx, locx, desc_a, info, iroot) real(psb_spk_), intent(in) :: locx(:) real(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx @@ -335,12 +335,12 @@ subroutine psb_sgather_vect(globx, locx, desc_a, info, iroot) type(psb_s_vect_type), intent(inout) :: locx real(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx real(psb_spk_), allocatable :: llocx(:) diff --git a/base/comm/psb_shalo.f90 b/base/comm/psb_shalo.f90 index 2aa593983..a13caa492 100644 --- a/base/comm/psb_shalo.f90 +++ b/base/comm/psb_shalo.f90 @@ -60,14 +60,14 @@ subroutine psb_shalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) real(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,& & err, liwork,data_ real(psb_spk_),pointer :: iwork(:), xp(:,:) @@ -282,14 +282,14 @@ subroutine psb_shalov(x,desc_a,info,alpha,work,tran,mode,data) real(psb_spk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & m, n, iix, jjx, ix, ijx, nrow, imode, err, liwork,data_ real(psb_spk_),pointer :: iwork(:) character :: tran_ @@ -426,14 +426,14 @@ subroutine psb_shalo_vect(x,desc_a,info,alpha,work,tran,mode,data) type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, m, n, iix, jjx, ix, ijx, nrow, imode,& & err, liwork,data_ real(psb_spk_),pointer :: iwork(:) diff --git a/base/comm/psb_sovrl.f90 b/base/comm/psb_sovrl.f90 index ec200237a..239bd9275 100644 --- a/base/comm/psb_sovrl.f90 +++ b/base/comm/psb_sovrl.f90 @@ -71,12 +71,12 @@ subroutine psb_sovrlm(x,desc_a,info,jx,ik,work,update,mode) real(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,& & mode_, err, liwork real(psb_spk_),pointer :: iwork(:), xp(:,:) @@ -271,12 +271,12 @@ subroutine psb_sovrlv(x,desc_a,info,work,update,mode) real(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork real(psb_spk_),pointer :: iwork(:) @@ -396,12 +396,12 @@ subroutine psb_sovrl_vect(x,desc_a,info,work,update,mode) type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork real(psb_spk_),pointer :: iwork(:) diff --git a/base/comm/psb_sscatter.F90 b/base/comm/psb_sscatter.F90 index 1a61f5d0b..b5c6cada5 100644 --- a/base/comm/psb_sscatter.F90 +++ b/base/comm/psb_sscatter.F90 @@ -57,17 +57,17 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, iroot) real(psb_spk_), intent(out) :: locx(:,:) real(psb_spk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,& & jlx, myrank, rootrank, c, pos real(psb_spk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err name='psb_scatterm' @@ -169,8 +169,8 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, iroot) end do call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if (me == root) then displ(1)=0 @@ -190,8 +190,8 @@ subroutine psb_sscatterm(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) do c=1, k @@ -290,19 +290,19 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, iroot) real(psb_spk_), intent(out) :: locx(:) real(psb_spk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, m, n, i, j, idx, nrow, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,& & rootrank, pos, ilx, jlx real(psb_spk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' if (psb_get_errstatus() /= 0) return @@ -384,8 +384,8 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, iroot) call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if(me == root) then displ(1)=0 @@ -402,8 +402,8 @@ subroutine psb_sscatterv(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) ! prepare vector to scatter if (me == root) then diff --git a/base/comm/psb_sspgather.F90 b/base/comm/psb_sspgather.F90 index af1cfea90..1f3ce762d 100644 --- a/base/comm/psb_sspgather.F90 +++ b/base/comm/psb_sspgather.F90 @@ -13,17 +13,17 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep type(psb_sspmat_type), intent(inout) :: loca type(psb_sspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root, dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root, dupl logical, intent(in), optional :: keepnum,keeploc type(psb_s_coo_sparse_mat) :: loc_coo, glob_coo - integer :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg - integer :: ip, ndx,naggrm1,naggrp1, i, j, k + integer(psb_ipk_) :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg + integer(psb_ipk_) :: ip, ndx,naggrm1,naggrp1, i, j, k logical :: keepnum_, keeploc_ - integer, allocatable :: nzbr(:), idisp(:) + integer(psb_ipk_), allocatable :: nzbr(:), idisp(:) character(len=20) :: name - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' if (psb_get_errstatus().ne.0) return @@ -71,12 +71,12 @@ subroutine psb_ssp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep call mpi_allgatherv(loc_coo%val,ndx,mpi_real,& & glob_coo%val,nzbr,idisp,& & mpi_real,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,& + if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,& & glob_coo%ia,nzbr,idisp,& - & mpi_integer,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,mpi_integer,& + & psb_mpi_integer,icomm,info) + if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,& & glob_coo%ja,nzbr,idisp,& - & mpi_integer,icomm,info) + & psb_mpi_integer,icomm,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err=' from mpi_allgatherv') diff --git a/base/comm/psb_zgather.f90 b/base/comm/psb_zgather.f90 index 51322445c..f767afc2e 100644 --- a/base/comm/psb_zgather.f90 +++ b/base/comm/psb_zgather.f90 @@ -52,12 +52,12 @@ subroutine psb_zgatherm(globx, locx, desc_a, info, iroot) complex(psb_dpk_), intent(in) :: locx(:,:) complex(psb_dpk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, iiroot, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, lock, globk, maxk, k, jlx, ilx, i, j, idx @@ -225,12 +225,12 @@ subroutine psb_zgatherv(globx, locx, desc_a, info, iroot) complex(psb_dpk_), intent(in) :: locx(:) complex(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx @@ -336,12 +336,12 @@ subroutine psb_zgather_vect(globx, locx, desc_a, info, iroot) type(psb_z_vect_type), intent(inout) :: locx complex(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, n, root, ilocx, iglobx, jlocx,& & jglobx, lda_locx, lda_globx, m, k, jlx, ilx, i, idx complex(psb_dpk_), allocatable :: llocx(:) diff --git a/base/comm/psb_zhalo.f90 b/base/comm/psb_zhalo.f90 index a604198d5..f6560cda1 100644 --- a/base/comm/psb_zhalo.f90 +++ b/base/comm/psb_zhalo.f90 @@ -60,14 +60,14 @@ subroutine psb_zhalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, k, maxk, nrow, imode, i,& & err, liwork,data_ complex(psb_dpk_),pointer :: iwork(:), xp(:,:) @@ -282,14 +282,14 @@ subroutine psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data) complex(psb_dpk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & m, n, iix, jjx, ix, ijx, nrow, imode, err, liwork,data_ complex(psb_dpk_),pointer :: iwork(:) character :: tran_ @@ -426,14 +426,14 @@ subroutine psb_zhalo_vect(x,desc_a,info,alpha,work,tran,mode,data) type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, m, n, iix, jjx, ix, ijx, nrow, imode,& & err, liwork,data_ complex(psb_dpk_),pointer :: iwork(:) diff --git a/base/comm/psb_zovrl.f90 b/base/comm/psb_zovrl.f90 index 68c8034fe..7ad7e1ca8 100644 --- a/base/comm/psb_zovrl.f90 +++ b/base/comm/psb_zovrl.f90 @@ -71,12 +71,12 @@ subroutine psb_zovrlm(x,desc_a,info,jx,ik,work,update,mode) complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, maxk, update_,& & mode_, err, liwork complex(psb_dpk_),pointer :: iwork(:), xp(:,:) @@ -271,12 +271,12 @@ subroutine psb_zovrlv(x,desc_a,info,work,update,mode) complex(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork complex(psb_dpk_),pointer :: iwork(:) @@ -396,12 +396,12 @@ subroutine psb_zovrl_vect(x,desc_a,info,work,update,mode) type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, m, n, iix, jjx, ix, ijx, nrow, ncol, k, update_,& & mode_, err, liwork complex(psb_dpk_),pointer :: iwork(:) diff --git a/base/comm/psb_zscatter.F90 b/base/comm/psb_zscatter.F90 index b57d91cbb..058d979fb 100644 --- a/base/comm/psb_zscatter.F90 +++ b/base/comm/psb_zscatter.F90 @@ -56,17 +56,17 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot) complex(psb_dpk_), intent(out) :: locx(:,:) complex(psb_dpk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me,& + integer(psb_ipk_) :: int_err(5), ictxt, np, me,& & err_act, m, n, i, j, idx, nrow, iiroot, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, lock, globk, icomm, k, maxk, root, ilx,& & jlx, myrank, rootrank, c, pos complex(psb_dpk_),allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err name='psb_scatterm' @@ -168,8 +168,8 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot) end do call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if (me == root) then displ(1)=0 @@ -189,8 +189,8 @@ subroutine psb_zscatterm(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) do c=1, k @@ -289,19 +289,19 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot) complex(psb_dpk_), intent(out) :: locx(:) complex(psb_dpk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: iroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iroot ! locals - integer :: int_err(5), ictxt, np, me, & + integer(psb_ipk_) :: int_err(5), ictxt, np, me, & & err_act, m, n, i, j, idx, nrow, iglobx, jglobx,& & ilocx, jlocx, lda_locx, lda_globx, root, k, icomm, myrank,& & rootrank, pos, ilx, jlx complex(psb_dpk_), allocatable :: scatterv(:) - integer, allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) + integer(psb_ipk_), allocatable :: displ(:), l_t_g_all(:), all_dim(:), ltg(:) character(len=20) :: name, ch_err - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_scatterv' if (psb_get_errstatus() /= 0) return @@ -383,8 +383,8 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot) call psb_loc_to_glob(ltg(1:nrow),desc_a,info) - call mpi_gather(nrow,1,mpi_integer,all_dim,& - & 1,mpi_integer,rootrank,icomm,info) + call mpi_gather(nrow,1,psb_mpi_integer,all_dim,& + & 1,psb_mpi_integer,rootrank,icomm,info) if(me == root) then displ(1)=0 @@ -401,8 +401,8 @@ subroutine psb_zscatterv(globx, locx, desc_a, info, iroot) end if call mpi_gatherv(ltg,nrow,& - & mpi_integer,l_t_g_all,all_dim,& - & displ,mpi_integer,rootrank,icomm,info) + & psb_mpi_integer,l_t_g_all,all_dim,& + & displ,psb_mpi_integer,rootrank,icomm,info) ! prepare vector to scatter if (me == root) then diff --git a/base/comm/psb_zspgather.F90 b/base/comm/psb_zspgather.F90 index 06b5f353c..b14326164 100644 --- a/base/comm/psb_zspgather.F90 +++ b/base/comm/psb_zspgather.F90 @@ -13,17 +13,17 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep type(psb_zspmat_type), intent(inout) :: loca type(psb_zspmat_type), intent(inout) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root, dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root, dupl logical, intent(in), optional :: keepnum,keeploc type(psb_z_coo_sparse_mat) :: loc_coo, glob_coo - integer :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg - integer :: ip, ndx,naggrm1,naggrp1, i, j, k + integer(psb_ipk_) :: ictxt,np,me, err_act, icomm, dupl_, nrg, ncg, nzg + integer(psb_ipk_) :: ip, ndx,naggrm1,naggrp1, i, j, k logical :: keepnum_, keeploc_ - integer, allocatable :: nzbr(:), idisp(:) + integer(psb_ipk_), allocatable :: nzbr(:), idisp(:) character(len=20) :: name - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_gather' if (psb_get_errstatus().ne.0) return @@ -71,12 +71,12 @@ subroutine psb_zsp_allgather(globa, loca, desc_a, info, root, dupl,keepnum,keep call mpi_allgatherv(loc_coo%val,ndx,mpi_double_complex,& & glob_coo%val,nzbr,idisp,& & mpi_double_complex,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,mpi_integer,& + if (info == psb_success_) call mpi_allgatherv(loc_coo%ia,ndx,psb_mpi_integer,& & glob_coo%ia,nzbr,idisp,& - & mpi_integer,icomm,info) - if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,mpi_integer,& + & psb_mpi_integer,icomm,info) + if (info == psb_success_) call mpi_allgatherv(loc_coo%ja,ndx,psb_mpi_integer,& & glob_coo%ja,nzbr,idisp,& - & mpi_integer,icomm,info) + & psb_mpi_integer,icomm,info) if (info /= psb_success_) then call psb_errpush(psb_err_internal_error_,name,a_err=' from mpi_allgatherv') diff --git a/base/internals/psb_indx_map_fnd_owner.F90 b/base/internals/psb_indx_map_fnd_owner.F90 index 55d65c345..9777c9f36 100644 --- a/base/internals/psb_indx_map_fnd_owner.F90 +++ b/base/internals/psb_indx_map_fnd_owner.F90 @@ -40,7 +40,7 @@ ! process ! idx(:) - integer Required indices on the calling process. ! Note: the indices should be unique! -! iprc(:) - integer, allocatable Output: process identifiers for the corresponding +! iprc(:) - integer(psb_ipk_), allocatable Output: process identifiers for the corresponding ! indices ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code. @@ -60,18 +60,18 @@ subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info) #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_indx_map), intent(in) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: hsz(:),hidx(:),helem(:),hproc(:),& + integer(psb_ipk_), allocatable :: hsz(:),hidx(:),helem(:),hproc(:),& & sdsz(:),sdidx(:), rvsz(:), rvidx(:),answers(:,:),idxsrch(:,:) - integer :: i,n_row,n_col,err_act,ih,icomm,hsize,ip,isz,k,j,& + integer(psb_ipk_) :: i,n_row,n_col,err_act,ih,icomm,hsize,ip,isz,k,j,& & last_ih, last_j, nv - integer :: ictxt,np,me + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: gettime=.false. real(psb_dpk_) :: t0, t1, t2, t3, t4, tamx, tidx character(len=20) :: name @@ -134,8 +134,8 @@ subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info) t3 = psb_wtime() end if - call mpi_allgatherv(idx,hsz(me+1),mpi_integer,& - & hproc,hsz,hidx,mpi_integer,& + call mpi_allgatherv(idx,hsz(me+1),psb_mpi_integer,& + & hproc,hsz,hidx,psb_mpi_integer,& & icomm,info) if (gettime) then tamx = psb_wtime() - t3 @@ -178,7 +178,7 @@ subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info) end if ! Collect all the answers with alltoallv (need sizes) - call mpi_alltoall(sdsz,1,mpi_integer,rvsz,1,mpi_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_integer,rvsz,1,mpi_integer,icomm,info) isz = sum(rvsz) @@ -192,8 +192,8 @@ subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info) rvidx(ip) = j j = j + rvsz(ip) end do - call mpi_alltoallv(hproc,sdsz,sdidx,mpi_integer,& - & answers(:,1),rvsz,rvidx,mpi_integer,& + call mpi_alltoallv(hproc,sdsz,sdidx,psb_mpi_integer,& + & answers(:,1),rvsz,rvidx,psb_mpi_integer,& & icomm,info) if (gettime) then tamx = psb_wtime() - t3 + tamx diff --git a/base/internals/psi_bld_tmphalo.f90 b/base/internals/psi_bld_tmphalo.f90 index a273b5e8b..2dedb3bca 100644 --- a/base/internals/psi_bld_tmphalo.f90 +++ b/base/internals/psi_bld_tmphalo.f90 @@ -54,14 +54,14 @@ subroutine psi_bld_tmphalo(desc,info) use psi_mod, psb_protect_name => psi_bld_tmphalo implicit none type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer,allocatable :: helem(:),hproc(:) - integer,allocatable :: tmphl(:) + integer(psb_ipk_),allocatable :: helem(:),hproc(:) + integer(psb_ipk_),allocatable :: tmphl(:) - integer :: i,j,np,me,lhalo,nhalo,& + integer(psb_ipk_) :: i,j,np,me,lhalo,nhalo,& & n_col, err_act, key, ih, nh, idx, nk,icomm - integer :: ictxt,n_row + integer(psb_ipk_) :: ictxt,n_row character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/internals/psi_bld_tmpovrl.f90 b/base/internals/psi_bld_tmpovrl.f90 index 592bf3601..0acf632eb 100644 --- a/base/internals/psi_bld_tmpovrl.f90 +++ b/base/internals/psi_bld_tmpovrl.f90 @@ -59,16 +59,16 @@ subroutine psi_bld_tmpovrl(iv,desc,info) use psb_realloc_mod use psi_mod, psb_protect_name => psi_bld_tmpovrl implicit none - integer, intent(in) :: iv(:) + integer(psb_ipk_), intent(in) :: iv(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals - Integer :: counter,i,j,np,me,loc_row,err,loc_col,nprocs,& + integer(psb_ipk_) :: counter,i,j,np,me,loc_row,err,loc_col,nprocs,& & l_ov_ix,l_ov_el,idx, err_act, itmpov, k, glx, icomm - integer, allocatable :: ov_idx(:),ov_el(:,:) + integer(psb_ipk_), allocatable :: ov_idx(:),ov_el(:,:) - integer :: ictxt,n_row, debug_unit, debug_level + integer(psb_ipk_) :: ictxt,n_row, debug_unit, debug_level character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/internals/psi_compute_size.f90 b/base/internals/psi_compute_size.f90 index 71e849a59..03f50e25a 100644 --- a/base/internals/psi_compute_size.f90 +++ b/base/internals/psi_compute_size.f90 @@ -42,18 +42,18 @@ subroutine psi_compute_size(desc_data, index_in, dl_lda, info) implicit none ! ....scalars parameters.... - integer :: info, dl_lda + integer(psb_ipk_) :: info, dl_lda ! .....array parameters.... - integer :: desc_data(:), index_in(:) + integer(psb_ipk_) :: desc_data(:), index_in(:) ! ....local scalars.... - integer :: i,np,me,proc, max_index - integer :: ictxt, err_act + integer(psb_ipk_) :: i,np,me,proc, max_index + integer(psb_ipk_) :: ictxt, err_act ! ...local array... - integer :: int_err(5) - integer, allocatable :: counter_recv(:), counter_dl(:) + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_), allocatable :: counter_recv(:), counter_dl(:) ! ...parameters - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name name='psi_compute_size' diff --git a/base/internals/psi_crea_bnd_elem.f90 b/base/internals/psi_crea_bnd_elem.f90 index f3cde0f37..f0d9736b4 100644 --- a/base/internals/psi_crea_bnd_elem.f90 +++ b/base/internals/psi_crea_bnd_elem.f90 @@ -39,7 +39,7 @@ ! current (calling) process. ! ! Arguments: -! bndel(:) - integer, allocatable Array containing the output list +! bndel(:) - integer(psb_ipk_), allocatable Array containing the output list ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code. ! @@ -51,12 +51,12 @@ subroutine psi_crea_bnd_elem(bndel,desc_a,info) use psb_serial_mod implicit none - integer, allocatable :: bndel(:) + integer(psb_ipk_), allocatable :: bndel(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: work(:) - integer :: i, j, nr, ns, k, err_act + integer(psb_ipk_), allocatable :: work(:) + integer(psb_ipk_) :: i, j, nr, ns, k, err_act character(len=20) :: name info = psb_success_ diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90 index d30ed3532..f5ed784fb 100644 --- a/base/internals/psi_crea_index.f90 +++ b/base/internals/psi_crea_index.f90 @@ -43,7 +43,7 @@ ! desc_a - type(psb_desc_type) The descriptor; in this context only the index ! mapping parts are used. ! index_in(:) - integer The index list, build format -! index_out(:) - integer, allocatable The index list, assembled format +! index_out(:) - integer(psb_ipk_), allocatable The index list, assembled format ! glob_idx - logical Whether the input indices are in local or global ! numbering; the global numbering is used when ! converting the overlap exchange lists. @@ -62,17 +62,17 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info implicit none type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info,nxch,nsnd,nrcv - integer, intent(in) :: index_in(:) - integer, allocatable, intent(inout) :: index_out(:) + integer(psb_ipk_), intent(out) :: info,nxch,nsnd,nrcv + integer(psb_ipk_), intent(in) :: index_in(:) + integer(psb_ipk_), allocatable, intent(inout) :: index_out(:) logical :: glob_idx ! ....local scalars... - integer :: ictxt, me, np, mode, err_act, dl_lda + integer(psb_ipk_) :: ictxt, me, np, mode, err_act, dl_lda ! ...parameters... - integer, allocatable :: dep_list(:,:), length_dl(:) - integer,parameter :: root=psb_root_,no_comm=-1 - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: dep_list(:,:), length_dl(:) + integer(psb_ipk_),parameter :: root=psb_root_,no_comm=-1 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ diff --git a/base/internals/psi_crea_ovr_elem.f90 b/base/internals/psi_crea_ovr_elem.f90 index 9965ae496..e5c788686 100644 --- a/base/internals/psi_crea_ovr_elem.f90 +++ b/base/internals/psi_crea_ovr_elem.f90 @@ -38,7 +38,7 @@ ! See also description in base/modules/psb_desc_type.f90 ! ! Arguments: -! ovr_elem(:,:) - integer, allocatable Array containing the output list +! ovr_elem(:,:) - integer(psb_ipk_), allocatable Array containing the output list ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code. ! @@ -52,21 +52,21 @@ subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info) implicit none ! ...parameter arrays.... - integer, intent(in) :: me, desc_overlap(:) - integer, allocatable, intent(out) :: ovr_elem(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: me, desc_overlap(:) + integer(psb_ipk_), allocatable, intent(out) :: ovr_elem(:,:) + integer(psb_ipk_), intent(out) :: info ! ...local scalars... - integer :: i,pnt_new_elem,ret,j - integer :: dim_ovr_elem - integer :: pairtree(2) + integer(psb_ipk_) :: i,pnt_new_elem,ret,j + integer(psb_ipk_) :: dim_ovr_elem + integer(psb_ipk_) :: pairtree(2) ! ...external function... - integer :: psi_exist_ovr_elem + integer(psb_ipk_) :: psi_exist_ovr_elem external :: psi_exist_ovr_elem - integer :: nel, ip, ix, iel, insize, err_act, iproc - integer, allocatable :: telem(:,:) + integer(psb_ipk_) :: nel, ip, ix, iel, insize, err_act, iproc + integer(psb_ipk_), allocatable :: telem(:,:) character(len=20) :: name diff --git a/base/internals/psi_cswapdata.F90 b/base/internals/psi_cswapdata.F90 index 4159c3000..ddbe4ce1e 100644 --- a/base/internals/psi_cswapdata.F90 +++ b/base/internals/psi_cswapdata.F90 @@ -97,16 +97,16 @@ subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -170,20 +170,20 @@ subroutine psi_cswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -593,16 +593,16 @@ subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -667,21 +667,21 @@ subroutine psi_cswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1026,17 +1026,17 @@ subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -1102,22 +1102,22 @@ subroutine psi_cswapidx_vect(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,wo include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_cswaptran.F90 b/base/internals/psi_cswaptran.F90 index d6db0f842..25ffaae34 100644 --- a/base/internals/psi_cswaptran.F90 +++ b/base/internals/psi_cswaptran.F90 @@ -101,17 +101,17 @@ subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -175,20 +175,20 @@ subroutine psi_ctranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -596,17 +596,17 @@ subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -671,20 +671,20 @@ subroutine psi_ctranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1038,18 +1038,18 @@ subroutine psi_cswaptran_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -1116,21 +1116,21 @@ subroutine psi_ctranidx_vect(ictxt,icomm,flag,beta,y,idx,& include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_desc_impl.f90 b/base/internals/psi_desc_impl.f90 index 1667074c9..a26432b37 100644 --- a/base/internals/psi_desc_impl.f90 +++ b/base/internals/psi_desc_impl.f90 @@ -35,11 +35,11 @@ subroutine psi_renum_index(iperm,idx,info) use psb_serial_mod implicit none - integer, intent(out) :: info - integer, intent(in) :: iperm(:) - integer, intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(inout) :: idx(:) - integer :: i,j,k,nh + integer(psb_ipk_) :: i,j,k,nh i=1 k=idx(i) @@ -67,18 +67,18 @@ subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info) implicit none ! ....scalars parameters.... - integer, intent(in) :: halo_in(:), ovrlap_in(:),ext_in(:) + integer(psb_ipk_), intent(in) :: halo_in(:), ovrlap_in(:),ext_in(:) type(psb_desc_type), intent(inout) :: cdesc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ....local scalars.... - integer :: np,me - integer :: ictxt, err_act,nxch,nsnd,nrcv,j,k + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: ictxt, err_act,nxch,nsnd,nrcv,j,k ! ...local array... - integer, allocatable :: idx_out(:), tmp_mst_idx(:) + integer(psb_ipk_), allocatable :: idx_out(:), tmp_mst_idx(:) ! ...parameters - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: debug=.false. character(len=20) :: name @@ -201,10 +201,10 @@ end subroutine psi_cnv_dsc subroutine psi_inner_cnvs(x,hashmask,hashv,glb_lc) use psi_mod, psi_protect_name => psi_inner_cnvs - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(inout) :: x + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(inout) :: x - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -245,11 +245,11 @@ end subroutine psi_inner_cnvs subroutine psi_inner_cnvs2(x,y,hashmask,hashv,glb_lc) use psi_mod, psi_protect_name => psi_inner_cnvs2 - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(in) :: x - integer, intent(out) :: y + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: x + integer(psb_ipk_), intent(out) :: y - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -291,11 +291,11 @@ end subroutine psi_inner_cnvs2 subroutine psi_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask) use psi_mod, psi_protect_name => psi_inner_cnv1 - integer, intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) logical, intent(in), optional :: mask(:) - integer, intent(inout) :: x(:) + integer(psb_ipk_), intent(inout) :: x(:) - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -372,12 +372,12 @@ end subroutine psi_inner_cnv1 subroutine psi_inner_cnv2(n,x,y,hashmask,hashv,glb_lc,mask) use psi_mod, psi_protect_name => psi_inner_cnv2 - integer, intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) logical, intent(in),optional :: mask(:) - integer, intent(in) :: x(:) - integer, intent(out) :: y(:) + integer(psb_ipk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: y(:) - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -465,11 +465,11 @@ subroutine psi_bld_ovr_mst(me,ovrlap_elem,mst_idx,info) implicit none ! ....scalars parameters.... - integer, intent(in) :: me, ovrlap_elem(:,:) - integer, allocatable, intent(out) :: mst_idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: me, ovrlap_elem(:,:) + integer(psb_ipk_), allocatable, intent(out) :: mst_idx(:) + integer(psb_ipk_), intent(out) :: info - integer :: i, j, proc, nov,isz, ip, err_act, idx + integer(psb_ipk_) :: i, j, proc, nov,isz, ip, err_act, idx character(len=20) :: name name='psi_bld_ovr_mst' diff --git a/base/internals/psi_desc_index.F90 b/base/internals/psi_desc_index.F90 index 60e5d651d..cf0d79b33 100644 --- a/base/internals/psi_desc_index.F90 +++ b/base/internals/psi_desc_index.F90 @@ -41,7 +41,7 @@ ! desc_a - type(psb_desc_type) The descriptor; in this context only the index ! mapping parts are used. ! index_in(:) - integer The index list, build format -! index_out(:) - integer, allocatable The index list, assembled format +! index_out(:) - integer(psb_ipk_), allocatable The index list, assembled format ! glob_idx - logical Whether the input indices are in local or global ! numbering; the global numbering is used when ! converting the overlap exchange lists. @@ -116,24 +116,24 @@ subroutine psi_desc_index(desc,index_in,dep_list,& ! ...array parameters..... type(psb_desc_type) :: desc - integer :: index_in(:),dep_list(:) - integer,allocatable :: desc_index(:) - integer :: length_dl,nsnd,nrcv,info + integer(psb_ipk_) :: index_in(:),dep_list(:) + integer(psb_ipk_),allocatable :: desc_index(:) + integer(psb_ipk_) :: length_dl,nsnd,nrcv,info logical :: isglob_in ! ....local scalars... - integer :: j,me,np,i,proc + integer(psb_ipk_) :: j,me,np,i,proc ! ...parameters... - integer :: ictxt - integer, parameter :: no_comm=-1 + integer(psb_ipk_) :: ictxt + integer(psb_ipk_), parameter :: no_comm=-1 ! ...local arrays.. - integer,allocatable :: brvindx(:),rvsz(:),& + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:),& & bsdindx(:),sdsz(:), sndbuf(:), rcvbuf(:) - integer :: ihinsz,ntot,k,err_act,nidx,& + integer(psb_ipk_) :: ihinsz,ntot,k,err_act,nidx,& & idxr, idxs, iszs, iszr, nesd, nerv, icomm logical,parameter :: usempi=.true. - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -183,7 +183,7 @@ subroutine psi_desc_index(desc,index_in,dep_list,& i = i + nerv + 1 end do ihinsz=i - call mpi_alltoall(sdsz,1,mpi_integer,rvsz,1,mpi_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_integer,rvsz,1,mpi_integer,icomm,info) if(info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='mpi_alltoall') goto 9999 @@ -289,8 +289,8 @@ subroutine psi_desc_index(desc,index_in,dep_list,& idxr = idxr + rvsz(proc+1) end do - call mpi_alltoallv(sndbuf,sdsz,bsdindx,mpi_integer,& - & rcvbuf,rvsz,brvindx,mpi_integer,icomm,info) + call mpi_alltoallv(sndbuf,sdsz,bsdindx,psb_mpi_integer,& + & rcvbuf,rvsz,brvindx,psb_mpi_integer,icomm,info) if(info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='mpi_alltoallv') goto 9999 diff --git a/base/internals/psi_dl_check.f90 b/base/internals/psi_dl_check.f90 index 176e19dd4..1f90565fb 100644 --- a/base/internals/psi_dl_check.f90 +++ b/base/internals/psi_dl_check.f90 @@ -51,10 +51,10 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl) use psb_descriptor_type implicit none - integer :: np,dl_lda,length_dl(0:np) - integer :: dep_list(dl_lda,0:np) + integer(psb_ipk_) :: np,dl_lda,length_dl(0:np) + integer(psb_ipk_) :: dep_list(dl_lda,0:np) ! locals - integer :: proc, proc2, i, j + integer(psb_ipk_) :: proc, proc2, i, j ! ...if j is in dep_list of process i diff --git a/base/internals/psi_dswapdata.F90 b/base/internals/psi_dswapdata.F90 index bccc967d3..75bd45ce5 100644 --- a/base/internals/psi_dswapdata.F90 +++ b/base/internals/psi_dswapdata.F90 @@ -97,16 +97,16 @@ subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -170,20 +170,20 @@ subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -593,16 +593,16 @@ subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -667,21 +667,21 @@ subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1026,17 +1026,17 @@ subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -1102,22 +1102,22 @@ subroutine psi_dswapidx_vect(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,wo include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_dswaptran.F90 b/base/internals/psi_dswaptran.F90 index 2bf82005e..4060d0e48 100644 --- a/base/internals/psi_dswaptran.F90 +++ b/base/internals/psi_dswaptran.F90 @@ -101,17 +101,17 @@ subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -175,20 +175,20 @@ subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -596,17 +596,17 @@ subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -671,20 +671,20 @@ subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1038,18 +1038,18 @@ subroutine psi_dswaptran_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -1116,21 +1116,21 @@ subroutine psi_dtranidx_vect(ictxt,icomm,flag,beta,y,idx,& include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_exist_ovr_elem.f b/base/internals/psi_exist_ovr_elem.f index 777e44f6e..50c42954e 100644 --- a/base/internals/psi_exist_ovr_elem.f +++ b/base/internals/psi_exist_ovr_elem.f @@ -31,7 +31,7 @@ C C INTEGER FUNCTION PSI_EXIST_OVR_ELEM(OVR_ELEM, + DIM_LIST,ELEM_SEARCHED) - + use psb_const_mod C PURPOSE: C == = ==== C @@ -54,12 +54,12 @@ C ELEM_SEARCHED.....:point's Local index identifier to be searched. IMPLICIT NONE C ....Scalars parameters.... - INTEGER DIM_LIST,ELEM_SEARCHED + INTEGER(psb_ipk_) :: DIM_LIST,ELEM_SEARCHED C ...Array Parameters.... - INTEGER OVR_ELEM(DIM_LIST,*) + INTEGER(psb_ipk_) :: OVR_ELEM(DIM_LIST,*) C ...Local Scalars.... - INTEGER I + INTEGER(psb_ipk_) :: I I=1 DO WHILE ((I.LE.DIM_LIST).AND.(OVR_ELEM(I,1).NE.ELEM_SEARCHED)) diff --git a/base/internals/psi_extrct_dl.F90 b/base/internals/psi_extrct_dl.F90 index 54640bfd5..1aa1f5bf8 100644 --- a/base/internals/psi_extrct_dl.F90 +++ b/base/internals/psi_extrct_dl.F90 @@ -132,18 +132,18 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,& #endif ! ....scalar parameters... logical :: is_bld, is_upd - integer np,dl_lda,mode, info, ictxt + integer(psb_ipk_) :: np,dl_lda,mode, info, ictxt ! ....array parameters.... - integer :: desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np) - integer, allocatable :: itmp(:) + integer(psb_ipk_) :: desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np) + integer(psb_ipk_), allocatable :: itmp(:) ! .....local arrays.... - integer int_err(5) + integer(psb_ipk_) :: int_err(5) ! .....local scalars... - integer i,me,nprow,pointer_dep_list,proc,j,err_act - integer err, icomm - integer :: debug_level, debug_unit + integer(psb_ipk_) :: i,me,nprow,pointer_dep_list,proc,j,err_act + integer(psb_ipk_) :: err, icomm + integer(psb_ipk_) :: debug_level, debug_unit character name*20 name='psi_extrct_dl' @@ -269,8 +269,8 @@ subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,& goto 9999 endif itmp(1:dl_lda) = dep_list(1:dl_lda,me) - call mpi_allgather(itmp,dl_lda,mpi_integer,& - & dep_list,dl_lda,mpi_integer,icomm,info) + call mpi_allgather(itmp,dl_lda,psb_mpi_integer,& + & dep_list,dl_lda,psb_mpi_integer,icomm,info) deallocate(itmp,stat=info) if (info /= psb_success_) then info=psb_err_alloc_dealloc_ diff --git a/base/internals/psi_fnd_owner.F90 b/base/internals/psi_fnd_owner.F90 index 6b8970155..5ec0bab18 100644 --- a/base/internals/psi_fnd_owner.F90 +++ b/base/internals/psi_fnd_owner.F90 @@ -40,7 +40,7 @@ ! process ! idx(:) - integer Required indices on the calling process. ! Note: the indices should be unique! -! iprc(:) - integer, allocatable Output: process identifiers for the corresponding +! iprc(:) - integer(psb_ipk_), allocatable Output: process identifiers for the corresponding ! indices ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code. @@ -61,19 +61,19 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info) #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: nv - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: hsz(:),hidx(:),helem(:),hproc(:),& + integer(psb_ipk_), allocatable :: hsz(:),hidx(:),helem(:),hproc(:),& & sdsz(:),sdidx(:), rvsz(:), rvidx(:),answers(:,:),idxsrch(:,:) - integer :: i,n_row,n_col,err_act,ih,icomm,hsize,ip,isz,k,j,& + integer(psb_ipk_) :: i,n_row,n_col,err_act,ih,icomm,hsize,ip,isz,k,j,& & last_ih, last_j - integer :: ictxt,np,me + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: gettime=.false. real(psb_dpk_) :: t0, t1, t2, t3, t4, tamx, tidx character(len=20) :: name diff --git a/base/internals/psi_idx_cnv.f90 b/base/internals/psi_idx_cnv.f90 index 57ef8522d..46a456d38 100644 --- a/base/internals/psi_idx_cnv.f90 +++ b/base/internals/psi_idx_cnv.f90 @@ -52,17 +52,17 @@ subroutine psi_idx_cnv1(nv,idxin,desc,info,mask,owned) use psb_penv_mod use psi_mod, psb_protect_name => psi_idx_cnv1 implicit none - integer, intent(in) :: nv - integer, intent(inout) :: idxin(:) + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(inout) :: idxin(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: ictxt,mglob, nglob,ip,lip,i - integer :: np, me - integer :: nrow,ncol, err_act - integer, allocatable :: itmp(:) - integer, parameter :: relocsz=200 + integer(psb_ipk_) :: ictxt,mglob, nglob,ip,lip,i + integer(psb_ipk_) :: np, me + integer(psb_ipk_) :: nrow,ncol, err_act + integer(psb_ipk_), allocatable :: itmp(:) + integer(psb_ipk_), parameter :: relocsz=200 character(len=20) :: name logical :: owned_ @@ -188,16 +188,16 @@ subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned) use psb_penv_mod use psi_mod, psb_protect_name => psi_idx_cnv2 implicit none - integer, intent(in) :: nv, idxin(:) - integer, intent(out) :: idxout(:) + integer(psb_ipk_), intent(in) :: nv, idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i,ictxt,mglob, nglob - integer :: np, me - integer :: nrow,ncol, err_act - integer, parameter :: relocsz=200 + integer(psb_ipk_) :: i,ictxt,mglob, nglob + integer(psb_ipk_) :: np, me + integer(psb_ipk_) :: nrow,ncol, err_act + integer(psb_ipk_), parameter :: relocsz=200 character(len=20) :: name logical, pointer :: mask_(:) logical :: owned_ @@ -307,14 +307,14 @@ subroutine psi_idx_cnvs(idxin,idxout,desc,info,mask,owned) use psi_mod, psb_protect_name => psi_idx_cnvs use psb_descriptor_type - integer, intent(in) :: idxin - integer, intent(out) :: idxout + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned logical :: mask_(1) - integer :: iout(1) + integer(psb_ipk_) :: iout(1) if (present(mask)) then mask_ = mask @@ -332,13 +332,13 @@ subroutine psi_idx_cnvs1(idxin,desc,info,mask,owned) use psi_mod, psb_protect_name => psi_idx_cnvs1 use psb_descriptor_type - integer, intent(inout) :: idxin + integer(psb_ipk_), intent(inout) :: idxin type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned logical :: mask_(1) - integer :: iout(1) + integer(psb_ipk_) :: iout(1) if (present(mask)) then mask_ = mask diff --git a/base/internals/psi_idx_ins_cnv.f90 b/base/internals/psi_idx_ins_cnv.f90 index c2a2c4ce6..db692d618 100644 --- a/base/internals/psi_idx_ins_cnv.f90 +++ b/base/internals/psi_idx_ins_cnv.f90 @@ -56,17 +56,17 @@ subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask) use psb_error_mod use psb_penv_mod implicit none - integer, intent(in) :: nv - integer, intent(inout) :: idxin(:) + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(inout) :: idxin(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: ictxt,mglob, nglob - integer :: np, me - integer :: nrow,ncol, err_act - integer :: pnt_halo, nh, ip, lip,nxt,lipf,i,k,isize + integer(psb_ipk_) :: ictxt,mglob, nglob + integer(psb_ipk_) :: np, me + integer(psb_ipk_) :: nrow,ncol, err_act + integer(psb_ipk_) :: pnt_halo, nh, ip, lip,nxt,lipf,i,k,isize logical :: pnt_h_ok - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 character(len=20) :: name,ch_err info = psb_success_ @@ -192,16 +192,16 @@ subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask) use psb_error_mod use psb_penv_mod implicit none - integer, intent(in) :: nv, idxin(:) - integer, intent(out) :: idxout(:) + integer(psb_ipk_), intent(in) :: nv, idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: i,ictxt,k,mglob, nglob - integer :: np, me, isize - integer :: pnt_halo,nrow,ncol, nh, ip, err_act,lip,nxt,lipf + integer(psb_ipk_) :: i,ictxt,k,mglob, nglob + integer(psb_ipk_) :: np, me, isize + integer(psb_ipk_) :: pnt_halo,nrow,ncol, nh, ip, err_act,lip,nxt,lipf logical :: pnt_h_ok - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 character(len=20) :: name,ch_err info = psb_success_ @@ -310,12 +310,12 @@ end subroutine psi_idx_ins_cnv2 subroutine psi_idx_ins_cnvs2(idxin,idxout,desc,info,mask) use psi_mod, psb_protect_name => psi_idx_ins_cnvs2 use psb_descriptor_type - integer, intent(in) :: idxin - integer, intent(out) :: idxout + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: iout(1) + integer(psb_ipk_) :: iout(1) logical :: mask_(1) if (present(mask)) then @@ -381,11 +381,11 @@ end subroutine psi_idx_ins_cnvs2 subroutine psi_idx_ins_cnvs1(idxin,desc,info,mask) use psi_mod, psb_protect_name => psi_idx_ins_cnvs1 use psb_descriptor_type - integer, intent(inout) :: idxin + integer(psb_ipk_), intent(inout) :: idxin type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: iout(1) + integer(psb_ipk_) :: iout(1) logical :: mask_(1) if (present(mask)) then diff --git a/base/internals/psi_iswapdata.F90 b/base/internals/psi_iswapdata.F90 index 26ee63d5d..8b72c2297 100644 --- a/base/internals/psi_iswapdata.F90 +++ b/base/internals/psi_iswapdata.F90 @@ -38,7 +38,9 @@ ! it is capable of pruning empty exchanges, which are very likely in out ! application environment. All the variants have the same structure ! In all these subroutines X may be: I Integer +! S real(psb_spk_) ! D real(psb_dpk_) +! C complex(psb_spk_) ! Z complex(psb_dpk_) ! Basically the operation is as follows: on each process, we identify ! sections SND(Y) and RCV(Y); then we do a send on (PACK(SND(Y))); @@ -95,16 +97,16 @@ subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -168,25 +170,25 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. - integer, pointer, dimension(:) :: sndbuf, rcvbuf + integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf #ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf #endif @@ -298,8 +300,8 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work ! swap elements using mpi_alltoallv call mpi_alltoallv(sndbuf,sdsz,bsdidx,& - & mpi_integer,rcvbuf,rvsz,& - & brvidx,mpi_integer,icomm,iret) + & psb_mpi_integer,rcvbuf,rvsz,& + & brvidx,psb_mpi_integer,icomm,iret) if(iret /= mpi_success) then int_err(1) = iret info=psb_err_mpi_error_ @@ -330,7 +332,9 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work & sndbuf(snd_pt:snd_pt+n*nesd-1), proc_to_comm) else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swapdata: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swapdata: mismatch on self send',& + & nerv,nesd end if rcvbuf(rcv_pt:rcv_pt+n*nerv-1) = sndbuf(snd_pt:snd_pt+n*nesd-1) end if @@ -357,7 +361,7 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work if ((nerv>0).and.(proc_to_comm /= me)) then p2ptag = psb_int_swap_tag call mpi_irecv(rcvbuf(rcv_pt),n*nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag, icomm,rvhd(i),iret) end if rcv_pt = rcv_pt + n*nerv @@ -378,16 +382,16 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work nerv = idx(pnti+psb_n_elem_recv_) nesd = idx(pnti+nerv+psb_n_elem_send_) - p2ptag= psb_int_swap_tag + p2ptag = psb_int_swap_tag if ((nesd>0).and.(proc_to_comm /= me)) then if (usersend) then call mpi_rsend(sndbuf(snd_pt),n*nesd,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,iret) else call mpi_send(sndbuf(snd_pt),n*nesd,& - & mpi_integer,prcid(i),& - & p2ptag,icomm,iret) + & psb_mpi_integer,prcid(i),& + & p2ptag,icomm,iret) end if if(iret /= mpi_success) then @@ -423,7 +427,9 @@ subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work end if else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swapdata: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*)& + & 'Fatal error in swapdata: mismatch on self send', & + & nerv,nesd end if rcvbuf(rcv_pt:rcv_pt+n*nerv-1) = sndbuf(snd_pt:snd_pt+n*nesd-1) end if @@ -528,7 +534,9 @@ end subroutine psi_iswapidxm ! it is capable of pruning empty exchanges, which are very likely in out ! application environment. All the variants have the same structure ! In all these subroutines X may be: I Integer +! S real(psb_spk_) ! D real(psb_dpk_) +! C complex(psb_spk_) ! Z complex(psb_dpk_) ! Basically the operation is as follows: on each process, we identify ! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y))); @@ -585,16 +593,16 @@ subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -659,26 +667,26 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. - integer, pointer, dimension(:) :: sndbuf, rcvbuf + integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf #ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf #endif @@ -790,8 +798,8 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i ! swap elements using mpi_alltoallv call mpi_alltoallv(sndbuf,sdsz,bsdidx,& - & mpi_integer,rcvbuf,rvsz,& - & brvidx,mpi_integer,icomm,iret) + & psb_mpi_integer,rcvbuf,rvsz,& + & brvidx,psb_mpi_integer,icomm,iret) if(iret /= mpi_success) then int_err(1) = iret info=psb_err_mpi_error_ @@ -821,7 +829,9 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swapdata: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swapdata: mismatch on self send', & + & nerv,nesd end if rcvbuf(rcv_pt:rcv_pt+nerv-1) = sndbuf(snd_pt:snd_pt+nesd-1) end if @@ -846,7 +856,7 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i if ((nerv>0).and.(proc_to_comm /= me)) then p2ptag = psb_int_swap_tag call mpi_irecv(rcvbuf(rcv_pt),nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag, icomm,rvhd(i),iret) end if rcv_pt = rcv_pt + nerv @@ -866,16 +876,16 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i nerv = idx(pnti+psb_n_elem_recv_) nesd = idx(pnti+nerv+psb_n_elem_send_) - p2ptag= psb_int_swap_tag + p2ptag = psb_int_swap_tag if ((nesd>0).and.(proc_to_comm /= me)) then if (usersend) then call mpi_rsend(sndbuf(snd_pt),nesd,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,iret) else call mpi_send(sndbuf(snd_pt),nesd,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,iret) end if @@ -910,7 +920,9 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i end if else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swapdata: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swapdata: mismatch on self send', & + & nerv,nesd end if rcvbuf(rcv_pt:rcv_pt+nerv-1) = sndbuf(snd_pt:snd_pt+nesd-1) end if @@ -998,3 +1010,440 @@ subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i end if return end subroutine psi_iswapidxv + +!!$subroutine psi_iswapdata_vect(flag,beta,y,desc_a,work,info,data) +!!$ +!!$ use psi_mod, psb_protect_name => psi_iswapdata_vect +!!$ use psb_i_base_vect_mod +!!$ use psb_error_mod +!!$ use psb_descriptor_type +!!$ use psb_penv_mod +!!$#ifdef MPI_MOD +!!$ use mpi +!!$#endif +!!$ implicit none +!!$#ifdef MPI_H +!!$ include 'mpif.h' +!!$#endif +!!$ +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ class(psb_i_base_vect_type) :: y +!!$ integer(psb_ipk_) :: beta +!!$ integer(psb_ipk_), target :: work(:) +!!$ type(psb_desc_type),target :: desc_a +!!$ integer(psb_ipk_), optional :: data +!!$ +!!$ ! locals +!!$ integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act +!!$ integer(psb_ipk_), pointer :: d_idx(:) +!!$ character(len=20) :: name +!!$ +!!$ info=psb_success_ +!!$ name='psi_swap_datav' +!!$ call psb_erractionsave(err_act) +!!$ +!!$ ictxt=desc_a%get_context() +!!$ call psb_info(ictxt,me,np) +!!$ if (np == -1) then +!!$ info=psb_err_context_error_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ if (.not.psb_is_asb_desc(desc_a)) then +!!$ info=psb_err_invalid_cd_state_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ icomm = desc_a%get_mpic() +!!$ +!!$ if(present(data)) then +!!$ data_ = data +!!$ else +!!$ data_ = psb_comm_halo_ +!!$ end if +!!$ +!!$ call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) +!!$ if (info /= psb_success_) then +!!$ call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') +!!$ goto 9999 +!!$ end if +!!$ +!!$ call psi_swapdata(ictxt,icomm,flag,beta,y,d_idx,totxch,idxs,idxr,work,info) +!!$ if (info /= psb_success_) goto 9999 +!!$ +!!$ call psb_erractionrestore(err_act) +!!$ return +!!$ +!!$9999 continue +!!$ call psb_erractionrestore(err_act) +!!$ if (err_act == psb_act_abort_) then +!!$ call psb_error(ictxt) +!!$ return +!!$ end if +!!$ return +!!$end subroutine psi_iswapdata_vect +!!$ +!!$ +!!$subroutine psi_iswapidx_vect(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,info) +!!$ +!!$ use psi_mod, psb_protect_name => psi_iswapidx_vect +!!$ use psb_error_mod +!!$ use psb_descriptor_type +!!$ use psb_penv_mod +!!$ use psb_i_base_vect_mod +!!$#ifdef MPI_MOD +!!$ use mpi +!!$#endif +!!$ implicit none +!!$#ifdef MPI_H +!!$ include 'mpif.h' +!!$#endif +!!$ +!!$ integer(psb_ipk_), intent(in) :: ictxt,icomm,flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ class(psb_i_base_vect_type) :: y +!!$ integer(psb_ipk_) :: beta +!!$ integer(psb_ipk_), target :: work(:) +!!$ integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv +!!$ +!!$ ! locals +!!$ integer(psb_ipk_) :: np, me, nesd, nerv,& +!!$ & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& +!!$ & iret, err_act, i, totsnd_, totrcv_,& +!!$ & idx_pt, snd_pt, rcv_pt, n, pnti, data_ +!!$ +!!$ integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& +!!$ & sdsz, rvsz, prcid, rvhd, sdhd +!!$ integer(psb_ipk_) :: int_err(5) +!!$ logical :: swap_mpi, swap_sync, swap_send, swap_recv,& +!!$ & albf,do_send,do_recv +!!$ logical, parameter :: usersend=.false. +!!$ +!!$ integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf +!!$#ifdef HAVE_VOLATILE +!!$ volatile :: sndbuf, rcvbuf +!!$#endif +!!$ character(len=20) :: name +!!$ +!!$ info=psb_success_ +!!$ name='psi_swap_datav' +!!$ call psb_erractionsave(err_act) +!!$ +!!$ call psb_info(ictxt,me,np) +!!$ if (np == -1) then +!!$ info=psb_err_context_error_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ n=1 +!!$ +!!$ swap_mpi = iand(flag,psb_swap_mpi_) /= 0 +!!$ swap_sync = iand(flag,psb_swap_sync_) /= 0 +!!$ swap_send = iand(flag,psb_swap_send_) /= 0 +!!$ swap_recv = iand(flag,psb_swap_recv_) /= 0 +!!$ do_send = swap_mpi .or. swap_sync .or. swap_send +!!$ do_recv = swap_mpi .or. swap_sync .or. swap_recv +!!$ +!!$ totrcv_ = totrcv * n +!!$ totsnd_ = totsnd * n +!!$ +!!$ if (swap_mpi) then +!!$ allocate(sdsz(0:np-1), rvsz(0:np-1), bsdidx(0:np-1),& +!!$ & brvidx(0:np-1), rvhd(0:np-1), sdhd(0:np-1), prcid(0:np-1),& +!!$ & stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ +!!$ rvhd(:) = mpi_request_null +!!$ sdsz(:) = 0 +!!$ rvsz(:) = 0 +!!$ +!!$ ! prepare info for communications +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ call psb_get_rank(prcid(proc_to_comm),ictxt,proc_to_comm) +!!$ +!!$ brvidx(proc_to_comm) = rcv_pt +!!$ rvsz(proc_to_comm) = nerv +!!$ +!!$ bsdidx(proc_to_comm) = snd_pt +!!$ sdsz(proc_to_comm) = nesd +!!$ +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ else +!!$ allocate(rvhd(totxch),prcid(totxch),stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ end if +!!$ +!!$ +!!$ totrcv_ = max(totrcv_,1) +!!$ totsnd_ = max(totsnd_,1) +!!$ if((totrcv_+totsnd_) < size(work)) then +!!$ sndbuf => work(1:totsnd_) +!!$ rcvbuf => work(totsnd_+1:totsnd_+totrcv_) +!!$ albf=.false. +!!$ else +!!$ allocate(sndbuf(totsnd_),rcvbuf(totrcv_), stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ albf=.true. +!!$ end if +!!$ +!!$ +!!$ if (do_send) then +!!$ +!!$ ! Pack send buffers +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ do i=1, totxch +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ idx_pt = 1+pnti+nerv+psb_n_elem_send_ +!!$ call y%gth(nesd,idx(idx_pt:idx_pt+nesd-1),& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1)) +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ end if +!!$ +!!$ ! Case SWAP_MPI +!!$ if (swap_mpi) then +!!$ +!!$ ! swap elements using mpi_alltoallv +!!$ call mpi_alltoallv(sndbuf,sdsz,bsdidx,& +!!$ & psb_mpi_integer,rcvbuf,rvsz,& +!!$ & brvidx,psb_mpi_integer,icomm,iret) +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ +!!$ else if (swap_sync) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ if (proc_to_comm < me) then +!!$ if (nesd>0) call psb_snd(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ if (nerv>0) call psb_rcv(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ else if (proc_to_comm > me) then +!!$ if (nerv>0) call psb_rcv(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ if (nesd>0) call psb_snd(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ else if (proc_to_comm == me) then +!!$ if (nesd /= nerv) then +!!$ write(psb_err_unit,*) & +!!$ & 'Fatal error in swapdata: mismatch on self send',& +!!$ & nerv,nesd +!!$ end if +!!$ rcvbuf(rcv_pt:rcv_pt+nerv-1) = sndbuf(snd_pt:snd_pt+nesd-1) +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ else if (swap_send .and. swap_recv) then +!!$ +!!$ ! First I post all the non blocking receives +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ call psb_get_rank(prcid(i),ictxt,proc_to_comm) +!!$ if ((nerv>0).and.(proc_to_comm /= me)) then +!!$ p2ptag = psb_int_swap_tag +!!$ call mpi_irecv(rcvbuf(rcv_pt),nerv,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag, icomm,rvhd(i),iret) +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ ! Then I post all the blocking sends +!!$ if (usersend) call mpi_barrier(icomm,info) +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ p2ptag = psb_int_swap_tag +!!$ +!!$ if ((nesd>0).and.(proc_to_comm /= me)) then +!!$ if (usersend) then +!!$ call mpi_rsend(sndbuf(snd_pt),nesd,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag,icomm,iret) +!!$ else +!!$ call mpi_send(sndbuf(snd_pt),nesd,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag,icomm,iret) +!!$ end if +!!$ +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ pnti = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ p2ptag = psb_int_swap_tag +!!$ +!!$ if ((proc_to_comm /= me).and.(nerv>0)) then +!!$ call mpi_wait(rvhd(i),p2pstat,iret) +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ else if (proc_to_comm == me) then +!!$ if (nesd /= nerv) then +!!$ write(psb_err_unit,*) & +!!$ & 'Fatal error in swapdata: mismatch on self send',& +!!$ & nerv,nesd +!!$ end if +!!$ rcvbuf(rcv_pt:rcv_pt+nerv-1) = sndbuf(snd_pt:snd_pt+nesd-1) +!!$ end if +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ else if (swap_send) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ if (nesd>0) call psb_snd(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ else if (swap_recv) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ if (nerv>0) call psb_rcv(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ end if +!!$ +!!$ if (do_recv) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ idx_pt = 1+pnti+psb_n_elem_recv_ +!!$ call y%sct(nerv,idx(idx_pt:idx_pt+nerv-1),& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1),beta) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ end if +!!$ +!!$ if (swap_mpi) then +!!$ deallocate(sdsz,rvsz,bsdidx,brvidx,rvhd,prcid,sdhd,& +!!$ & stat=info) +!!$ else +!!$ deallocate(rvhd,prcid,stat=info) +!!$ end if +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ if(albf) deallocate(sndbuf,rcvbuf,stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ +!!$ call psb_erractionrestore(err_act) +!!$ return +!!$ +!!$9999 continue +!!$ call psb_erractionrestore(err_act) +!!$ if (err_act == psb_act_abort_) then +!!$ call psb_error(ictxt) +!!$ return +!!$ end if +!!$ return +!!$end subroutine psi_iswapidx_vect + diff --git a/base/internals/psi_iswaptran.F90 b/base/internals/psi_iswaptran.F90 index bea88a621..011e99cb8 100644 --- a/base/internals/psi_iswaptran.F90 +++ b/base/internals/psi_iswaptran.F90 @@ -42,7 +42,9 @@ ! it is capable of pruning empty exchanges, which are very likely in out ! application environment. All the variants have the same structure ! In all these subroutines X may be: I Integer +! S real(psb_spk_) ! D real(psb_dpk_) +! C complex(psb_spk_) ! Z complex(psb_dpk_) ! Basically the operation is as follows: on each process, we identify ! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y))); @@ -99,17 +101,17 @@ subroutine psi_iswaptranm(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) - type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) + type(psb_desc_type),target :: desc_a + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -173,25 +175,25 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. - integer, pointer, dimension(:) :: sndbuf, rcvbuf + integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf #ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf #endif @@ -309,8 +311,8 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work ! swap elements using mpi_alltoallv call mpi_alltoallv(rcvbuf,rvsz,brvidx,& - & mpi_integer,& - & sndbuf,sdsz,bsdidx,mpi_integer,icomm,iret) + & psb_mpi_integer,& + & sndbuf,sdsz,bsdidx,psb_mpi_integer,icomm,iret) if(iret /= mpi_success) then int_err(1) = iret info=psb_err_mpi_error_ @@ -340,7 +342,9 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work & rcvbuf(rcv_pt:rcv_pt+n*nerv-1), proc_to_comm) else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swaptran: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swaptran: mismatch on self send', & + & nerv,nesd end if sndbuf(snd_pt:snd_pt+n*nesd-1) = rcvbuf(rcv_pt:rcv_pt+n*nerv-1) end if @@ -365,7 +369,7 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work if ((nesd>0).and.(proc_to_comm /= me)) then p2ptag = psb_int_swap_tag call mpi_irecv(sndbuf(snd_pt),n*nesd,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,rvhd(i),iret) end if rcv_pt = rcv_pt + n*nerv @@ -386,14 +390,14 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work nesd = idx(pnti+nerv+psb_n_elem_send_) if ((nerv>0).and.(proc_to_comm /= me)) then - p2ptag= psb_int_swap_tag + p2ptag = psb_int_swap_tag if (usersend) then call mpi_rsend(rcvbuf(rcv_pt),n*nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,iret) else call mpi_send(rcvbuf(rcv_pt),n*nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,iret) end if @@ -429,7 +433,9 @@ subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work end if else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swaptran: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swaptran: mismatch on self send',& + & nerv,nesd end if sndbuf(snd_pt:snd_pt+n*nesd-1) = rcvbuf(rcv_pt:rcv_pt+n*nerv-1) end if @@ -531,7 +537,9 @@ end subroutine psi_itranidxm ! it is capable of pruning empty exchanges, which are very likely in out ! application environment. All the variants have the same structure ! In all these subroutines X may be: I Integer +! S real(psb_spk_) ! D real(psb_dpk_) +! C complex(psb_spk_) ! Z complex(psb_dpk_) ! Basically the operation is as follows: on each process, we identify ! sections SND(Y) and RCV(Y); then we do a SEND(PACK(SND(Y))); @@ -588,17 +596,17 @@ subroutine psi_iswaptranv(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -663,25 +671,25 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. - integer, pointer, dimension(:) :: sndbuf, rcvbuf + integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf #ifdef HAVE_VOLATILE volatile :: sndbuf, rcvbuf #endif @@ -798,8 +806,8 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i ! swap elements using mpi_alltoallv call mpi_alltoallv(rcvbuf,rvsz,brvidx,& - & mpi_integer,& - & sndbuf,sdsz,bsdidx,mpi_integer,icomm,iret) + & psb_mpi_integer,& + & sndbuf,sdsz,bsdidx,psb_mpi_integer,icomm,iret) if(iret /= mpi_success) then int_err(1) = iret info=psb_err_mpi_error_ @@ -829,7 +837,9 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swaptran: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swaptran: mismatch on self send', & + & nerv,nesd end if sndbuf(snd_pt:snd_pt+nesd-1) = rcvbuf(rcv_pt:rcv_pt+nerv-1) end if @@ -854,7 +864,7 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i if ((nesd>0).and.(proc_to_comm /= me)) then p2ptag = psb_int_swap_tag call mpi_irecv(sndbuf(snd_pt),nesd,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag,icomm,rvhd(i),iret) end if rcv_pt = rcv_pt + nerv @@ -875,14 +885,14 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i nesd = idx(pnti+nerv+psb_n_elem_send_) if ((nerv>0).and.(proc_to_comm /= me)) then - p2ptag= psb_int_swap_tag + p2ptag = psb_int_swap_tag if (usersend) then call mpi_rsend(rcvbuf(rcv_pt),nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag, icomm,iret) else call mpi_send(rcvbuf(rcv_pt),nerv,& - & mpi_integer,prcid(i),& + & psb_mpi_integer,prcid(i),& & p2ptag, icomm,iret) end if @@ -917,7 +927,9 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i end if else if (proc_to_comm == me) then if (nesd /= nerv) then - write(psb_err_unit,*) 'Fatal error in swaptran: mismatch on self sendf',nerv,nesd + write(psb_err_unit,*) & + & 'Fatal error in swaptran: mismatch on self send', & + & nerv,nesd end if sndbuf(snd_pt:snd_pt+nesd-1) = rcvbuf(rcv_pt:rcv_pt+nerv-1) end if @@ -1009,3 +1021,452 @@ subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i end if return end subroutine psi_itranidxv + + +!!$subroutine psi_iswaptran_vect(flag,beta,y,desc_a,work,info,data) +!!$ +!!$ use psi_mod, psb_protect_name => psi_iswaptran_vect +!!$ use psb_error_mod +!!$ use psb_descriptor_type +!!$ use psb_penv_mod +!!$ use psb_i_base_vect_mod +!!$#ifdef MPI_MOD +!!$ use mpi +!!$#endif +!!$ implicit none +!!$#ifdef MPI_H +!!$ include 'mpif.h' +!!$#endif +!!$ +!!$ integer(psb_ipk_), intent(in) :: flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ class(psb_i_base_vect_type) :: y +!!$ integer(psb_ipk_) :: beta +!!$ integer(psb_ipk_), target :: work(:) +!!$ type(psb_desc_type),target :: desc_a +!!$ integer(psb_ipk_), optional :: data +!!$ +!!$ ! locals +!!$ integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ +!!$ integer(psb_ipk_), pointer :: d_idx(:) +!!$ integer(psb_ipk_) :: int_err(5) +!!$ character(len=20) :: name +!!$ +!!$ info=psb_success_ +!!$ name='psi_swap_tranv' +!!$ call psb_erractionsave(err_act) +!!$ +!!$ ictxt = desc_a%get_context() +!!$ icomm = desc_a%get_mpic() +!!$ call psb_info(ictxt,me,np) +!!$ if (np == -1) then +!!$ info=psb_err_context_error_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ if (.not.psb_is_asb_desc(desc_a)) then +!!$ info=psb_err_invalid_cd_state_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ if (present(data)) then +!!$ data_ = data +!!$ else +!!$ data_ = psb_comm_halo_ +!!$ end if +!!$ +!!$ call desc_a%get_list(data_,d_idx,totxch,idxr,idxs,info) +!!$ if (info /= psb_success_) then +!!$ call psb_errpush(psb_err_internal_error_,name,a_err='psb_cd_get_list') +!!$ goto 9999 +!!$ end if +!!$ +!!$ call psi_swaptran(ictxt,icomm,flag,beta,y,d_idx,totxch,idxs,idxr,work,info) +!!$ if (info /= psb_success_) goto 9999 +!!$ +!!$ call psb_erractionrestore(err_act) +!!$ return +!!$ +!!$9999 continue +!!$ call psb_erractionrestore(err_act) +!!$ if (err_act == psb_act_abort_) then +!!$ call psb_error(ictxt) +!!$ return +!!$ end if +!!$ return +!!$end subroutine psi_iswaptran_vect +!!$ +!!$ +!!$ +!!$subroutine psi_itranidx_vect(ictxt,icomm,flag,beta,y,idx,& +!!$ & totxch,totsnd,totrcv,work,info) +!!$ +!!$ use psi_mod, psb_protect_name => psi_itranidx_vect +!!$ use psb_error_mod +!!$ use psb_descriptor_type +!!$ use psb_penv_mod +!!$ use psb_i_base_vect_mod +!!$#ifdef MPI_MOD +!!$ use mpi +!!$#endif +!!$ implicit none +!!$#ifdef MPI_H +!!$ include 'mpif.h' +!!$#endif +!!$ +!!$ integer(psb_ipk_), intent(in) :: ictxt,icomm,flag +!!$ integer(psb_ipk_), intent(out) :: info +!!$ class(psb_i_base_vect_type) :: y +!!$ integer(psb_ipk_) :: beta +!!$ integer(psb_ipk_), target :: work(:) +!!$ integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv +!!$ +!!$ ! locals +!!$ integer(psb_ipk_) :: np, me, nesd, nerv,& +!!$ & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& +!!$ & iret, err_act, i, idx_pt, totsnd_, totrcv_,& +!!$ & snd_pt, rcv_pt, pnti, data_, n +!!$ integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& +!!$ & sdsz, rvsz, prcid, rvhd, sdhd +!!$ integer(psb_ipk_) :: int_err(5) +!!$ logical :: swap_mpi, swap_sync, swap_send, swap_recv,& +!!$ & albf,do_send,do_recv +!!$ logical, parameter :: usersend=.false. +!!$ +!!$ integer(psb_ipk_), pointer, dimension(:) :: sndbuf, rcvbuf +!!$#ifdef HAVE_VOLATILE +!!$ volatile :: sndbuf, rcvbuf +!!$#endif +!!$ character(len=20) :: name +!!$ +!!$ info=psb_success_ +!!$ name='psi_swap_tran' +!!$ call psb_erractionsave(err_act) +!!$ +!!$ call psb_info(ictxt,me,np) +!!$ if (np == -1) then +!!$ info=psb_err_context_error_ +!!$ call psb_errpush(info,name) +!!$ goto 9999 +!!$ endif +!!$ +!!$ n=1 +!!$ swap_mpi = iand(flag,psb_swap_mpi_) /= 0 +!!$ swap_sync = iand(flag,psb_swap_sync_) /= 0 +!!$ swap_send = iand(flag,psb_swap_send_) /= 0 +!!$ swap_recv = iand(flag,psb_swap_recv_) /= 0 +!!$ do_send = swap_mpi .or. swap_sync .or. swap_send +!!$ do_recv = swap_mpi .or. swap_sync .or. swap_recv +!!$ +!!$ totrcv_ = totrcv * n +!!$ totsnd_ = totsnd * n +!!$ +!!$ if (swap_mpi) then +!!$ allocate(sdsz(0:np-1), rvsz(0:np-1), bsdidx(0:np-1),& +!!$ & brvidx(0:np-1), rvhd(0:np-1), sdhd(0:np-1), prcid(0:np-1),& +!!$ & stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ +!!$ rvhd(:) = mpi_request_null +!!$ sdsz(:) = 0 +!!$ rvsz(:) = 0 +!!$ +!!$ ! prepare info for communications +!!$ +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ call psb_get_rank(prcid(proc_to_comm),ictxt,proc_to_comm) +!!$ +!!$ brvidx(proc_to_comm) = rcv_pt +!!$ rvsz(proc_to_comm) = nerv +!!$ +!!$ bsdidx(proc_to_comm) = snd_pt +!!$ sdsz(proc_to_comm) = nesd +!!$ +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ else +!!$ allocate(rvhd(totxch),prcid(totxch),stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ end if +!!$ +!!$ +!!$ totrcv_ = max(totrcv_,1) +!!$ totsnd_ = max(totsnd_,1) +!!$ if((totrcv_+totsnd_) < size(work)) then +!!$ sndbuf => work(1:totsnd_) +!!$ rcvbuf => work(totsnd_+1:totsnd_+totrcv_) +!!$ albf=.false. +!!$ else +!!$ allocate(sndbuf(totsnd_),rcvbuf(totrcv_), stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ albf=.true. +!!$ end if +!!$ +!!$ +!!$ if (do_send) then +!!$ +!!$ ! Pack send buffers +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ idx_pt = 1+pnti+psb_n_elem_recv_ +!!$ +!!$ call y%gth(nerv,idx(idx_pt:idx_pt+nerv-1),& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1)) +!!$ +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ end if +!!$ +!!$ ! Case SWAP_MPI +!!$ if (swap_mpi) then +!!$ +!!$ ! swap elements using mpi_alltoallv +!!$ call mpi_alltoallv(rcvbuf,rvsz,brvidx,& +!!$ & psb_mpi_integer,& +!!$ & sndbuf,sdsz,bsdidx,psb_mpi_integer,icomm,iret) +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ +!!$ else if (swap_sync) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ if (proc_to_comm < me) then +!!$ if (nerv>0) call psb_snd(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ if (nesd>0) call psb_rcv(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ else if (proc_to_comm > me) then +!!$ if (nesd>0) call psb_rcv(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ if (nerv>0) call psb_snd(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ else if (proc_to_comm == me) then +!!$ if (nesd /= nerv) then +!!$ write(psb_err_unit,*) & +!!$ & 'Fatal error in swaptran: mismatch on self send',& +!!$ & nerv,nesd +!!$ end if +!!$ sndbuf(snd_pt:snd_pt+nesd-1) = rcvbuf(rcv_pt:rcv_pt+nerv-1) +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ +!!$ else if (swap_send .and. swap_recv) then +!!$ +!!$ ! First I post all the non blocking receives +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ call psb_get_rank(prcid(i),ictxt,proc_to_comm) +!!$ if ((nesd>0).and.(proc_to_comm /= me)) then +!!$ p2ptag = psb_int_swap_tag +!!$ call mpi_irecv(sndbuf(snd_pt),nesd,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag,icomm,rvhd(i),iret) +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ ! Then I post all the blocking sends +!!$ if (usersend) call mpi_barrier(icomm,info) +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ +!!$ if ((nerv>0).and.(proc_to_comm /= me)) then +!!$ p2ptag = psb_int_swap_tag +!!$ if (usersend) then +!!$ call mpi_rsend(rcvbuf(rcv_pt),nerv,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag, icomm,iret) +!!$ else +!!$ call mpi_send(rcvbuf(rcv_pt),nerv,& +!!$ & psb_mpi_integer,prcid(i),& +!!$ & p2ptag, icomm,iret) +!!$ end if +!!$ +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ end if +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ +!!$ pnti = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ p2ptag = psb_int_swap_tag +!!$ +!!$ if ((proc_to_comm /= me).and.(nesd>0)) then +!!$ call mpi_wait(rvhd(i),p2pstat,iret) +!!$ if(iret /= mpi_success) then +!!$ int_err(1) = iret +!!$ info=psb_err_mpi_error_ +!!$ call psb_errpush(info,name,i_err=int_err) +!!$ goto 9999 +!!$ end if +!!$ else if (proc_to_comm == me) then +!!$ if (nesd /= nerv) then +!!$ write(psb_err_unit,*) & +!!$ & 'Fatal error in swaptran: mismatch on self send', & +!!$ & nerv,nesd +!!$ end if +!!$ sndbuf(snd_pt:snd_pt+nesd-1) = rcvbuf(rcv_pt:rcv_pt+nerv-1) +!!$ end if +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ +!!$ else if (swap_send) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ if (nerv>0) call psb_snd(ictxt,& +!!$ & rcvbuf(rcv_pt:rcv_pt+nerv-1), proc_to_comm) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ else if (swap_recv) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ if (nesd>0) call psb_rcv(ictxt,& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1), proc_to_comm) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ +!!$ end do +!!$ +!!$ end if +!!$ +!!$ +!!$ if (do_recv) then +!!$ +!!$ pnti = 1 +!!$ snd_pt = 1 +!!$ rcv_pt = 1 +!!$ do i=1, totxch +!!$ proc_to_comm = idx(pnti+psb_proc_id_) +!!$ nerv = idx(pnti+psb_n_elem_recv_) +!!$ nesd = idx(pnti+nerv+psb_n_elem_send_) +!!$ idx_pt = 1+pnti+nerv+psb_n_elem_send_ +!!$ call y%sct(nesd,idx(idx_pt:idx_pt+nesd-1),& +!!$ & sndbuf(snd_pt:snd_pt+nesd-1),beta) +!!$ rcv_pt = rcv_pt + nerv +!!$ snd_pt = snd_pt + nesd +!!$ pnti = pnti + nerv + nesd + 3 +!!$ end do +!!$ +!!$ end if +!!$ +!!$ +!!$ if (swap_mpi) then +!!$ deallocate(sdsz,rvsz,bsdidx,brvidx,rvhd,prcid,sdhd,& +!!$ & stat=info) +!!$ else +!!$ deallocate(rvhd,prcid,stat=info) +!!$ end if +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ if(albf) deallocate(sndbuf,rcvbuf,stat=info) +!!$ if(info /= psb_success_) then +!!$ call psb_errpush(psb_err_alloc_dealloc_,name) +!!$ goto 9999 +!!$ end if +!!$ +!!$ call psb_erractionrestore(err_act) +!!$ return +!!$ +!!$9999 continue +!!$ call psb_erractionrestore(err_act) +!!$ if (err_act == psb_act_abort_) then +!!$ call psb_error(ictxt) +!!$ return +!!$ end if +!!$ return +!!$end subroutine psi_itranidx_vect +!!$ +!!$ +!!$ diff --git a/base/internals/psi_ldsc_pre_halo.f90 b/base/internals/psi_ldsc_pre_halo.f90 index fb36d4c0f..31cbbaae1 100644 --- a/base/internals/psi_ldsc_pre_halo.f90 +++ b/base/internals/psi_ldsc_pre_halo.f90 @@ -53,14 +53,14 @@ subroutine psi_ldsc_pre_halo(desc,ext_hv,info) implicit none type(psb_desc_type), intent(inout) :: desc logical, intent(in) :: ext_hv - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer,allocatable :: helem(:),hproc(:) - integer,allocatable :: tmphl(:) + integer(psb_ipk_),allocatable :: helem(:),hproc(:) + integer(psb_ipk_),allocatable :: tmphl(:) - integer :: i,j,np,me,lhalo,nhalo,& + integer(psb_ipk_) :: i,j,np,me,lhalo,nhalo,& & n_col, err_act, key, ih, nh, idx, nk,icomm - integer :: ictxt,n_row + integer(psb_ipk_) :: ictxt,n_row character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/internals/psi_list_search.f b/base/internals/psi_list_search.f index 5130edae3..8616b245d 100644 --- a/base/internals/psi_list_search.f +++ b/base/internals/psi_list_search.f @@ -30,14 +30,15 @@ C POSSIBILITY OF SUCH DAMAGE. C C INTEGER FUNCTION PSI_LIST_SEARCH(LIST,LENGHT_LIST,ELEM) + use psb_const_mod C !RETURNS POSITION OF ELEM IN A ARRAY LIST C !OF LENGHT LENGHT_LIST, IF THIS ELEMENT NOT EXISTS C !RETURNS -1 - INTEGER LIST(*) - INTEGER LENGHT_LIST - INTEGER ELEM + INTEGER(psb_ipk_) :: LIST(*) + INTEGER(psb_ipk_) :: LENGHT_LIST + INTEGER(psb_ipk_) :: ELEM - INTEGER I + INTEGER(psb_ipk_) :: I I=1 DO WHILE ((I.LE.LENGHT_LIST).AND.(LIST(I).NE.ELEM)) diff --git a/base/internals/psi_ovrl_restr.f90 b/base/internals/psi_ovrl_restr.f90 index a351321c9..180bcde2e 100644 --- a/base/internals/psi_ovrl_restr.f90 +++ b/base/internals/psi_ovrl_restr.f90 @@ -37,10 +37,10 @@ subroutine psi_sovrl_restrr1(x,xs,desc_a,info) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_restrr1' @@ -83,10 +83,10 @@ subroutine psi_sovrl_restrr2(x,xs,desc_a,info) real(psb_spk_), intent(inout) :: x(:,:) real(psb_spk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_restrr2' @@ -137,10 +137,10 @@ subroutine psi_dovrl_restrr1(x,xs,desc_a,info) real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_restrr1' @@ -184,10 +184,10 @@ subroutine psi_dovrl_restrr2(x,xs,desc_a,info) real(psb_dpk_), intent(inout) :: x(:,:) real(psb_dpk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_restrr2' @@ -238,10 +238,10 @@ subroutine psi_covrl_restrr1(x,xs,desc_a,info) complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_covrl_restrr1' @@ -284,10 +284,10 @@ subroutine psi_covrl_restrr2(x,xs,desc_a,info) complex(psb_spk_), intent(inout) :: x(:,:) complex(psb_spk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_covrl_restrr2' @@ -338,10 +338,10 @@ subroutine psi_zovrl_restrr1(x,xs,desc_a,info) complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_zovrl_restrr1' @@ -384,10 +384,10 @@ subroutine psi_zovrl_restrr2(x,xs,desc_a,info) complex(psb_dpk_), intent(inout) :: x(:,:) complex(psb_dpk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_zovrl_restrr2' @@ -435,13 +435,13 @@ subroutine psi_iovrl_restrr1(x,xs,desc_a,info) implicit none - integer, intent(inout) :: x(:) - integer :: xs(:) + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_iovrl_restrr1' @@ -481,13 +481,13 @@ subroutine psi_iovrl_restrr2(x,xs,desc_a,info) implicit none - integer, intent(inout) :: x(:,:) - integer :: xs(:,:) + integer(psb_ipk_), intent(inout) :: x(:,:) + integer(psb_ipk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_iovrl_restrr2' @@ -540,10 +540,10 @@ subroutine psi_sovrl_restr_vect(x,xs,desc_a,info) class(psb_s_base_vect_type) :: x real(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_restrr1' @@ -585,10 +585,10 @@ subroutine psi_dovrl_restr_vect(x,xs,desc_a,info) class(psb_d_base_vect_type) :: x real(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_restrr1' @@ -632,10 +632,10 @@ subroutine psi_covrl_restr_vect(x,xs,desc_a,info) class(psb_c_base_vect_type) :: x complex(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_covrl_restrr1' @@ -677,10 +677,10 @@ subroutine psi_zovrl_restr_vect(x,xs,desc_a,info) class(psb_z_base_vect_type) :: x complex(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_zovrl_restrr1' diff --git a/base/internals/psi_ovrl_save.f90 b/base/internals/psi_ovrl_save.f90 index debfb26d2..aeed991fa 100644 --- a/base/internals/psi_ovrl_save.f90 +++ b/base/internals/psi_ovrl_save.f90 @@ -39,10 +39,10 @@ subroutine psi_sovrl_saver1(x,xs,desc_a,info) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_saver1' @@ -92,10 +92,10 @@ subroutine psi_sovrl_saver2(x,xs,desc_a,info) real(psb_spk_), intent(inout) :: x(:,:) real(psb_spk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz, nc + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz, nc character(len=20) :: name, ch_err name='psi_sovrl_saver2' @@ -147,10 +147,10 @@ subroutine psi_dovrl_saver1(x,xs,desc_a,info) real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_saver1' @@ -201,10 +201,10 @@ subroutine psi_dovrl_saver2(x,xs,desc_a,info) real(psb_dpk_), intent(inout) :: x(:,:) real(psb_dpk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz, nc + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz, nc character(len=20) :: name, ch_err name='psi_dovrl_saver2' @@ -255,10 +255,10 @@ subroutine psi_covrl_saver1(x,xs,desc_a,info) complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_covrl_saver1' @@ -309,10 +309,10 @@ subroutine psi_covrl_saver2(x,xs,desc_a,info) complex(psb_spk_), intent(inout) :: x(:,:) complex(psb_spk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz, nc + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz, nc character(len=20) :: name, ch_err name='psi_covrl_saver2' @@ -365,10 +365,10 @@ subroutine psi_zovrl_saver1(x,xs,desc_a,info) complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_zovrl_saver1' @@ -420,10 +420,10 @@ subroutine psi_zovrl_saver2(x,xs,desc_a,info) complex(psb_dpk_), intent(inout) :: x(:,:) complex(psb_dpk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz, nc + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz, nc character(len=20) :: name, ch_err name='psi_zovrl_saver2' @@ -473,13 +473,13 @@ subroutine psi_iovrl_saver1(x,xs,desc_a,info) implicit none - integer, intent(inout) :: x(:) - integer, allocatable :: xs(:) + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_iovrl_saver1' @@ -529,13 +529,13 @@ subroutine psi_iovrl_saver2(x,xs,desc_a,info) use psb_penv_mod implicit none - integer, intent(inout) :: x(:,:) - integer, allocatable :: xs(:,:) + integer(psb_ipk_), intent(inout) :: x(:,:) + integer(psb_ipk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz, nc + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz, nc character(len=20) :: name, ch_err name='psi_iovrl_saver2' @@ -589,10 +589,10 @@ subroutine psi_sovrl_save_vect(x,xs,desc_a,info) class(psb_s_base_vect_type) :: x real(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_saver1' @@ -640,10 +640,10 @@ subroutine psi_dovrl_save_vect(x,xs,desc_a,info) class(psb_d_base_vect_type) :: x real(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_saver1' @@ -691,10 +691,10 @@ subroutine psi_covrl_save_vect(x,xs,desc_a,info) class(psb_c_base_vect_type) :: x complex(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_sovrl_saver1' @@ -742,10 +742,10 @@ subroutine psi_zovrl_save_vect(x,xs,desc_a,info) class(psb_z_base_vect_type) :: x complex(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, isz + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, isz character(len=20) :: name, ch_err name='psi_dovrl_saver1' diff --git a/base/internals/psi_ovrl_upd.f90 b/base/internals/psi_ovrl_upd.f90 index 2967acaeb..72e9e4d90 100644 --- a/base/internals/psi_ovrl_upd.f90 +++ b/base/internals/psi_ovrl_upd.f90 @@ -37,11 +37,11 @@ subroutine psi_sovrl_updr1(x,desc_a,update,info) real(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_sovrl_updr1' @@ -107,11 +107,11 @@ subroutine psi_sovrl_updr2(x,desc_a,update,info) real(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_sovrl_updr2' @@ -176,11 +176,11 @@ subroutine psi_dovrl_updr1(x,desc_a,update,info) real(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_dovrl_updr1' @@ -246,11 +246,11 @@ subroutine psi_dovrl_updr2(x,desc_a,update,info) real(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_dovrl_updr2' @@ -315,11 +315,11 @@ subroutine psi_covrl_updr1(x,desc_a,update,info) complex(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_covrl_updr1' @@ -385,11 +385,11 @@ subroutine psi_covrl_updr2(x,desc_a,update,info) complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_covrl_updr2' @@ -454,11 +454,11 @@ subroutine psi_zovrl_updr1(x,desc_a,update,info) complex(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_zovrl_updr1' @@ -524,11 +524,11 @@ subroutine psi_zovrl_updr2(x,desc_a,update,info) complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_zovrl_updr2' @@ -591,13 +591,13 @@ subroutine psi_iovrl_updr1(x,desc_a,update,info) implicit none - integer, intent(inout), target :: x(:) + integer(psb_ipk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_iovrl_updr1' @@ -662,13 +662,13 @@ subroutine psi_iovrl_updr2(x,desc_a,update,info) implicit none - integer, intent(inout), target :: x(:,:) + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm character(len=20) :: name, ch_err name='psi_iovrl_updr2' @@ -737,12 +737,12 @@ subroutine psi_sovrl_upd_vect(x,desc_a,update,info) class(psb_s_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals real(psb_spk_), allocatable :: xs(:) - integer :: ictxt, np, me, err_act, i, idx, ndm, nx + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm, nx character(len=20) :: name, ch_err @@ -819,12 +819,12 @@ subroutine psi_dovrl_upd_vect(x,desc_a,update,info) class(psb_d_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals real(psb_dpk_), allocatable :: xs(:) - integer :: ictxt, np, me, err_act, i, idx, ndm, nx + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm, nx character(len=20) :: name, ch_err @@ -902,12 +902,12 @@ subroutine psi_covrl_upd_vect(x,desc_a,update,info) class(psb_c_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals complex(psb_spk_), allocatable :: xs(:) - integer :: ictxt, np, me, err_act, i, idx, ndm, nx + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm, nx character(len=20) :: name, ch_err @@ -984,12 +984,12 @@ subroutine psi_zovrl_upd_vect(x,desc_a,update,info) class(psb_z_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info ! locals complex(psb_dpk_), allocatable :: xs(:) - integer :: ictxt, np, me, err_act, i, idx, ndm, nx + integer(psb_ipk_) :: ictxt, np, me, err_act, i, idx, ndm, nx character(len=20) :: name, ch_err diff --git a/base/internals/psi_sort_dl.f90 b/base/internals/psi_sort_dl.f90 index 606370a10..1ba6b8cd3 100644 --- a/base/internals/psi_sort_dl.f90 +++ b/base/internals/psi_sort_dl.f90 @@ -39,11 +39,11 @@ subroutine psi_sort_dl(dep_list,l_dep_list,np,info) use psb_error_mod implicit none - integer :: np,dep_list(:,:), l_dep_list(:) - integer :: idg, iupd, idgp, iedges, iidx, iich,ndgmx, isz, err_act - integer :: i, info - integer, allocatable :: work(:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,dep_list(:,:), l_dep_list(:) + integer(psb_ipk_) :: idg, iupd, idgp, iedges, iidx, iich,ndgmx, isz, err_act + integer(psb_ipk_) :: i, info + integer(psb_ipk_), allocatable :: work(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name name='psi_sort_dl' diff --git a/base/internals/psi_sswapdata.F90 b/base/internals/psi_sswapdata.F90 index b7abc228f..332e34ccf 100644 --- a/base/internals/psi_sswapdata.F90 +++ b/base/internals/psi_sswapdata.F90 @@ -97,16 +97,16 @@ subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -170,20 +170,20 @@ subroutine psi_sswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -593,16 +593,16 @@ subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -667,21 +667,21 @@ subroutine psi_sswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1026,17 +1026,17 @@ subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -1102,22 +1102,22 @@ subroutine psi_sswapidx_vect(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,wo include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_sswaptran.F90 b/base/internals/psi_sswaptran.F90 index 27e84024f..747b32ab3 100644 --- a/base/internals/psi_sswaptran.F90 +++ b/base/internals/psi_sswaptran.F90 @@ -101,17 +101,17 @@ subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -175,20 +175,20 @@ subroutine psi_stranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -596,17 +596,17 @@ subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -671,20 +671,20 @@ subroutine psi_stranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1038,18 +1038,18 @@ subroutine psi_sswaptran_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -1116,21 +1116,21 @@ subroutine psi_stranidx_vect(ictxt,icomm,flag,beta,y,idx,& include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_zswapdata.F90 b/base/internals/psi_zswapdata.F90 index cf91ea435..6f38a11fc 100644 --- a/base/internals/psi_zswapdata.F90 +++ b/base/internals/psi_zswapdata.F90 @@ -97,16 +97,16 @@ subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -170,20 +170,20 @@ subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -593,16 +593,16 @@ subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -667,21 +667,21 @@ subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1026,17 +1026,17 @@ subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act - integer, pointer :: d_idx(:) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, data_, err_act + integer(psb_ipk_), pointer :: d_idx(:) character(len=20) :: name info=psb_success_ @@ -1102,22 +1102,22 @@ subroutine psi_zswapidx_vect(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,wo include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, totsnd_, totrcv_,& & idx_pt, snd_pt, rcv_pt, n, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/psi_zswaptran.F90 b/base/internals/psi_zswaptran.F90 index 155a445b5..6cd810efb 100644 --- a/base/internals/psi_zswaptran.F90 +++ b/base/internals/psi_zswaptran.F90 @@ -101,17 +101,17 @@ subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag, n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, err_act, totxch, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -175,20 +175,20 @@ subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,totxch,totsnd,totrcv,work include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag,n - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag,n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_ - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -596,17 +596,17 @@ subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -671,20 +671,20 @@ subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,totxch,totsnd,totrcv,work,i include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. @@ -1038,18 +1038,18 @@ subroutine psi_zswaptran_vect(flag,beta,y,desc_a,work,info,data) include 'mpif.h' #endif - integer, intent(in) :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_), target :: work(:) type(psb_desc_type),target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data ! locals - integer :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ - integer, pointer :: d_idx(:) - integer :: int_err(5) + integer(psb_ipk_) :: ictxt, np, me, icomm, idxs, idxr, totxch, err_act, data_ + integer(psb_ipk_), pointer :: d_idx(:) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name info=psb_success_ @@ -1116,21 +1116,21 @@ subroutine psi_ztranidx_vect(ictxt,icomm,flag,beta,y,idx,& include 'mpif.h' #endif - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_), target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd, totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd, totrcv ! locals - integer :: np, me, nesd, nerv,& + integer(psb_ipk_) :: np, me, nesd, nerv,& & proc_to_comm, p2ptag, p2pstat(mpi_status_size),& & iret, err_act, i, idx_pt, totsnd_, totrcv_,& & snd_pt, rcv_pt, pnti, data_, n - integer, allocatable, dimension(:) :: bsdidx, brvidx,& + integer(psb_ipk_), allocatable, dimension(:) :: bsdidx, brvidx,& & sdsz, rvsz, prcid, rvhd, sdhd - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) logical :: swap_mpi, swap_sync, swap_send, swap_recv,& & albf,do_send,do_recv logical, parameter :: usersend=.false. diff --git a/base/internals/srtlist.f b/base/internals/srtlist.f index 3da41c4e9..7105f2b0a 100644 --- a/base/internals/srtlist.f +++ b/base/internals/srtlist.f @@ -81,11 +81,12 @@ C + edges,idx,ich,INFO) use psb_serial_mod IMPLICIT NONE - INTEGER NP, DL_LDA, INFO - INTEGER DEP_LIST(DL_LDA,*), LDL(*),DG(*), DGP(*), IDX(*), - + UPD(*),EDGES(2,*),ICH(*) - INTEGER I,J, NEDGES,IP1,IP2,NCH,IP,IEDGE,I1,IX,IST,ISWAP(2) - INTEGER NO_COMM + INTEGER(psb_ipk_) :: NP, DL_LDA, INFO + INTEGER(psb_ipk_) :: DEP_LIST(DL_LDA,*), LDL(*),DG(*), DGP(*), + + IDX(*), UPD(*),EDGES(2,*),ICH(*) + INTEGER(psb_ipk_) :: I,J, NEDGES,IP1,IP2,NCH,IP,IEDGE, + + I1,IX,IST,ISWAP(2) + INTEGER(psb_ipk_) :: NO_COMM PARAMETER (NO_COMM=-1) diff --git a/base/modules/Makefile b/base/modules/Makefile index 62313350e..717f42497 100644 --- a/base/modules/Makefile +++ b/base/modules/Makefile @@ -50,7 +50,7 @@ psb_error_mod.o: psb_const_mod.o psb_realloc_mod.o: psb_error_mod.o $(UTILS_MODS): $(BASIC_MODS) -psi_comm_buffers_mod.o: psb_const_mod.o +psb_string_mod.o psb_desc_const_mod.o psi_comm_buffers_mod.o: psb_const_mod.o psi_penv_mod.o: psi_comm_buffers_mod.o psi_bcast_mod.o psi_reduce_mod.o psi_p2p_mod.o: psi_penv_mod.o @@ -72,7 +72,7 @@ psb_d_csc_mat_mod.o psb_d_csr_mat_mod.o: psb_d_base_mat_mod.o psb_c_csc_mat_mod.o psb_c_csr_mat_mod.o: psb_c_base_mat_mod.o psb_z_csc_mat_mod.o psb_z_csr_mat_mod.o: psb_z_base_mat_mod.o psb_mat_mod.o: psb_vect_mod.o psb_s_mat_mod.o psb_d_mat_mod.o psb_c_mat_mod.o psb_z_mat_mod.o -error.o psb_realloc_mod.o : psb_error_mod.o +error.o psb_realloc_mod.o: psb_error_mod.o psb_error_impl.o: psb_penv_mod.o psb_spmat_type.o: psb_string_mod.o psb_sort_mod.o psi_i_mod.o: psb_desc_type.o diff --git a/base/modules/error.f90 b/base/modules/error.f90 index 7511fa4d5..f41ec718f 100644 --- a/base/modules/error.f90 +++ b/base/modules/error.f90 @@ -34,21 +34,23 @@ ! subroutine FCpsb_errcomm(ictxt, err) + use psb_const_mod use psb_error_mod - integer, intent(in) :: ictxt - integer, intent(inout):: err + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout):: err call psb_errcomm(ictxt, err) end subroutine FCpsb_errcomm subroutine FCpsb_errpush(err_c, r_name, i_err) + use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=20), intent(in) :: r_name - integer :: i_err(5) + integer(psb_ipk_) :: i_err(5) call psb_errpush(err_c, r_name, i_err) @@ -57,6 +59,7 @@ end subroutine FCpsb_errpush subroutine FCpsb_serror() + use psb_const_mod use psb_error_mod implicit none @@ -69,10 +72,11 @@ end subroutine FCpsb_serror subroutine FCpsb_perror(ictxt) + use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt call psb_error(ictxt) @@ -80,27 +84,24 @@ end subroutine FCpsb_perror - - function FCpsb_get_errstatus() + use psb_const_mod use psb_error_mod implicit none - integer :: FCpsb_get_errstatus + integer(psb_ipk_) :: FCpsb_get_errstatus FCpsb_get_errstatus = psb_get_errstatus() end function FCpsb_get_errstatus - - - subroutine FCpsb_get_errverbosity(v) + use psb_const_mod use psb_error_mod implicit none - integer, intent(out) :: v + integer(psb_ipk_), intent(out) :: v v = psb_get_errverbosity() @@ -108,12 +109,12 @@ end subroutine FCpsb_get_errverbosity - subroutine FCpsb_set_errverbosity(v) + use psb_const_mod use psb_error_mod implicit none - integer, intent(inout) :: v + integer(psb_ipk_), intent(inout) :: v call psb_set_errverbosity(v) @@ -121,13 +122,12 @@ end subroutine FCpsb_set_errverbosity - - subroutine FCpsb_erractionsave(err_act) + use psb_const_mod use psb_error_mod implicit none - integer, intent(out) :: err_act + integer(psb_ipk_), intent(out) :: err_act call psb_erractionsave(err_act) @@ -135,9 +135,10 @@ end subroutine FCpsb_erractionsave subroutine FCpsb_get_erraction(err_act) + use psb_const_mod use psb_error_mod implicit none - integer, intent(out) :: err_act + integer(psb_ipk_), intent(out) :: err_act call psb_get_erraction(err_act) end subroutine FCpsb_get_erraction @@ -145,10 +146,11 @@ end subroutine FCpsb_get_erraction subroutine FCpsb_erractionrestore(err_act) + use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: err_act + integer(psb_ipk_), intent(in) :: err_act call psb_erractionrestore(err_act) diff --git a/base/modules/parts.f90 b/base/modules/parts.f90 index 3ff3037ad..1245c2556 100644 --- a/base/modules/parts.f90 +++ b/base/modules/parts.f90 @@ -1,8 +1,8 @@ module psb_parts_mod interface subroutine psb_parts(glob_index,nrow,np,pv,nv) - integer, intent (in) :: glob_index,np,nrow - integer, intent (out) :: nv, pv(*) + integer(psb_ipk_), intent (in) :: glob_index,np,nrow + integer(psb_ipk_), intent (out) :: nv, pv(*) end subroutine psb_parts end interface end module psb_parts_mod diff --git a/base/modules/psb_base_linmap_mod.f90 b/base/modules/psb_base_linmap_mod.f90 index 441e8b2a0..b7f3c2a50 100644 --- a/base/modules/psb_base_linmap_mod.f90 +++ b/base/modules/psb_base_linmap_mod.f90 @@ -41,8 +41,8 @@ module psb_base_linmap_mod type psb_base_linmap_type - integer :: kind - integer, allocatable :: iaggr(:), naggr(:) + integer(psb_ipk_) :: kind + integer(psb_ipk_), allocatable :: iaggr(:), naggr(:) type(psb_desc_type), pointer :: p_desc_X=>null(), p_desc_Y=>null() type(psb_desc_type) :: desc_X, desc_Y contains @@ -67,7 +67,7 @@ contains function base_get_kind(map) result(val) implicit none class(psb_base_linmap_type), intent(in) :: map - Integer :: val + integer(psb_ipk_) :: val val = map%kind end function base_get_kind @@ -75,7 +75,7 @@ contains subroutine base_set_kind(map_kind,map) implicit none - integer, intent(in) :: map_kind + integer(psb_ipk_), intent(in) :: map_kind class(psb_base_linmap_type), intent(inout) :: map map%kind = map_kind @@ -141,7 +141,7 @@ contains use psb_mat_mod, only : psb_move_alloc implicit none type(psb_base_linmap_type) :: mapin,mapout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info mapout%kind = mapin%kind call psb_move_alloc(mapin%iaggr,mapout%iaggr,info) @@ -158,7 +158,7 @@ contains subroutine base_free(map,info) implicit none class(psb_base_linmap_type) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(map%iaggr)) & & deallocate(map%iaggr,stat=info) diff --git a/base/modules/psb_base_mat_mod.f90 b/base/modules/psb_base_mat_mod.f90 index 6143e1058..af3421061 100644 --- a/base/modules/psb_base_mat_mod.f90 +++ b/base/modules/psb_base_mat_mod.f90 @@ -99,8 +99,8 @@ module psb_base_mat_mod ! cannot have duplicate entries. ! type :: psb_base_sparse_mat - integer, private :: m, n - integer, private :: state, duplicate + integer(psb_ipk_), private :: m, n + integer(psb_ipk_), private :: state, duplicate logical, private :: triangle, upper, unitd, sorted contains @@ -185,10 +185,10 @@ module psb_base_mat_mod ! interface function psb_base_get_nz_row(idx,a) result(res) - import :: psb_base_sparse_mat, psb_long_int_k_ - integer, intent(in) :: idx + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat + integer(psb_ipk_), intent(in) :: idx class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res end function psb_base_get_nz_row end interface @@ -199,9 +199,9 @@ module psb_base_mat_mod ! interface function psb_base_get_nzeros(a) result(res) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res end function psb_base_get_nzeros end interface @@ -213,9 +213,9 @@ module psb_base_mat_mod ! interface function psb_base_get_size(a) result(res) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res end function psb_base_get_size end interface @@ -225,7 +225,7 @@ module psb_base_mat_mod ! interface subroutine psb_base_reinit(a,clear) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_base_reinit @@ -242,12 +242,12 @@ module psb_base_mat_mod ! interface subroutine psb_base_sparse_print(iout,a,iv,head,ivr,ivc) - import :: psb_base_sparse_mat, psb_long_int_k_ - integer, intent(in) :: iout + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_base_sparse_print end interface @@ -272,15 +272,15 @@ module psb_base_mat_mod interface subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_base_csgetptn end interface @@ -293,13 +293,13 @@ module psb_base_mat_mod ! interface subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_base_get_neigh end interface @@ -310,10 +310,10 @@ module psb_base_mat_mod ! interface subroutine psb_base_allocate_mnnz(m,n,a,nz) - import :: psb_base_sparse_mat, psb_long_int_k_ - integer, intent(in) :: m,n + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_base_allocate_mnnz end interface @@ -323,8 +323,8 @@ module psb_base_mat_mod ! interface subroutine psb_base_reallocate_nz(nz,a) - import :: psb_base_sparse_mat, psb_long_int_k_ - integer, intent(in) :: nz + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_reallocate_nz end interface @@ -334,7 +334,7 @@ module psb_base_mat_mod ! interface subroutine psb_base_free(a) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_free end interface @@ -345,7 +345,7 @@ module psb_base_mat_mod ! interface subroutine psb_base_trim(a) - import :: psb_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_long_int_k_, psb_base_sparse_mat class(psb_base_sparse_mat), intent(inout) :: a end subroutine psb_base_trim end interface @@ -379,7 +379,7 @@ contains function psb_base_get_dupl(a) result(res) implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%duplicate end function psb_base_get_dupl @@ -387,35 +387,35 @@ contains function psb_base_get_state(a) result(res) implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%state end function psb_base_get_state function psb_base_get_nrows(a) result(res) implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%m end function psb_base_get_nrows function psb_base_get_ncols(a) result(res) implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%n end function psb_base_get_ncols subroutine psb_base_set_nrows(m,a) implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m a%m = m end subroutine psb_base_set_nrows subroutine psb_base_set_ncols(n,a) implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n a%n = n end subroutine psb_base_set_ncols @@ -423,7 +423,7 @@ contains subroutine psb_base_set_state(n,a) implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n a%state = n end subroutine psb_base_set_state @@ -431,7 +431,7 @@ contains subroutine psb_base_set_dupl(n,a) implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n a%duplicate = n end subroutine psb_base_set_dupl @@ -673,7 +673,7 @@ contains implicit none class(psb_base_sparse_mat), intent(inout) :: a - integer :: itmp + integer(psb_ipk_) :: itmp itmp = a%m a%m = a%n diff --git a/base/modules/psb_base_tools_mod.f90 b/base/modules/psb_base_tools_mod.f90 index 196930f5b..8a05ff94b 100644 --- a/base/modules/psb_base_tools_mod.f90 +++ b/base/modules/psb_base_tools_mod.f90 @@ -31,117 +31,118 @@ !!$ module psb_iv_tools_mod use psb_const_mod - + use psb_descriptor_type + interface psb_geall subroutine psb_ialloc(x, desc_a, info,n, lb) - use psb_descriptor_type - integer, allocatable, intent(out) :: x(:,:) + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_ialloc subroutine psb_iallocv(x, desc_a,info,n) - use psb_descriptor_type - integer, allocatable, intent(out) :: x(:) + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_iallocv end interface interface psb_geasb subroutine psb_iasb(x, desc_a, info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer, allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: x(:,:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_iasb subroutine psb_iasbv(x, desc_a, info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer, allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_iasbv end interface interface psb_gefree subroutine psb_ifree(x, desc_a, info) - use psb_descriptor_type - integer,allocatable, intent(inout) :: x(:,:) + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ifree subroutine psb_ifreev(x, desc_a, info) - use psb_descriptor_type - integer, allocatable, intent(inout) :: x(:) + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ifreev end interface interface psb_geins subroutine psb_iinsi(m,irw,val, x,desc_a,info,dupl) - use psb_descriptor_type - integer, intent(in) :: m + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x(:,:) - integer, intent(in) :: irw(:) - integer, intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_),intent(inout) :: x(:,:) + integer(psb_ipk_), intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: val(:,:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_iinsi subroutine psb_iinsvi(m, irw,val, x,desc_a,info,dupl) - use psb_descriptor_type - integer, intent(in) :: m + import :: psb_ipk_, psb_desc_type + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x(:) - integer, intent(in) :: irw(:) - integer, intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_),intent(inout) :: x(:) + integer(psb_ipk_), intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_iinsvi end interface interface psb_glob_to_loc subroutine psb_glob_to_loc2(x,y,desc_a,info,iact,owned) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x(:) - integer,intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x(:) + integer(psb_ipk_),intent(out) :: y(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: owned character, intent(in), optional :: iact end subroutine psb_glob_to_loc2 subroutine psb_glob_to_loc(x,desc_a,info,iact,owned) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: owned character, intent(in), optional :: iact end subroutine psb_glob_to_loc subroutine psb_glob_to_loc2s(x,y,desc_a,info,iact,owned) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x - integer,intent(out) :: y - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x + integer(psb_ipk_),intent(out) :: y + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact logical, intent(in), optional :: owned end subroutine psb_glob_to_loc2s subroutine psb_glob_to_locs(x,desc_a,info,iact,owned) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact logical, intent(in), optional :: owned end subroutine psb_glob_to_locs @@ -149,35 +150,35 @@ module psb_iv_tools_mod interface psb_loc_to_glob subroutine psb_loc_to_glob2(x,y,desc_a,info,iact) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x(:) - integer,intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x(:) + integer(psb_ipk_),intent(out) :: y(:) + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact end subroutine psb_loc_to_glob2 subroutine psb_loc_to_glob(x,desc_a,info,iact) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact end subroutine psb_loc_to_glob subroutine psb_loc_to_glob2s(x,y,desc_a,info,iact) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x - integer,intent(out) :: y - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x + integer(psb_ipk_),intent(out) :: y + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact end subroutine psb_loc_to_glob2s subroutine psb_loc_to_globs(x,desc_a,info,iact) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact end subroutine psb_loc_to_globs @@ -203,13 +204,12 @@ module psb_iv_tools_mod contains function psb_is_owned(idx,desc) - use psb_descriptor_type implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx type(psb_desc_type), intent(in) :: desc logical :: psb_is_owned logical :: res - integer :: info + integer(psb_ipk_) :: info call psb_owned_index(res,idx,desc,info) if (info /= psb_success_) res=.false. @@ -217,13 +217,12 @@ contains end function psb_is_owned function psb_is_local(idx,desc) - use psb_descriptor_type implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx type(psb_desc_type), intent(in) :: desc logical :: psb_is_local logical :: res - integer :: info + integer(psb_ipk_) :: info call psb_local_index(res,idx,desc,info) if (info /= psb_success_) res=.false. @@ -231,14 +230,13 @@ contains end function psb_is_local subroutine psb_owned_index(res,idx,desc,info) - use psb_descriptor_type implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx type(psb_desc_type), intent(in) :: desc logical, intent(out) :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: lx + integer(psb_ipk_) :: lx call psb_glob_to_loc(idx,lx,desc,info,iact='I',owned=.true.) @@ -246,13 +244,12 @@ contains end subroutine psb_owned_index subroutine psb_owned_index_v(res,idx,desc,info) - use psb_descriptor_type implicit none - integer, intent(in) :: idx(:) + integer(psb_ipk_), intent(in) :: idx(:) type(psb_desc_type), intent(in) :: desc logical, intent(out) :: res(:) - integer, intent(out) :: info - integer, allocatable :: lx(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: lx(:) allocate(lx(size(idx)),stat=info) res=.false. @@ -263,14 +260,13 @@ contains end subroutine psb_owned_index_v subroutine psb_local_index(res,idx,desc,info) - use psb_descriptor_type implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx type(psb_desc_type), intent(in) :: desc logical, intent(out) :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: lx + integer(psb_ipk_) :: lx call psb_glob_to_loc(idx,lx,desc,info,iact='I',owned=.false.) @@ -278,13 +274,12 @@ contains end subroutine psb_local_index subroutine psb_local_index_v(res,idx,desc,info) - use psb_descriptor_type implicit none - integer, intent(in) :: idx(:) + integer(psb_ipk_), intent(in) :: idx(:) type(psb_desc_type), intent(in) :: desc logical, intent(out) :: res(:) - integer, intent(out) :: info - integer, allocatable :: lx(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: lx(:) allocate(lx(size(idx)),stat=info) res=.false. @@ -308,113 +303,112 @@ module psb_cd_if_tools_mod interface psb_cd_set_bld subroutine psb_cd_set_bld(desc,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(inout) :: desc - integer :: info + integer(psb_ipk_) :: info end subroutine psb_cd_set_bld end interface interface psb_cd_set_ovl_bld subroutine psb_cd_set_ovl_bld(desc,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(inout) :: desc - integer :: info + integer(psb_ipk_) :: info end subroutine psb_cd_set_ovl_bld end interface interface psb_cd_reinit Subroutine psb_cd_reinit(desc,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type Implicit None ! .. Array Arguments .. Type(psb_desc_type), Intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end Subroutine psb_cd_reinit end interface interface psb_cdcpy subroutine psb_cdcpy(desc_in, desc_out, info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none !....parameters... type(psb_desc_type), intent(in) :: desc_in type(psb_desc_type), intent(out) :: desc_out - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cdcpy end interface interface psb_cdprt subroutine psb_cdprt(iout,desc_p,glob,short) - use psb_const_mod - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none type(psb_desc_type), intent(in) :: desc_p - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout logical, intent(in), optional :: glob,short end subroutine psb_cdprt end interface interface psb_cdins subroutine psb_cdinsrc(nz,ia,ja,desc_a,info,ila,jla) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(inout) :: desc_a - integer, intent(in) :: nz,ia(:),ja(:) - integer, intent(out) :: info - integer, optional, intent(out) :: ila(:), jla(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(out) :: ila(:), jla(:) end subroutine psb_cdinsrc subroutine psb_cdinsc(nz,ja,desc,info,jla,mask) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(inout) :: desc - integer, intent(in) :: nz,ja(:) - integer, intent(out) :: info - integer, optional, intent(out) :: jla(:) + integer(psb_ipk_), intent(in) :: nz,ja(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(out) :: jla(:) logical, optional, target, intent(in) :: mask(:) end subroutine psb_cdinsc end interface interface psb_cdbldext Subroutine psb_cd_lstext(desc_a,in_list,desc_ov,info, mask,extype) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type Implicit None Type(psb_desc_type), Intent(in), target :: desc_a - integer, intent(in) :: in_list(:) + integer(psb_ipk_), intent(in) :: in_list(:) Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional, target :: mask(:) - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(in),optional :: extype end Subroutine psb_cd_lstext end interface interface psb_cdren subroutine psb_cdren(trans,iperm,desc_a,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type type(psb_desc_type), intent(inout) :: desc_a - integer, intent(inout) :: iperm(:) + integer(psb_ipk_), intent(inout) :: iperm(:) character, intent(in) :: trans - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cdren end interface interface psb_get_overlap subroutine psb_get_ovrlap(ovrel,desc,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit none - integer, allocatable, intent(out) :: ovrel(:) + integer(psb_ipk_), allocatable, intent(out) :: ovrel(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_get_ovrlap end interface interface psb_icdasb subroutine psb_icdasb(desc,info,ext_hv) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type Type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in),optional :: ext_hv end subroutine psb_icdasb end interface @@ -429,13 +423,13 @@ module psb_cd_tools_mod interface psb_cdall subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalcheck) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit None include 'parts.fh' - Integer, intent(in) :: mg,ng,ictxt, vg(:), vl(:),nl - integer, intent(in) :: flag + integer(psb_ipk_), intent(in) :: mg,ng,ictxt, vg(:), vl(:),nl + integer(psb_ipk_), intent(in) :: flag logical, intent(in) :: repl, globalcheck - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(out) :: desc optional :: mg,ng,parts,vg,vl,flag,nl,repl, globalcheck @@ -453,33 +447,31 @@ module psb_cd_tools_mod interface subroutine psb_cd_switch_ovl_indxmap(desc,info) - use psb_descriptor_type + import :: psb_ipk_, psb_desc_type implicit None include 'parts.fh' type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cd_switch_ovl_indxmap end interface contains subroutine psb_get_boundary(bndel,desc,info) - use psb_descriptor_type use psi_mod, only : psi_crea_bnd_elem implicit none - integer, allocatable, intent(out) :: bndel(:) + integer(psb_ipk_), allocatable, intent(out) :: bndel(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psi_crea_bnd_elem(bndel,desc,info) end subroutine psb_get_boundary subroutine psb_cdasb(desc,info) - use psb_descriptor_type Type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_icdasb(desc,info,ext_hv=.false.) end subroutine psb_cdasb diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90 index e8c70d760..64f77e87e 100644 --- a/base/modules/psb_c_base_mat_mod.f90 +++ b/base/modules/psb_c_base_mat_mod.f90 @@ -123,8 +123,8 @@ module psb_c_base_mat_mod type, extends(psb_c_base_sparse_mat) :: psb_c_coo_sparse_mat - integer :: nnz - integer, allocatable :: ia(:), ja(:) + integer(psb_ipk_) :: nnz + integer(psb_ipk_), allocatable :: ia(:), ja(:) complex(psb_spk_), allocatable :: val(:) contains @@ -221,12 +221,12 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_c_base_csput end interface @@ -255,16 +255,16 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_base_csgetrow end interface @@ -281,14 +281,14 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_base_csgetblk end interface @@ -304,11 +304,11 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_base_csclip end interface @@ -320,10 +320,10 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_get_diag(a,d,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_get_diag end interface @@ -335,10 +335,10 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_mold(a,b,info) - import :: psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mold end interface @@ -357,73 +357,73 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_cp_to_coo(a,b,info) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_coo end interface interface subroutine psb_c_base_cp_from_coo(a,b,info) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_coo end interface interface subroutine psb_c_base_cp_to_fmt(a,b,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_fmt end interface interface subroutine psb_c_base_cp_from_fmt(a,b,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_fmt end interface interface subroutine psb_c_base_mv_to_coo(a,b,info) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_coo end interface interface subroutine psb_c_base_mv_from_coo(a,b,info) - import :: psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_from_coo end interface interface subroutine psb_c_base_mv_to_fmt(a,b,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_fmt end interface interface subroutine psb_c_base_mv_from_fmt(a,b,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_from_fmt end interface @@ -434,7 +434,7 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_transp_2mat(a,b) - import :: psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_c_base_transp_2mat @@ -442,7 +442,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_transc_2mat(a,b) - import :: psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_c_base_transc_2mat @@ -450,14 +450,14 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_transp_1mat(a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transp_1mat end interface interface subroutine psb_c_base_transc_1mat(a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transc_1mat end interface @@ -473,34 +473,34 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_csmm end interface interface subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_csmv end interface interface subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_vect_mv end interface @@ -513,44 +513,44 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_inner_cssm end interface interface subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_inner_cssv end interface interface subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import :: psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_base_inner_vect_sv end interface interface subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_base_cssm @@ -558,11 +558,11 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_base_cssv @@ -570,11 +570,11 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_c_base_sparse_mat, psb_spk_,psb_c_base_vect_type + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_,psb_c_base_vect_type class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_c_base_vect_type), optional, intent(inout) :: d end subroutine psb_c_base_vect_cssv @@ -586,19 +586,19 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_scals(d,a,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_scals end interface interface subroutine psb_c_base_scal(d,a,info) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_scal end interface @@ -607,7 +607,7 @@ module psb_c_base_mat_mod ! interface function psb_c_base_maxval(a) result(res) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_maxval @@ -618,7 +618,7 @@ module psb_c_base_mat_mod ! interface function psb_c_base_csnmi(a) result(res) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_csnmi @@ -629,7 +629,7 @@ module psb_c_base_mat_mod ! interface function psb_c_base_csnm1(a) result(res) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_csnm1 @@ -641,7 +641,7 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_rowsum(d,a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_rowsum @@ -649,7 +649,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_arwsum(d,a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_arwsum @@ -661,7 +661,7 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_base_colsum(d,a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_colsum @@ -669,7 +669,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_base_aclsum(d,a) - import :: psb_c_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_base_sparse_mat, psb_spk_ class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_aclsum @@ -684,15 +684,15 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_reallocate_nz(nz,a) - import :: psb_c_coo_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_c_coo_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_reallocate_nz end interface interface subroutine psb_c_coo_reinit(a,clear) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_coo_reinit @@ -700,48 +700,48 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_trim(a) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_trim end interface interface subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) - import :: psb_c_coo_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_c_coo_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_coo_allocate_mnnz end interface interface subroutine psb_c_coo_mold(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_mold end interface interface subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) - import :: psb_c_coo_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_c_coo_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_coo_print end interface interface function psb_c_coo_get_nz_row(idx,a) result(res) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res end function psb_c_coo_get_nz_row end interface @@ -754,99 +754,99 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import :: psb_spk_ - integer, intent(in) :: nzin,dupl - integer, intent(inout) :: ia(:), ja(:) + import :: psb_ipk_, psb_spk_ + integer(psb_ipk_), intent(in) :: nzin,dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_spk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_c_fix_coo_inner end interface interface subroutine psb_c_fix_coo(a,info,idir) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_c_fix_coo end interface interface subroutine psb_c_cp_coo_to_coo(a,b,info) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_to_coo end interface interface subroutine psb_c_cp_coo_from_coo(a,b,info) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_from_coo end interface interface subroutine psb_c_cp_coo_to_fmt(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_to_fmt end interface interface subroutine psb_c_cp_coo_from_fmt(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_from_fmt end interface interface subroutine psb_c_mv_coo_to_coo(a,b,info) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_to_coo end interface interface subroutine psb_c_mv_coo_from_coo(a,b,info) - import :: psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_from_coo end interface interface subroutine psb_c_mv_coo_to_fmt(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_to_fmt end interface interface subroutine psb_c_mv_coo_from_fmt(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_base_sparse_mat class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_from_fmt end interface interface subroutine psb_c_coo_cp_from(a,b) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(in) :: b end subroutine psb_c_coo_cp_from @@ -854,7 +854,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_mv_from(a,b) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(inout) :: b end subroutine psb_c_coo_mv_from @@ -863,28 +863,28 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_c_coo_csput end interface interface subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_coo_csgetptn end interface @@ -892,54 +892,54 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_coo_csgetrow end interface interface subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_coo_cssv subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_coo_cssm end interface interface subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_coo_csmv subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_coo_csmm end interface @@ -947,7 +947,7 @@ module psb_c_base_mat_mod interface function psb_c_coo_maxval(a) result(res) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_maxval @@ -955,7 +955,7 @@ module psb_c_base_mat_mod interface function psb_c_coo_csnmi(a) result(res) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_csnmi @@ -963,7 +963,7 @@ module psb_c_base_mat_mod interface function psb_c_coo_csnm1(a) result(res) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_csnm1 @@ -971,7 +971,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_rowsum(d,a) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_rowsum @@ -979,7 +979,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_arwsum(d,a) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_arwsum @@ -987,7 +987,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_colsum(d,a) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_colsum @@ -995,7 +995,7 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_aclsum(d,a) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_aclsum @@ -1003,28 +1003,28 @@ module psb_c_base_mat_mod interface subroutine psb_c_coo_get_diag(a,d,info) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_get_diag end interface interface subroutine psb_c_coo_scal(d,a,info) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_scal end interface interface subroutine psb_c_coo_scals(d,a,info) - import :: psb_c_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_spk_ class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_scals end interface @@ -1098,7 +1098,7 @@ contains function c_coo_get_size(a) result(res) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 if (allocated(a%ia)) res = size(a%ia) @@ -1122,7 +1122,7 @@ contains function c_coo_get_nzeros(a) result(res) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%nnz end function c_coo_get_nzeros @@ -1142,7 +1142,7 @@ contains subroutine c_coo_set_nzeros(nz,a) implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a a%nnz = nz @@ -1197,8 +1197,8 @@ contains class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, allocatable :: itemp(:) - integer :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: info call a%psb_c_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) diff --git a/base/modules/psb_c_base_vect_mod.f90 b/base/modules/psb_c_base_vect_mod.f90 index 6752b7060..384d49b3f 100644 --- a/base/modules/psb_c_base_vect_mod.f90 +++ b/base/modules/psb_c_base_vect_mod.f90 @@ -74,6 +74,13 @@ module psb_c_base_vect_mod ! version is only a placeholder. ! procedure, pass(x) :: sync => c_base_sync + procedure, pass(x) :: is_host => c_base_is_host + procedure, pass(x) :: is_dev => c_base_is_dev + procedure, pass(x) :: is_sync => c_base_is_sync + procedure, pass(x) :: set_host => c_base_set_host + procedure, pass(x) :: set_dev => c_base_set_dev + procedure, pass(x) :: set_sync => c_base_set_sync + ! ! Basic info procedure, pass(x) :: get_nrows => c_base_get_nrows @@ -140,7 +147,7 @@ contains function constructor(x) result(this) complex(psb_spk_) :: x(:) type(psb_c_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info this%v = x call this%asb(size(x),info) @@ -148,9 +155,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_c_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info call this%asb(n,info) @@ -164,7 +171,7 @@ contains use psb_realloc_mod complex(psb_spk_), intent(in) :: this(:) class(psb_c_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) if (info /= 0) then @@ -180,9 +187,9 @@ contains ! subroutine c_base_bld_n(x,n) use psb_realloc_mod - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(n,x%v,info) call x%asb(n,info) @@ -193,9 +200,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_base_vect_type), intent(out) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_realloc(n,x%v,info) @@ -208,12 +215,12 @@ contains use psi_serial_mod implicit none class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (psb_errstatus_fatal()) return @@ -283,9 +290,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -300,7 +307,7 @@ contains use psb_realloc_mod implicit none class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) @@ -312,16 +319,59 @@ contains ! - ! The base version of SYNC does nothing, it's just + ! The base version of SYNC & friends does nothing, it's just ! a placeholder. ! subroutine c_base_sync(x) implicit none class(psb_c_base_vect_type), intent(inout) :: x - end subroutine c_base_sync + + subroutine c_base_set_host(x) + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + + end subroutine c_base_set_host + + subroutine c_base_set_dev(x) + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + + end subroutine c_base_set_dev + + subroutine c_base_set_sync(x) + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + + end subroutine c_base_set_sync + + function c_base_is_dev(x) result(res) + implicit none + class(psb_c_base_vect_type), intent(in) :: x + logical :: res + + res = .false. + end function c_base_is_dev + + function c_base_is_host(x) result(res) + implicit none + class(psb_c_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function c_base_is_host + + function c_base_is_sync(x) result(res) + implicit none + class(psb_c_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function c_base_is_sync + + ! ! Size info. ! @@ -329,7 +379,7 @@ contains function c_base_get_nrows(x) result(res) implicit none class(psb_c_base_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = size(x%v) @@ -355,7 +405,7 @@ contains function c_base_get_vect(x) result(res) class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (.not.allocated(x%v)) return call x%sync() @@ -374,7 +424,7 @@ contains class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info x%v = val end subroutine c_base_set_scal @@ -382,8 +432,8 @@ contains subroutine c_base_set_vect(x,val) class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val(:) - integer :: nr - integer :: info + integer(psb_ipk_) :: nr + integer(psb_ipk_) :: info if (allocated(x%v)) then nr = min(size(x%v),size(val)) @@ -400,7 +450,7 @@ contains function c_base_dot_v(n,x,y) result(res) implicit none class(psb_c_base_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res complex(psb_spk_), external :: cdotc @@ -428,7 +478,7 @@ contains implicit none class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res complex(psb_spk_), external :: cdotc @@ -442,11 +492,11 @@ contains subroutine c_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info select type(xx => x) type is (psb_c_base_vect_type) @@ -460,11 +510,11 @@ contains subroutine c_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_geaxpby(m,alpha,x,beta,y%v,info) @@ -485,8 +535,8 @@ contains implicit none class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 select type(xx => x) @@ -506,8 +556,8 @@ contains implicit none complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(y%v), size(x)) @@ -525,8 +575,8 @@ contains complex(psb_spk_), intent(in) :: y(:) complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(z%v), size(x), size(y)) @@ -594,9 +644,9 @@ contains class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y class(psb_c_base_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ info = 0 @@ -622,8 +672,8 @@ contains complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y class(psb_c_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -638,8 +688,8 @@ contains complex(psb_spk_), intent(in) :: y(:) class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -669,7 +719,7 @@ contains function c_base_nrm2(n,x) result(res) implicit none class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: scnrm2 @@ -680,7 +730,7 @@ contains function c_base_amax(n,x) result(res) implicit none class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = maxval(abs(x%v(1:n))) @@ -690,7 +740,7 @@ contains function c_base_asum(n,x) result(res) implicit none class(psb_c_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = sum(abs(x%v(1:n))) @@ -704,7 +754,7 @@ contains subroutine c_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: alpha, beta, y(:) class(psb_c_base_vect_type) :: x @@ -717,7 +767,7 @@ contains ! subroutine c_base_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: y(:) class(psb_c_base_vect_type) :: x @@ -733,12 +783,13 @@ contains subroutine c_base_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:) class(psb_c_base_vect_type) :: y call y%sync() call psi_sct(n,idx,x,beta,y%v) + call y%set_host() end subroutine c_base_sctb diff --git a/base/modules/psb_c_comm_mod.f90 b/base/modules/psb_c_comm_mod.f90 index 0db8bad71..c3cf0279e 100644 --- a/base/modules/psb_c_comm_mod.f90 +++ b/base/modules/psb_c_comm_mod.f90 @@ -36,26 +36,26 @@ module psb_c_comm_mod use psb_descriptor_type complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode end subroutine psb_covrlm subroutine psb_covrlv(x,desc_a,info,work,update,mode) use psb_descriptor_type complex(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_covrlv subroutine psb_covrl_vect(x,desc_a,info,work,update,mode) use psb_descriptor_type use psb_c_vect_mod type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_covrl_vect end interface psb_ovrl @@ -64,20 +64,20 @@ module psb_c_comm_mod use psb_descriptor_type complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran end subroutine psb_chalom subroutine psb_chalov(x,desc_a,info,alpha,work,tran,mode,data) use psb_descriptor_type complex(psb_spk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_chalov subroutine psb_chalo_vect(x,desc_a,info,alpha,work,tran,mode,data) @@ -85,10 +85,10 @@ module psb_c_comm_mod use psb_c_vect_mod type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional :: alpha complex(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_chalo_vect end interface psb_halo @@ -100,16 +100,16 @@ module psb_c_comm_mod complex(psb_spk_), intent(out) :: locx(:,:) complex(psb_spk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_cscatterm subroutine psb_cscatterv(globx, locx, desc_a, info, root) use psb_descriptor_type complex(psb_spk_), intent(out) :: locx(:) complex(psb_spk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_cscatterv end interface psb_scatter @@ -121,8 +121,8 @@ module psb_c_comm_mod type(psb_cspmat_type), intent(inout) :: loca type(psb_cspmat_type), intent(out) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root,dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root,dupl logical, intent(in), optional :: keepnum,keeploc end subroutine psb_csp_allgather subroutine psb_cgatherm(globx, locx, desc_a, info, root) @@ -130,16 +130,16 @@ module psb_c_comm_mod complex(psb_spk_), intent(in) :: locx(:,:) complex(psb_spk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_cgatherm subroutine psb_cgatherv(globx, locx, desc_a, info, root) use psb_descriptor_type complex(psb_spk_), intent(in) :: locx(:) complex(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_cgatherv subroutine psb_cgather_vect(globx, locx, desc_a, info, root) use psb_descriptor_type @@ -147,8 +147,8 @@ module psb_c_comm_mod type(psb_c_vect_type), intent(inout) :: locx complex(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_cgather_vect end interface psb_gather diff --git a/base/modules/psb_c_csc_mat_mod.f90 b/base/modules/psb_c_csc_mat_mod.f90 index 5af6bbd97..60034d64e 100644 --- a/base/modules/psb_c_csc_mat_mod.f90 +++ b/base/modules/psb_c_csc_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_c_csc_mat_mod type, extends(psb_c_base_sparse_mat) :: psb_c_csc_sparse_mat - integer, allocatable :: icp(:), ia(:) + integer(psb_ipk_), allocatable :: icp(:), ia(:) complex(psb_spk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_reallocate_nz(nz,a) - import :: psb_c_csc_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_c_csc_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_reallocate_nz end interface interface subroutine psb_c_csc_reinit(a,clear) - import :: psb_c_csc_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csc_reinit @@ -116,115 +116,115 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_trim(a) - import :: psb_c_csc_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_trim end interface interface subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) - import :: psb_c_csc_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_c_csc_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_c_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_csc_allocate_mnnz end interface interface subroutine psb_c_csc_mold(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_mold end interface interface subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) - import :: psb_c_csc_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_c_csc_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_csc_print end interface interface subroutine psb_c_cp_csc_to_coo(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_csc_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_csc_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_to_coo end interface interface subroutine psb_c_cp_csc_from_coo(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_from_coo end interface interface subroutine psb_c_cp_csc_to_fmt(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_to_fmt end interface interface subroutine psb_c_cp_csc_from_fmt(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_from_fmt end interface interface subroutine psb_c_mv_csc_to_coo(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_to_coo end interface interface subroutine psb_c_mv_csc_from_coo(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_from_coo end interface interface subroutine psb_c_mv_csc_to_fmt(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_to_fmt end interface interface subroutine psb_c_mv_csc_from_fmt(a,b,info) - import :: psb_c_csc_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_c_base_sparse_mat class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_from_fmt end interface interface subroutine psb_c_csc_cp_from(a,b) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(in) :: b end subroutine psb_c_csc_cp_from @@ -232,7 +232,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_mv_from(a,b) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(inout) :: b end subroutine psb_c_csc_mv_from @@ -241,28 +241,28 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_c_csc_csput end interface interface subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csc_csgetptn end interface @@ -270,16 +270,16 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csc_csgetrow end interface @@ -287,52 +287,52 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_c_csc_sparse_mat, psb_spk_, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_, psb_c_coo_sparse_mat class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csc_csgetblk end interface interface subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csc_cssv subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csc_cssm end interface interface subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csc_csmv subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csc_csmm end interface @@ -340,7 +340,7 @@ module psb_c_csc_mat_mod interface function psb_c_csc_maxval(a) result(res) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csc_maxval @@ -348,7 +348,7 @@ module psb_c_csc_mat_mod interface function psb_c_csc_csnmi(a) result(res) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csc_csnmi @@ -356,7 +356,7 @@ module psb_c_csc_mat_mod interface function psb_c_csc_csnm1(a) result(res) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csc_csnm1 @@ -364,7 +364,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_rowsum(d,a) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_rowsum @@ -372,7 +372,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_arwsum(d,a) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_arwsum @@ -380,7 +380,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_colsum(d,a) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_colsum @@ -388,7 +388,7 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_aclsum(d,a) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_aclsum @@ -396,28 +396,28 @@ module psb_c_csc_mat_mod interface subroutine psb_c_csc_get_diag(a,d,info) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_get_diag end interface interface subroutine psb_c_csc_scal(d,a,info) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_scal end interface interface subroutine psb_c_csc_scals(d,a,info) - import :: psb_c_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_scals end interface @@ -457,14 +457,14 @@ contains function c_csc_get_nzeros(a) result(res) implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function c_csc_get_nzeros function c_csc_get_size(a) result(res) implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -492,8 +492,8 @@ contains implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_c_csr_mat_mod.f90 b/base/modules/psb_c_csr_mat_mod.f90 index 8fe96d394..fb9901443 100644 --- a/base/modules/psb_c_csr_mat_mod.f90 +++ b/base/modules/psb_c_csr_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_c_csr_mat_mod type, extends(psb_c_base_sparse_mat) :: psb_c_csr_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) complex(psb_spk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_reallocate_nz(nz,a) - import :: psb_c_csr_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_c_csr_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_c_csr_sparse_mat), intent(inout) :: a end subroutine psb_c_csr_reallocate_nz end interface interface subroutine psb_c_csr_reinit(a,clear) - import :: psb_c_csr_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csr_reinit @@ -116,115 +116,115 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_trim(a) - import :: psb_c_csr_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a end subroutine psb_c_csr_trim end interface interface subroutine psb_c_csr_mold(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_base_sparse_mat, psb_long_int_k_ class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_mold end interface interface subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) - import :: psb_c_csr_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_c_csr_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_c_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_csr_allocate_mnnz end interface interface subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) - import :: psb_c_csr_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_c_csr_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_csr_print end interface interface subroutine psb_c_cp_csr_to_coo(a,b,info) - import :: psb_c_coo_sparse_mat, psb_c_csr_sparse_mat + import :: psb_ipk_, psb_c_coo_sparse_mat, psb_c_csr_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_to_coo end interface interface subroutine psb_c_cp_csr_from_coo(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_from_coo end interface interface subroutine psb_c_cp_csr_to_fmt(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_to_fmt end interface interface subroutine psb_c_cp_csr_from_fmt(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_from_fmt end interface interface subroutine psb_c_mv_csr_to_coo(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_to_coo end interface interface subroutine psb_c_mv_csr_from_coo(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_from_coo end interface interface subroutine psb_c_mv_csr_to_fmt(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_to_fmt end interface interface subroutine psb_c_mv_csr_from_fmt(a,b,info) - import :: psb_c_csr_sparse_mat, psb_c_base_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_c_base_sparse_mat class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_from_fmt end interface interface subroutine psb_c_csr_cp_from(a,b) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(in) :: b end subroutine psb_c_csr_cp_from @@ -232,7 +232,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_mv_from(a,b) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(inout) :: b end subroutine psb_c_csr_mv_from @@ -241,28 +241,28 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_c_csr_csput end interface interface subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csr_csgetptn end interface @@ -270,16 +270,16 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csr_csgetrow end interface @@ -287,52 +287,52 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_c_csr_sparse_mat, psb_spk_, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_, psb_c_coo_sparse_mat class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csr_csgetblk end interface interface subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csr_cssv subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csr_cssm end interface interface subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csr_csmv subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csr_csmm end interface @@ -340,7 +340,7 @@ module psb_c_csr_mat_mod interface function psb_c_csr_maxval(a) result(res) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_maxval @@ -348,7 +348,7 @@ module psb_c_csr_mat_mod interface function psb_c_csr_csnmi(a) result(res) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_csnmi @@ -356,7 +356,7 @@ module psb_c_csr_mat_mod interface function psb_c_csr_csnm1(a) result(res) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_csnm1 @@ -364,7 +364,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_rowsum(d,a) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_rowsum @@ -372,7 +372,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_arwsum(d,a) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_arwsum @@ -380,7 +380,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_colsum(d,a) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_colsum @@ -388,7 +388,7 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_aclsum(d,a) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_aclsum @@ -396,28 +396,28 @@ module psb_c_csr_mat_mod interface subroutine psb_c_csr_get_diag(a,d,info) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_get_diag end interface interface subroutine psb_c_csr_scal(d,a,info) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_scal end interface interface subroutine psb_c_csr_scals(d,a,info) - import :: psb_c_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_c_csr_sparse_mat, psb_spk_ class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_scals end interface @@ -458,14 +458,14 @@ contains function c_csr_get_nzeros(a) result(res) implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function c_csr_get_nzeros function c_csr_get_size(a) result(res) implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -493,8 +493,8 @@ contains implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_c_linmap_mod.f90 b/base/modules/psb_c_linmap_mod.f90 index 00be73827..7f49477d7 100644 --- a/base/modules/psb_c_linmap_mod.f90 +++ b/base/modules/psb_c_linmap_mod.f90 @@ -55,24 +55,24 @@ module psb_c_linmap_mod interface psb_map_X2Y subroutine psb_c_map_X2Y(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_clinmap_type + import :: psb_ipk_, psb_clinmap_type implicit none type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) end subroutine psb_c_map_X2Y subroutine psb_c_map_X2Y_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_c_vect_mod - import :: psb_clinmap_type + import :: psb_ipk_, psb_clinmap_type implicit none type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta type(psb_c_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) end subroutine psb_c_map_X2Y_vect end interface @@ -80,24 +80,24 @@ module psb_c_linmap_mod interface psb_map_Y2X subroutine psb_c_map_Y2X(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_clinmap_type + import :: psb_ipk_, psb_clinmap_type implicit none type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) end subroutine psb_c_map_Y2X subroutine psb_c_map_Y2X_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_c_vect_mod - import :: psb_clinmap_type + import :: psb_ipk_, psb_clinmap_type implicit none type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta type(psb_c_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) end subroutine psb_c_map_Y2X_vect end interface @@ -118,13 +118,13 @@ module psb_c_linmap_mod interface psb_linmap function psb_c_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) use psb_c_mat_mod, only : psb_cspmat_type - import :: psb_clinmap_type, psb_desc_type + import :: psb_ipk_, psb_clinmap_type, psb_desc_type implicit none type(psb_clinmap_type) :: psb_c_linmap type(psb_desc_type), target :: desc_X, desc_Y type(psb_cspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) end function psb_c_linmap end interface @@ -166,7 +166,7 @@ contains use psb_c_mat_mod implicit none type(psb_clinmap_type), intent(inout) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: type class(psb_c_base_sparse_mat), intent(in), optional :: mold @@ -183,8 +183,8 @@ contains type(psb_clinmap_type), intent(out) :: out_map type(psb_desc_type), target :: desc_X, desc_Y type(psb_cspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr) end subroutine psb_c_linmap_sub @@ -194,7 +194,7 @@ contains use psb_mat_mod, only : psb_move_alloc implicit none type(psb_clinmap_type) :: mapin,mapout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_move_alloc(mapin%psb_base_linmap_type, & & mapout%psb_base_linmap_type,info) @@ -207,7 +207,7 @@ contains use psb_descriptor_type implicit none class(psb_clinmap_type) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call map%psb_base_linmap_type%free(info) diff --git a/base/modules/psb_c_mat_mod.f90 b/base/modules/psb_c_mat_mod.f90 index 12a42344a..de63a2d59 100644 --- a/base/modules/psb_c_mat_mod.f90 +++ b/base/modules/psb_c_mat_mod.f90 @@ -205,59 +205,59 @@ module psb_c_mat_mod interface subroutine psb_c_set_nrows(m,a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m end subroutine psb_c_set_nrows end interface interface subroutine psb_c_set_ncols(n,a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_c_set_ncols end interface interface subroutine psb_c_set_dupl(n,a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_c_set_dupl end interface interface subroutine psb_c_set_null(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_null end interface interface subroutine psb_c_set_bld(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_bld end interface interface subroutine psb_c_set_upd(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_upd end interface interface subroutine psb_c_set_asb(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_asb end interface interface subroutine psb_c_set_sorted(a,val) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_sorted @@ -265,7 +265,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_triangle(a,val) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_triangle @@ -273,7 +273,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_unit(a,val) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_unit @@ -281,7 +281,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_lower(a,val) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_lower @@ -289,7 +289,7 @@ module psb_c_mat_mod interface subroutine psb_c_set_upper(a,val) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_upper @@ -297,93 +297,93 @@ module psb_c_mat_mod interface subroutine psb_c_sparse_print(iout,a,iv,head,ivr,ivc) - import :: psb_cspmat_type - integer, intent(in) :: iout + import :: psb_ipk_, psb_cspmat_type + integer(psb_ipk_), intent(in) :: iout class(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_sparse_print end interface interface subroutine psb_c_n_sparse_print(fname,a,iv,head,ivr,ivc) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type character(len=*), intent(in) :: fname class(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_n_sparse_print end interface interface subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_c_get_neigh end interface interface subroutine psb_c_csall(nr,nc,a,info,nz) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_csall end interface interface subroutine psb_c_reallocate_nz(nz,a) - import :: psb_cspmat_type - integer, intent(in) :: nz + import :: psb_ipk_, psb_cspmat_type + integer(psb_ipk_), intent(in) :: nz class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_reallocate_nz end interface interface subroutine psb_c_free(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_free end interface interface subroutine psb_c_trim(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_trim end interface interface subroutine psb_c_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_c_csput end interface interface subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetptn end interface @@ -391,16 +391,16 @@ module psb_c_mat_mod interface subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetrow end interface @@ -408,14 +408,14 @@ module psb_c_mat_mod interface subroutine psb_c_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetblk end interface @@ -423,11 +423,11 @@ module psb_c_mat_mod interface subroutine psb_c_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csclip end interface @@ -435,18 +435,18 @@ module psb_c_mat_mod interface subroutine psb_c_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_cspmat_type, psb_spk_, psb_c_coo_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_coo_sparse_mat class(psb_cspmat_type), intent(in) :: a type(psb_c_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_c_b_csclip end interface interface subroutine psb_c_mold(a,b) - import :: psb_cspmat_type, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_c_mold @@ -454,14 +454,14 @@ module psb_c_mat_mod interface subroutine psb_c_transp_1mat(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_transp_1mat end interface interface subroutine psb_c_transp_2mat(a,b) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b end subroutine psb_c_transp_2mat @@ -469,14 +469,14 @@ module psb_c_mat_mod interface subroutine psb_c_transc_1mat(a) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_transc_1mat end interface interface subroutine psb_c_transc_2mat(a,b) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b end subroutine psb_c_transc_2mat @@ -484,7 +484,7 @@ module psb_c_mat_mod interface subroutine psb_c_reinit(a,clear) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_reinit @@ -507,11 +507,11 @@ module psb_c_mat_mod ! interface subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_c_cscnv @@ -520,10 +520,10 @@ module psb_c_mat_mod interface subroutine psb_c_cscnv_ip(a,iinfo,type,mold,dupl) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: iinfo - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: iinfo + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_c_cscnv_ip @@ -532,11 +532,11 @@ module psb_c_mat_mod interface subroutine psb_c_cscnv_base(a,b,info,dupl) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_c_cscnv_base end interface @@ -546,18 +546,18 @@ module psb_c_mat_mod ! interface subroutine psb_c_clip_d(a,b,info) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_c_clip_d end interface interface subroutine psb_c_clip_d_ip(a,info) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_c_clip_d_ip end interface @@ -567,7 +567,7 @@ module psb_c_mat_mod ! interface subroutine psb_c_mv_from(a,b) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_from @@ -575,7 +575,7 @@ module psb_c_mat_mod interface subroutine psb_c_cp_from(a,b) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(in) :: b end subroutine psb_c_cp_from @@ -583,7 +583,7 @@ module psb_c_mat_mod interface subroutine psb_c_mv_to(a,b) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(out) :: b end subroutine psb_c_mv_to @@ -591,7 +591,7 @@ module psb_c_mat_mod interface subroutine psb_c_cp_to(a,b) - import :: psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b end subroutine psb_c_cp_to @@ -602,19 +602,19 @@ module psb_c_mat_mod ! interface psb_move_alloc subroutine psb_cspmat_type_move(a,b,info) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmat_type_move end interface interface subroutine psb_cspmat_clone(a,b,info) - import :: psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmat_clone end interface @@ -636,60 +636,60 @@ module psb_c_mat_mod interface psb_csmm subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csmm subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csmv subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_c_vect_mod, only : psb_c_vect_type - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csmv_vect end interface interface psb_cssm subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_cssm subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_cssv subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_c_vect_mod, only : psb_c_vect_type - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_c_vect_type), optional, intent(inout) :: d end subroutine psb_c_cssv_vect @@ -697,7 +697,7 @@ module psb_c_mat_mod interface function psb_c_maxval(a) result(res) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_c_maxval @@ -705,7 +705,7 @@ module psb_c_mat_mod interface function psb_c_csnmi(a) result(res) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_c_csnmi @@ -713,7 +713,7 @@ module psb_c_mat_mod interface function psb_c_csnm1(a) result(res) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_c_csnm1 @@ -721,62 +721,62 @@ module psb_c_mat_mod interface subroutine psb_c_rowsum(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_rowsum end interface interface subroutine psb_c_arwsum(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_arwsum end interface interface subroutine psb_c_colsum(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_colsum end interface interface subroutine psb_c_aclsum(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_aclsum end interface interface subroutine psb_c_get_diag(a,d,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_get_diag end interface interface psb_scal subroutine psb_c_scal(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_scal subroutine psb_c_scals(d,a,info) - import :: psb_cspmat_type, psb_spk_ + import :: psb_ipk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_scals end interface @@ -827,7 +827,7 @@ contains function psb_c_get_dupl(a) result(res) implicit none class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_dupl() @@ -839,7 +839,7 @@ contains function psb_c_get_nrows(a) result(res) implicit none class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_nrows() @@ -852,7 +852,7 @@ contains function psb_c_get_ncols(a) result(res) implicit none class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_ncols() @@ -984,7 +984,7 @@ contains function psb_c_get_nzeros(a) result(res) implicit none class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(a%a)) then @@ -997,7 +997,7 @@ contains implicit none class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -1010,9 +1010,9 @@ contains function psb_c_get_nz_row(idx,a) result(res) implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx class(psb_cspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_c_psblas_mod.f90 b/base/modules/psb_c_psblas_mod.f90 index e3be39535..ad224e594 100644 --- a/base/modules/psb_c_psblas_mod.f90 +++ b/base/modules/psb_c_psblas_mod.f90 @@ -30,235 +30,255 @@ !!$ !!$ module psb_c_psblas_mod + use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_c_vect_mod, only : psb_c_vect_type + use psb_c_mat_mod, only : psb_cspmat_type interface psb_gedot function psb_cdot_vect(x, y, desc_a,info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_) :: res type(psb_c_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cdot_vect function psb_cdotv(x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_) :: psb_cdotv complex(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cdotv function psb_cdot(x, y, desc_a, info, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_) :: psb_cdot complex(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, optional, intent(in) :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx, jy + integer(psb_ipk_), intent(out) :: info end function psb_cdot end interface interface psb_gedots - subroutine psb_cdotvs(res,x, y, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + subroutine psb_cdotvs(res,x, y, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent(out) :: res complex(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cdotvs - subroutine psb_cmdots(res,x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + subroutine psb_cmdots(res,x, y, desc_a,info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent(out) :: res(:) complex(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cmdots end interface interface psb_geaxpby subroutine psb_caxpby_vect(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_c_vect_type), intent (inout) :: x type(psb_c_vect_type), intent (inout) :: y complex(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_caxpby_vect subroutine psb_caxpbyv(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_caxpbyv subroutine psb_caxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (inout) :: y(:,:) complex(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent(in) :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), intent(out) :: info end subroutine psb_caxpby end interface interface psb_geamax function psb_camax(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_camax complex(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_camax function psb_camaxv(x, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_camaxv complex(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_camaxv function psb_camax_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_camax_vect end interface interface psb_geamaxs subroutine psb_camaxvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_), intent (out) :: res - complex(psb_spk_), intent (in) :: x(:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + complex(psb_spk_), intent (in) :: x(:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_camaxvs subroutine psb_cmamaxs(res,x,desc_a,info,jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - real(psb_spk_), intent (out) :: res(:) - complex(psb_spk_), intent (in) :: x(:,:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + real(psb_spk_), intent (out) :: res(:) + complex(psb_spk_), intent (in) :: x(:,:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx end subroutine psb_cmamaxs end interface interface psb_geasum function psb_casum_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_casum_vect function psb_casum(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_casum complex(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_casum function psb_casumv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_casumv complex(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_casumv end interface interface psb_geasums subroutine psb_casumvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_), intent (out) :: res - complex(psb_spk_), intent (in) :: x(:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + complex(psb_spk_), intent (in) :: x(:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_casumvs subroutine psb_cmasum(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_), intent (out) :: res(:) - complex(psb_spk_), intent (in) :: x(:,:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + complex(psb_spk_), intent (in) :: x(:,:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_cmasum end interface interface psb_genrm2 function psb_cnrm2(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_cnrm2 complex(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_cnrm2 function psb_cnrm2v(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) psb_cnrm2v complex(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cnrm2v function psb_cnrm2_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cnrm2_vect end interface interface psb_genrm2s subroutine psb_cnrm2vs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_), intent (out) :: res - complex(psb_spk_), intent (in) :: x(:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + complex(psb_spk_), intent (in) :: x(:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_cnrm2vs end interface interface psb_spnrmi function psb_cnrmi(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type - real(psb_spk_) :: psb_cnrmi + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + real(psb_spk_) :: psb_cnrmi type(psb_cspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cnrmi end interface interface psb_spnrm1 function psb_cspnrm1(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type real(psb_spk_) :: psb_cspnrm1 type(psb_cspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_cspnrm1 end interface interface psb_spmm subroutine psb_cspmm(alpha, a, x, beta, y, desc_a, info,& &trans, k, jx, jy,work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(inout), target :: x(:,:) complex(psb_spk_), intent(inout), target :: y(:,:) @@ -266,14 +286,14 @@ module psb_c_psblas_mod type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans complex(psb_spk_), optional, intent(inout),target :: work(:) - integer, optional, intent(in) :: k, jx, jy + integer(psb_ipk_), optional, intent(in) :: k, jx, jy logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmm subroutine psb_cspmv(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(inout), target :: x(:) complex(psb_spk_), intent(inout), target :: y(:) @@ -282,13 +302,12 @@ module psb_c_psblas_mod character, optional, intent(in) :: trans complex(psb_spk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmv subroutine psb_cspmv_vect(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(in) :: a type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y @@ -297,7 +316,7 @@ module psb_c_psblas_mod character, optional, intent(in) :: trans complex(psb_spk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmv_vect end interface @@ -305,52 +324,51 @@ module psb_c_psblas_mod subroutine psb_cspsm(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(in) :: t complex(psb_spk_), intent(in), target :: x(:,:) complex(psb_spk_), intent(inout), target :: y(:,:) complex(psb_spk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: n, jx, jy - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), optional, intent(in) :: choice complex(psb_spk_), optional, intent(in), target :: diag(:) complex(psb_spk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspsm subroutine psb_cspsv(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(in) :: t complex(psb_spk_), intent(in), target :: x(:) complex(psb_spk_), intent(inout), target :: y(:) complex(psb_spk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice complex(psb_spk_), optional, intent(in), target :: diag(:) complex(psb_spk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspsv subroutine psb_cspsv_vect(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod, only : psb_c_vect_type - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type type(psb_cspmat_type), intent(inout) :: t type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y complex(psb_spk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice type(psb_c_vect_type), intent(inout), optional :: diag complex(psb_spk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspsv_vect end interface diff --git a/base/modules/psb_c_tools_mod.f90 b/base/modules/psb_c_tools_mod.f90 index 0d0871ad0..abf7d4a10 100644 --- a/base/modules/psb_c_tools_mod.f90 +++ b/base/modules/psb_c_tools_mod.f90 @@ -29,72 +29,86 @@ !!$ POSSIBILITY OF SUCH DAMAGE. !!$ !!$ - Module psb_c_tools_mod + use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_c_vect_mod, only : psb_c_base_vect_type, psb_c_vect_type + use psb_c_mat_mod, only : psb_cspmat_type, psb_c_base_sparse_mat interface psb_geall subroutine psb_calloc(x, desc_a, info, n, lb) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat implicit none complex(psb_spk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_calloc subroutine psb_callocv(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat complex(psb_spk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_callocv subroutine psb_calloc_vect(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_c_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_calloc_vect subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_c_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_calloc_vect_r2 end interface interface psb_geasb subroutine psb_casb(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_casb subroutine psb_casbv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_casbv subroutine psb_casb_vect(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_casb_vect subroutine psb_casb_vect_r2(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_casb_vect_r2 @@ -103,125 +117,141 @@ Module psb_c_tools_mod interface psb_sphalo Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type - Type(psb_cspmat_type),Intent(in) :: a - Type(psb_cspmat_type),Intent(inout) :: blk - Type(psb_desc_type),Intent(in) :: desc_a - integer, intent(out) :: info - logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale - character(len=5), optional :: outfmt - integer, intent(in), optional :: data + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + Type(psb_cspmat_type),Intent(in) :: a + Type(psb_cspmat_type),Intent(inout) :: blk + Type(psb_desc_type),Intent(in), target :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale + character(len=5), optional :: outfmt + integer(psb_ipk_), intent(in), optional :: data end Subroutine psb_csphalo end interface interface psb_gefree subroutine psb_cfree(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat complex(psb_spk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cfree subroutine psb_cfreev(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat complex(psb_spk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cfreev subroutine psb_cfree_vect(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cfree_vect subroutine psb_cfree_vect_r2(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cfree_vect_r2 end interface interface psb_geins subroutine psb_cinsi(m,irw,val, x, desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_),intent(inout) :: x(:,:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_cinsi subroutine psb_cinsvi(m, irw,val, x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_),intent(inout) :: x(:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_cinsvi subroutine psb_cins_vect(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_cins_vect subroutine psb_cins_vect_r2(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x(:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_cins_vect_r2 end interface interface psb_cdbldext Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info,extype) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type - integer, intent(in) :: novr + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat + integer(psb_ipk_), intent(in) :: novr Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype end Subroutine psb_ccdbldext end interface interface psb_spall subroutine psb_cspalloc(a, desc_a, info, nnz) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz end subroutine psb_cspalloc end interface interface psb_spasb subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type, psb_c_base_sparse_mat + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_cspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_cspasb @@ -229,49 +259,52 @@ Module psb_c_tools_mod interface psb_spfree subroutine psb_cspfree(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a - type(psb_cspmat_type), intent(inout) ::a - integer, intent(out) :: info + type(psb_cspmat_type), intent(inout) ::a + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspfree end interface interface psb_spins subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(inout) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild end subroutine psb_cspins subroutine psb_cspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cspins_2desc end interface interface psb_sprn subroutine psb_csprn(a, desc_a,info,clear) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_cspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_base_vect_type, psb_c_vect_type, & + & psb_cspmat_type, psb_c_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear end subroutine psb_csprn end interface - end module psb_c_tools_mod diff --git a/base/modules/psb_c_vect_mod.f90 b/base/modules/psb_c_vect_mod.f90 index a0ee3e3ea..29d809bf6 100644 --- a/base/modules/psb_c_vect_mod.f90 +++ b/base/modules/psb_c_vect_mod.f90 @@ -97,7 +97,7 @@ contains complex(psb_spk_), intent(in) :: invect(:) class(psb_c_vect_type), intent(out) :: x class(psb_c_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -111,10 +111,10 @@ contains subroutine c_vect_bld_n(x,n,mold) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(out) :: x class(psb_c_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -128,7 +128,7 @@ contains function c_vect_get_vect(x) result(res) class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) then res = x%v%get_vect() @@ -139,7 +139,7 @@ contains class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine c_vect_set_scal @@ -148,7 +148,7 @@ contains class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine c_vect_set_vect @@ -157,7 +157,7 @@ contains function constructor(x) result(this) complex(psb_spk_) :: x(:) type(psb_c_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_c_base_vect_type :: this%v, stat=info) @@ -169,9 +169,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_c_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_c_base_vect_type :: this%v, stat=info) call this%asb(n,info) @@ -181,7 +181,7 @@ contains function c_vect_get_nrows(x) result(res) implicit none class(psb_c_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = x%v%get_nrows() end function c_vect_get_nrows @@ -197,7 +197,7 @@ contains function c_vect_dot_v(n,x,y) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res res = czero @@ -210,7 +210,7 @@ contains implicit none class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res res = czero @@ -222,11 +222,11 @@ contains subroutine c_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) @@ -239,11 +239,11 @@ contains subroutine c_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(y%v)) & & call y%v%axpby(m,alpha,x,beta,info) @@ -256,8 +256,8 @@ contains implicit none class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v)) & @@ -270,8 +270,8 @@ contains implicit none complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -288,8 +288,8 @@ contains complex(psb_spk_), intent(in) :: y(:) complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v)) & @@ -304,10 +304,10 @@ contains class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y class(psb_c_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v).and.& @@ -323,8 +323,8 @@ contains complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y class(psb_c_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v).and.allocated(y%v)) & @@ -339,8 +339,8 @@ contains complex(psb_spk_), intent(in) :: y(:) class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -363,7 +363,7 @@ contains function c_vect_nrm2(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -377,7 +377,7 @@ contains function c_vect_amax(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -391,7 +391,7 @@ contains function c_vect_asum(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -405,10 +405,10 @@ contains subroutine c_vect_all(n, x, info, mold) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(out) :: x class(psb_c_base_vect_type), intent(in), optional :: mold - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -436,9 +436,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v)) & & call x%v%asb(n,info) @@ -456,7 +456,7 @@ contains subroutine c_vect_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: alpha, beta, y(:) class(psb_c_vect_type) :: x @@ -467,7 +467,7 @@ contains subroutine c_vect_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: y(:) class(psb_c_vect_type) :: x @@ -478,7 +478,7 @@ contains subroutine c_vect_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:) class(psb_c_vect_type) :: y @@ -492,7 +492,7 @@ contains use psb_realloc_mod implicit none class(psb_c_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) then @@ -506,12 +506,12 @@ contains use psi_serial_mod implicit none class(psb_c_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (.not.allocated(x%v)) then @@ -529,7 +529,7 @@ contains class(psb_c_base_vect_type), intent(in) :: mold class(psb_c_base_vect_type), allocatable :: tmp complex(psb_spk_), allocatable :: invect(:) - integer :: info + integer(psb_ipk_) :: info allocate(tmp,stat=info,mold=mold) call x%v%sync() diff --git a/base/modules/psb_check_mod.f90 b/base/modules/psb_check_mod.f90 index d765c4f62..129dd1364 100644 --- a/base/modules/psb_check_mod.f90 +++ b/base/modules/psb_check_mod.f90 @@ -62,7 +62,7 @@ contains ! of the dense submatrix which is to be operated on. ! jx - integer. X's global column index, which points to the beginning ! of the dense submatrix which is to be operated on. - ! desc_dec - integer,dimension(:). Is the matrix_data array. + ! desc_dec - integer(psb_ipk_),dimension(:). Is the matrix_data array. ! info - integer. Return code ! iix - integer(optional). The local rows starting index of the submatrix. ! jjx - integer(optional). The local columns starting index of the submatrix. @@ -72,13 +72,13 @@ contains use psb_error_mod implicit none - integer, intent(in) :: m,n,ix,jx,lldx + integer(psb_ipk_), intent(in) :: m,n,ix,jx,lldx type(psb_desc_type), intent(in) :: desc_dec - integer, intent(out) :: info - integer, optional :: iix, jjx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: iix, jjx ! locals - integer :: err_act, int_err(5) + integer(psb_ipk_) :: err_act, int_err(5) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -188,7 +188,7 @@ contains ! of the dense submatrix which is to be operated on. ! jx - integer. X's global column index, which points to the beginning ! of the dense submatrix which is to be operated on. - ! desc_dec - integer,dimension(:). Is the matrix_data array. + ! desc_dec - integer(psb_ipk_),dimension(:). Is the matrix_data array. ! info - integer. Return code ! subroutine psb_chkglobvect( m, n, lldx, ix, jx, desc_dec, info) @@ -198,12 +198,12 @@ contains use psb_error_mod implicit none - integer, intent(in) :: m,n,ix,jx,lldx + integer(psb_ipk_), intent(in) :: m,n,ix,jx,lldx type(psb_desc_type), intent(in) :: desc_dec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: err_act, int_err(5) + integer(psb_ipk_) :: err_act, int_err(5) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -309,7 +309,7 @@ contains ! of the submatrix which is to be operated on. ! ja - integer. a's global column index, which points to the beginning ! of the submatrix which is to be operated on. - ! desc_dec - integer,dimension(:). Is the matrix_data array. + ! desc_dec - integer(psb_ipk_),dimension(:). Is the matrix_data array. ! info - integer. Return code ! iia - integer(optional). The local rows starting index of the submatrix. ! jja - integer(optional). The local columns starting index of the submatrix. @@ -321,13 +321,13 @@ contains use psb_error_mod implicit none - integer, intent(in) :: m,n,ia,ja + integer(psb_ipk_), intent(in) :: m,n,ia,ja type(psb_desc_type), intent(in) :: desc_dec - integer, intent(out) :: info - integer, optional :: iia, jja + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: iia, jja ! locals - integer :: err_act, int_err(5) + integer(psb_ipk_) :: err_act, int_err(5) character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/modules/psb_const_mod.F90 b/base/modules/psb_const_mod.F90 index 5c37bd894..3fc12f940 100644 --- a/base/modules/psb_const_mod.F90 +++ b/base/modules/psb_const_mod.F90 @@ -40,7 +40,7 @@ module psb_const_mod #else integer, parameter :: ndig=8 #endif - integer, parameter :: psb_int_k_ = selected_int_kind(ndig) + integer, parameter :: psb_ipk_ = selected_int_kind(ndig) ! This is an 8-byte integer, and normally different from default integer. integer, parameter :: longndig=12 integer, parameter :: psb_long_int_k_ = selected_int_kind(longndig) @@ -48,24 +48,24 @@ module psb_const_mod ! These must be the kind parameter corresponding to MPI_DOUBLE_PRECISION ! and MPI_REAL ! - integer, parameter :: psb_dpk_ = kind(1.d0) - integer, parameter :: psb_spk_ = kind(1.e0) - integer, save :: psb_sizeof_dp, psb_sizeof_sp - integer, save :: psb_sizeof_int, psb_sizeof_long_int - integer, save :: psb_mpi_integer + integer(psb_ipk_), parameter :: psb_dpk_ = kind(1.d0) + integer(psb_ipk_), parameter :: psb_spk_ = kind(1.e0) + integer(psb_ipk_), save :: psb_sizeof_dp, psb_sizeof_sp + integer(psb_ipk_), save :: psb_sizeof_int, psb_sizeof_long_int + integer(psb_ipk_), save :: psb_mpi_integer ! ! Version ! character(len=*), parameter :: psb_version_string_ = "3.0.0" - integer, parameter :: psb_version_major_ = 3 - integer, parameter :: psb_version_minor_ = 0 - integer, parameter :: psb_patchlevel_ = 0 + integer(psb_ipk_), parameter :: psb_version_major_ = 3 + integer(psb_ipk_), parameter :: psb_version_minor_ = 0 + integer(psb_ipk_), parameter :: psb_patchlevel_ = 0 ! ! Handy & miscellaneous constants ! - integer, parameter :: izero=0, ione=1 - integer, parameter :: itwo=2, ithree=3,mone=-1, psb_root_=0 + integer(psb_ipk_), parameter :: izero=0, ione=1 + integer(psb_ipk_), parameter :: itwo=2, ithree=3,mone=-1, psb_root_=0 real(psb_spk_), parameter :: szero=0.e0, sone=1.e0 real(psb_dpk_), parameter :: dzero=0.d0, done=1.d0 complex(psb_spk_), parameter :: czero=(0.e0,0.0e0) @@ -89,108 +89,108 @@ module psb_const_mod ! ! State of matrices. ! - integer, parameter :: psb_invalid_ = -1 - integer, parameter :: psb_spmat_null_=0, psb_spmat_bld_=1 - integer, parameter :: psb_spmat_asb_=2, psb_spmat_upd_=4 + integer(psb_ipk_), parameter :: psb_invalid_ = -1 + integer(psb_ipk_), parameter :: psb_spmat_null_=0, psb_spmat_bld_=1 + integer(psb_ipk_), parameter :: psb_spmat_asb_=2, psb_spmat_upd_=4 - integer, parameter :: psb_ireg_flgs_=10, psb_ip2_=0 - integer, parameter :: psb_iflag_=2, psb_ichk_=3 - integer, parameter :: psb_nnzt_=4, psb_zero_=5,psb_ipc_=6 + integer(psb_ipk_), parameter :: psb_ireg_flgs_=10, psb_ip2_=0 + integer(psb_ipk_), parameter :: psb_iflag_=2, psb_ichk_=3 + integer(psb_ipk_), parameter :: psb_nnzt_=4, psb_zero_=5,psb_ipc_=6 ! Duplicate coefficients handling ! These are usually set while calling spcnv as one of its ! optional arugments. - integer, parameter :: psb_dupl_ovwrt_ = 0 - integer, parameter :: psb_dupl_add_ = 1 - integer, parameter :: psb_dupl_err_ = 2 - integer, parameter :: psb_dupl_def_ = psb_dupl_ovwrt_ + integer(psb_ipk_), parameter :: psb_dupl_ovwrt_ = 0 + integer(psb_ipk_), parameter :: psb_dupl_add_ = 1 + integer(psb_ipk_), parameter :: psb_dupl_err_ = 2 + integer(psb_ipk_), parameter :: psb_dupl_def_ = psb_dupl_ovwrt_ ! Matrix update mode - integer, parameter :: psb_upd_srch_ = 98764 - integer, parameter :: psb_upd_perm_ = 98765 - integer, parameter :: psb_upd_dflt_ = psb_upd_srch_ + integer(psb_ipk_), parameter :: psb_upd_srch_ = 98764 + integer(psb_ipk_), parameter :: psb_upd_perm_ = 98765 + integer(psb_ipk_), parameter :: psb_upd_dflt_ = psb_upd_srch_ #if defined(HAVE_ISO_FORTRAN_ENV) - integer, save :: psb_err_unit = error_unit - integer, save :: psb_inp_unit = input_unit - integer, save :: psb_out_unit = output_unit + integer(psb_ipk_), save :: psb_err_unit = error_unit + integer(psb_ipk_), save :: psb_inp_unit = input_unit + integer(psb_ipk_), save :: psb_out_unit = output_unit #else - integer, save :: psb_err_unit = 0 - integer, save :: psb_inp_unit = 5 - integer, save :: psb_out_unit = 6 + integer(psb_ipk_), save :: psb_err_unit = 0 + integer(psb_ipk_), save :: psb_inp_unit = 5 + integer(psb_ipk_), save :: psb_out_unit = 6 #endif ! ! ! Error constants - integer, parameter, public :: psb_success_=0 - integer, parameter, public :: psb_err_pivot_too_small_=2 - integer, parameter, public :: psb_err_invalid_ovr_num_=3 - integer, parameter, public :: psb_err_invalid_input_=5 - integer, parameter, public :: psb_err_iarg_neg_=10 - integer, parameter, public :: psb_err_iarg_pos_=20 - integer, parameter, public :: psb_err_input_value_invalid_i_=30 - integer, parameter, public :: psb_err_input_asize_invalid_i_=35 - integer, parameter, public :: psb_err_input_asize_small_i_=36 - integer, parameter, public :: psb_err_iarg_invalid_i_=40 - integer, parameter, public :: psb_err_iarg_not_gtia_ii_=50 - integer, parameter, public :: psb_err_iarg_not_gteia_ii_=60 - integer, parameter, public :: psb_err_iarg_invalid_value_=70 - integer, parameter, public :: psb_err_asb_nrc_error_=71 - integer, parameter, public :: psb_err_iarg2_neg_=80 - integer, parameter, public :: psb_err_ia2_not_increasing_=90 - integer, parameter, public :: psb_err_ia1_not_increasing_=91 - integer, parameter, public :: psb_err_ia1_badindices_=100 - integer, parameter, public :: psb_err_invalid_args_combination_=110 - integer, parameter, public :: psb_err_invalid_pid_arg_=115 - integer, parameter, public :: psb_err_iarg_n_mbgtian_=120 - integer, parameter, public :: psb_err_dupl_cd_vl=123 - integer, parameter, public :: psb_err_duplicate_coo=130 - integer, parameter, public :: psb_err_invalid_input_format_=134 - integer, parameter, public :: psb_err_unsupported_format_=135 - integer, parameter, public :: psb_err_format_unknown_=136 - integer, parameter, public :: psb_err_iarray_outside_bounds_=140 - integer, parameter, public :: psb_err_iarray_outside_process_=150 - integer, parameter, public :: psb_err_forgot_geall_=290 - integer, parameter, public :: psb_err_forgot_spall_=295 - integer, parameter, public :: psb_err_wrong_ins_=298 - integer, parameter, public :: psb_err_iarg_mbeeiarra_i_=300 - integer, parameter, public :: psb_err_mpi_error_=400 - integer, parameter, public :: psb_err_parm_differs_among_procs_=550 - integer, parameter, public :: psb_err_entry_out_of_bounds_=551 - integer, parameter, public :: psb_err_inconsistent_index_lists_=552 - integer, parameter, public :: psb_err_partfunc_toomuchprocs_=570 - integer, parameter, public :: psb_err_partfunc_toofewprocs_=575 - integer, parameter, public :: psb_err_partfunc_wrong_pid_=580 - integer, parameter, public :: psb_err_no_optional_arg_=581 - integer, parameter, public :: psb_err_arg_m_required_=582 - integer, parameter, public :: psb_err_many_optional_arg_=583 - integer, parameter, public :: psb_err_spmat_invalid_state_=600 - integer, parameter, public :: psb_err_missing_override_method_=700 - integer, parameter, public :: psb_err_invalid_dynamic_type_=701 - integer, parameter, public :: psb_err_rectangular_mat_unsupported_=1120 - integer, parameter, public :: psb_err_invalid_mat_state_=1121 - integer, parameter, public :: psb_err_invalid_cd_state_=1122 - integer, parameter, public :: psb_err_invalid_a_and_cd_state_=1123 - integer, parameter, public :: psb_err_invalid_vect_state_=1124 - integer, parameter, public :: psb_err_context_error_=2010 - integer, parameter, public :: psb_err_initerror_neugh_procs_=2011 - integer, parameter, public :: psb_err_invalid_matrix_input_state_=2231 - integer, parameter, public :: psb_err_input_no_regen_=2232 - integer, parameter, public :: psb_err_lld_case_not_implemented_=3010 - integer, parameter, public :: psb_err_transpose_unsupported_=3015 - integer, parameter, public :: psb_err_transpose_c_unsupported_=3020 - integer, parameter, public :: psb_err_transpose_not_n_unsupported_=3021 - integer, parameter, public :: psb_err_only_unit_diag_=3022 - integer, parameter, public :: psb_err_ja_nix_ia_niy_unsupported_=3030 - integer, parameter, public :: psb_err_ix_n1_iy_n1_unsupported_=3040 - integer, parameter, public :: psb_err_input_matrix_unassembled_=3110 - integer, parameter, public :: psb_err_missing_aux_lib_=3999 - integer, parameter, public :: psb_err_alloc_dealloc_=4000 - integer, parameter, public :: psb_err_internal_error_=4001 - integer, parameter, public :: psb_err_from_subroutine_=4010 - integer, parameter, public :: psb_err_from_subroutine_i_=4012 - integer, parameter, public :: psb_err_from_subroutine_ai_=4013 - integer, parameter, public :: psb_err_alloc_request_=4025 - integer, parameter, public :: psb_err_from_subroutine_non_=4011 - integer, parameter, public :: psb_err_invalid_istop_=5001 + integer(psb_ipk_), parameter, public :: psb_success_=0 + integer(psb_ipk_), parameter, public :: psb_err_pivot_too_small_=2 + integer(psb_ipk_), parameter, public :: psb_err_invalid_ovr_num_=3 + integer(psb_ipk_), parameter, public :: psb_err_invalid_input_=5 + integer(psb_ipk_), parameter, public :: psb_err_iarg_neg_=10 + integer(psb_ipk_), parameter, public :: psb_err_iarg_pos_=20 + integer(psb_ipk_), parameter, public :: psb_err_input_value_invalid_i_=30 + integer(psb_ipk_), parameter, public :: psb_err_input_asize_invalid_i_=35 + integer(psb_ipk_), parameter, public :: psb_err_input_asize_small_i_=36 + integer(psb_ipk_), parameter, public :: psb_err_iarg_invalid_i_=40 + integer(psb_ipk_), parameter, public :: psb_err_iarg_not_gtia_ii_=50 + integer(psb_ipk_), parameter, public :: psb_err_iarg_not_gteia_ii_=60 + integer(psb_ipk_), parameter, public :: psb_err_iarg_invalid_value_=70 + integer(psb_ipk_), parameter, public :: psb_err_asb_nrc_error_=71 + integer(psb_ipk_), parameter, public :: psb_err_iarg2_neg_=80 + integer(psb_ipk_), parameter, public :: psb_err_ia2_not_increasing_=90 + integer(psb_ipk_), parameter, public :: psb_err_ia1_not_increasing_=91 + integer(psb_ipk_), parameter, public :: psb_err_ia1_badindices_=100 + integer(psb_ipk_), parameter, public :: psb_err_invalid_args_combination_=110 + integer(psb_ipk_), parameter, public :: psb_err_invalid_pid_arg_=115 + integer(psb_ipk_), parameter, public :: psb_err_iarg_n_mbgtian_=120 + integer(psb_ipk_), parameter, public :: psb_err_dupl_cd_vl=123 + integer(psb_ipk_), parameter, public :: psb_err_duplicate_coo=130 + integer(psb_ipk_), parameter, public :: psb_err_invalid_input_format_=134 + integer(psb_ipk_), parameter, public :: psb_err_unsupported_format_=135 + integer(psb_ipk_), parameter, public :: psb_err_format_unknown_=136 + integer(psb_ipk_), parameter, public :: psb_err_iarray_outside_bounds_=140 + integer(psb_ipk_), parameter, public :: psb_err_iarray_outside_process_=150 + integer(psb_ipk_), parameter, public :: psb_err_forgot_geall_=290 + integer(psb_ipk_), parameter, public :: psb_err_forgot_spall_=295 + integer(psb_ipk_), parameter, public :: psb_err_wrong_ins_=298 + integer(psb_ipk_), parameter, public :: psb_err_iarg_mbeeiarra_i_=300 + integer(psb_ipk_), parameter, public :: psb_err_mpi_error_=400 + integer(psb_ipk_), parameter, public :: psb_err_parm_differs_among_procs_=550 + integer(psb_ipk_), parameter, public :: psb_err_entry_out_of_bounds_=551 + integer(psb_ipk_), parameter, public :: psb_err_inconsistent_index_lists_=552 + integer(psb_ipk_), parameter, public :: psb_err_partfunc_toomuchprocs_=570 + integer(psb_ipk_), parameter, public :: psb_err_partfunc_toofewprocs_=575 + integer(psb_ipk_), parameter, public :: psb_err_partfunc_wrong_pid_=580 + integer(psb_ipk_), parameter, public :: psb_err_no_optional_arg_=581 + integer(psb_ipk_), parameter, public :: psb_err_arg_m_required_=582 + integer(psb_ipk_), parameter, public :: psb_err_many_optional_arg_=583 + integer(psb_ipk_), parameter, public :: psb_err_spmat_invalid_state_=600 + integer(psb_ipk_), parameter, public :: psb_err_missing_override_method_=700 + integer(psb_ipk_), parameter, public :: psb_err_invalid_dynamic_type_=701 + integer(psb_ipk_), parameter, public :: psb_err_rectangular_mat_unsupported_=1120 + integer(psb_ipk_), parameter, public :: psb_err_invalid_mat_state_=1121 + integer(psb_ipk_), parameter, public :: psb_err_invalid_cd_state_=1122 + integer(psb_ipk_), parameter, public :: psb_err_invalid_a_and_cd_state_=1123 + integer(psb_ipk_), parameter, public :: psb_err_invalid_vect_state_=1124 + integer(psb_ipk_), parameter, public :: psb_err_context_error_=2010 + integer(psb_ipk_), parameter, public :: psb_err_initerror_neugh_procs_=2011 + integer(psb_ipk_), parameter, public :: psb_err_invalid_matrix_input_state_=2231 + integer(psb_ipk_), parameter, public :: psb_err_input_no_regen_=2232 + integer(psb_ipk_), parameter, public :: psb_err_lld_case_not_implemented_=3010 + integer(psb_ipk_), parameter, public :: psb_err_transpose_unsupported_=3015 + integer(psb_ipk_), parameter, public :: psb_err_transpose_c_unsupported_=3020 + integer(psb_ipk_), parameter, public :: psb_err_transpose_not_n_unsupported_=3021 + integer(psb_ipk_), parameter, public :: psb_err_only_unit_diag_=3022 + integer(psb_ipk_), parameter, public :: psb_err_ja_nix_ia_niy_unsupported_=3030 + integer(psb_ipk_), parameter, public :: psb_err_ix_n1_iy_n1_unsupported_=3040 + integer(psb_ipk_), parameter, public :: psb_err_input_matrix_unassembled_=3110 + integer(psb_ipk_), parameter, public :: psb_err_missing_aux_lib_=3999 + integer(psb_ipk_), parameter, public :: psb_err_alloc_dealloc_=4000 + integer(psb_ipk_), parameter, public :: psb_err_internal_error_=4001 + integer(psb_ipk_), parameter, public :: psb_err_from_subroutine_=4010 + integer(psb_ipk_), parameter, public :: psb_err_from_subroutine_i_=4012 + integer(psb_ipk_), parameter, public :: psb_err_from_subroutine_ai_=4013 + integer(psb_ipk_), parameter, public :: psb_err_alloc_request_=4025 + integer(psb_ipk_), parameter, public :: psb_err_from_subroutine_non_=4011 + integer(psb_ipk_), parameter, public :: psb_err_invalid_istop_=5001 end module psb_const_mod diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90 index 4fb98a307..ea6820744 100644 --- a/base/modules/psb_d_base_mat_mod.f90 +++ b/base/modules/psb_d_base_mat_mod.f90 @@ -123,8 +123,8 @@ module psb_d_base_mat_mod type, extends(psb_d_base_sparse_mat) :: psb_d_coo_sparse_mat - integer :: nnz - integer, allocatable :: ia(:), ja(:) + integer(psb_ipk_) :: nnz + integer(psb_ipk_), allocatable :: ia(:), ja(:) real(psb_dpk_), allocatable :: val(:) contains @@ -221,12 +221,12 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_base_csput end interface @@ -255,16 +255,16 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_base_csgetrow end interface @@ -281,14 +281,14 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_base_csgetblk end interface @@ -304,11 +304,11 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_base_csclip end interface @@ -320,10 +320,10 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_get_diag(a,d,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_get_diag end interface @@ -335,10 +335,10 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_mold(a,b,info) - import :: psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mold end interface @@ -357,73 +357,73 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_cp_to_coo(a,b,info) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_coo end interface interface subroutine psb_d_base_cp_from_coo(a,b,info) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_coo end interface interface subroutine psb_d_base_cp_to_fmt(a,b,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_fmt end interface interface subroutine psb_d_base_cp_from_fmt(a,b,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_fmt end interface interface subroutine psb_d_base_mv_to_coo(a,b,info) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_coo end interface interface subroutine psb_d_base_mv_from_coo(a,b,info) - import :: psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_from_coo end interface interface subroutine psb_d_base_mv_to_fmt(a,b,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_fmt end interface interface subroutine psb_d_base_mv_from_fmt(a,b,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_from_fmt end interface @@ -434,7 +434,7 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_transp_2mat(a,b) - import :: psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_d_base_transp_2mat @@ -442,7 +442,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_transc_2mat(a,b) - import :: psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_d_base_transc_2mat @@ -450,14 +450,14 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_transp_1mat(a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transp_1mat end interface interface subroutine psb_d_base_transc_1mat(a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transc_1mat end interface @@ -473,34 +473,34 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_csmm end interface interface subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_csmv end interface interface subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_vect_mv end interface @@ -513,44 +513,44 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_inner_cssm end interface interface subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_inner_cssv end interface interface subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import :: psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_base_inner_vect_sv end interface interface subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_base_cssm @@ -558,11 +558,11 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_base_cssv @@ -570,11 +570,11 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_d_base_sparse_mat, psb_dpk_,psb_d_base_vect_type + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_,psb_d_base_vect_type class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_d_base_vect_type), optional, intent(inout) :: d end subroutine psb_d_base_vect_cssv @@ -586,19 +586,19 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_scals(d,a,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_scals end interface interface subroutine psb_d_base_scal(d,a,info) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_scal end interface @@ -607,7 +607,7 @@ module psb_d_base_mat_mod ! interface function psb_d_base_maxval(a) result(res) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_maxval @@ -618,7 +618,7 @@ module psb_d_base_mat_mod ! interface function psb_d_base_csnmi(a) result(res) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnmi @@ -629,7 +629,7 @@ module psb_d_base_mat_mod ! interface function psb_d_base_csnm1(a) result(res) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnm1 @@ -641,7 +641,7 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_rowsum(d,a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_rowsum @@ -649,7 +649,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_arwsum(d,a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_arwsum @@ -661,7 +661,7 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_base_colsum(d,a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_colsum @@ -669,7 +669,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_base_aclsum(d,a) - import :: psb_d_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_base_sparse_mat, psb_dpk_ class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_aclsum @@ -684,15 +684,15 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_reallocate_nz(nz,a) - import :: psb_d_coo_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_d_coo_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_reallocate_nz end interface interface subroutine psb_d_coo_reinit(a,clear) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_coo_reinit @@ -700,48 +700,48 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_trim(a) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_trim end interface interface subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) - import :: psb_d_coo_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_d_coo_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_coo_allocate_mnnz end interface interface subroutine psb_d_coo_mold(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_mold end interface interface subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) - import :: psb_d_coo_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_d_coo_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_coo_print end interface interface function psb_d_coo_get_nz_row(idx,a) result(res) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res end function psb_d_coo_get_nz_row end interface @@ -754,99 +754,99 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import :: psb_dpk_ - integer, intent(in) :: nzin,dupl - integer, intent(inout) :: ia(:), ja(:) + import :: psb_ipk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nzin,dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_dpk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_d_fix_coo_inner end interface interface subroutine psb_d_fix_coo(a,info,idir) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_d_fix_coo end interface interface subroutine psb_d_cp_coo_to_coo(a,b,info) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_to_coo end interface interface subroutine psb_d_cp_coo_from_coo(a,b,info) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_from_coo end interface interface subroutine psb_d_cp_coo_to_fmt(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_to_fmt end interface interface subroutine psb_d_cp_coo_from_fmt(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_from_fmt end interface interface subroutine psb_d_mv_coo_to_coo(a,b,info) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_to_coo end interface interface subroutine psb_d_mv_coo_from_coo(a,b,info) - import :: psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_from_coo end interface interface subroutine psb_d_mv_coo_to_fmt(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_to_fmt end interface interface subroutine psb_d_mv_coo_from_fmt(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_base_sparse_mat class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_from_fmt end interface interface subroutine psb_d_coo_cp_from(a,b) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(in) :: b end subroutine psb_d_coo_cp_from @@ -854,7 +854,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_mv_from(a,b) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(inout) :: b end subroutine psb_d_coo_mv_from @@ -863,28 +863,28 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_coo_csput end interface interface subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_coo_csgetptn end interface @@ -892,54 +892,54 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_coo_csgetrow end interface interface subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_coo_cssv subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_coo_cssm end interface interface subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_coo_csmv subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_coo_csmm end interface @@ -947,7 +947,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_maxval(a) result(res) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_maxval @@ -955,7 +955,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_csnmi(a) result(res) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnmi @@ -963,7 +963,7 @@ module psb_d_base_mat_mod interface function psb_d_coo_csnm1(a) result(res) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnm1 @@ -971,7 +971,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_rowsum(d,a) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_rowsum @@ -979,7 +979,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_arwsum(d,a) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_arwsum @@ -987,7 +987,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_colsum(d,a) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_colsum @@ -995,7 +995,7 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_aclsum(d,a) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_aclsum @@ -1003,28 +1003,28 @@ module psb_d_base_mat_mod interface subroutine psb_d_coo_get_diag(a,d,info) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_get_diag end interface interface subroutine psb_d_coo_scal(d,a,info) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_scal end interface interface subroutine psb_d_coo_scals(d,a,info) - import :: psb_d_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_dpk_ class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_scals end interface @@ -1098,7 +1098,7 @@ contains function d_coo_get_size(a) result(res) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 if (allocated(a%ia)) res = size(a%ia) @@ -1122,7 +1122,7 @@ contains function d_coo_get_nzeros(a) result(res) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%nnz end function d_coo_get_nzeros @@ -1142,7 +1142,7 @@ contains subroutine d_coo_set_nzeros(nz,a) implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a a%nnz = nz @@ -1197,8 +1197,8 @@ contains class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, allocatable :: itemp(:) - integer :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: info call a%psb_d_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) diff --git a/base/modules/psb_d_base_vect_mod.f90 b/base/modules/psb_d_base_vect_mod.f90 index ed9a3312f..d7c00e64f 100644 --- a/base/modules/psb_d_base_vect_mod.f90 +++ b/base/modules/psb_d_base_vect_mod.f90 @@ -74,6 +74,13 @@ module psb_d_base_vect_mod ! version is only a placeholder. ! procedure, pass(x) :: sync => d_base_sync + procedure, pass(x) :: is_host => d_base_is_host + procedure, pass(x) :: is_dev => d_base_is_dev + procedure, pass(x) :: is_sync => d_base_is_sync + procedure, pass(x) :: set_host => d_base_set_host + procedure, pass(x) :: set_dev => d_base_set_dev + procedure, pass(x) :: set_sync => d_base_set_sync + ! ! Basic info procedure, pass(x) :: get_nrows => d_base_get_nrows @@ -140,7 +147,7 @@ contains function constructor(x) result(this) real(psb_dpk_) :: x(:) type(psb_d_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info this%v = x call this%asb(size(x),info) @@ -148,9 +155,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_d_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info call this%asb(n,info) @@ -164,7 +171,7 @@ contains use psb_realloc_mod real(psb_dpk_), intent(in) :: this(:) class(psb_d_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) if (info /= 0) then @@ -180,9 +187,9 @@ contains ! subroutine d_base_bld_n(x,n) use psb_realloc_mod - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(n,x%v,info) call x%asb(n,info) @@ -193,9 +200,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_base_vect_type), intent(out) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_realloc(n,x%v,info) @@ -208,12 +215,12 @@ contains use psi_serial_mod implicit none class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (psb_errstatus_fatal()) return @@ -283,9 +290,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -300,7 +307,7 @@ contains use psb_realloc_mod implicit none class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) @@ -312,16 +319,59 @@ contains ! - ! The base version of SYNC does nothing, it's just + ! The base version of SYNC & friends does nothing, it's just ! a placeholder. ! subroutine d_base_sync(x) implicit none class(psb_d_base_vect_type), intent(inout) :: x - end subroutine d_base_sync + + subroutine d_base_set_host(x) + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + + end subroutine d_base_set_host + + subroutine d_base_set_dev(x) + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + + end subroutine d_base_set_dev + + subroutine d_base_set_sync(x) + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + + end subroutine d_base_set_sync + + function d_base_is_dev(x) result(res) + implicit none + class(psb_d_base_vect_type), intent(in) :: x + logical :: res + + res = .false. + end function d_base_is_dev + + function d_base_is_host(x) result(res) + implicit none + class(psb_d_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function d_base_is_host + + function d_base_is_sync(x) result(res) + implicit none + class(psb_d_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function d_base_is_sync + + ! ! Size info. ! @@ -329,7 +379,7 @@ contains function d_base_get_nrows(x) result(res) implicit none class(psb_d_base_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = size(x%v) @@ -355,7 +405,7 @@ contains function d_base_get_vect(x) result(res) class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (.not.allocated(x%v)) return call x%sync() @@ -374,7 +424,7 @@ contains class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info x%v = val end subroutine d_base_set_scal @@ -382,8 +432,8 @@ contains subroutine d_base_set_vect(x,val) class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val(:) - integer :: nr - integer :: info + integer(psb_ipk_) :: nr + integer(psb_ipk_) :: info if (allocated(x%v)) then nr = min(size(x%v),size(val)) @@ -400,7 +450,7 @@ contains function d_base_dot_v(n,x,y) result(res) implicit none class(psb_d_base_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: ddot @@ -428,7 +478,7 @@ contains implicit none class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: ddot @@ -442,11 +492,11 @@ contains subroutine d_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info select type(xx => x) type is (psb_d_base_vect_type) @@ -460,11 +510,11 @@ contains subroutine d_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_geaxpby(m,alpha,x,beta,y%v,info) @@ -485,8 +535,8 @@ contains implicit none class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 select type(xx => x) @@ -506,8 +556,8 @@ contains implicit none real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(y%v), size(x)) @@ -525,8 +575,8 @@ contains real(psb_dpk_), intent(in) :: y(:) real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(z%v), size(x), size(y)) @@ -594,9 +644,9 @@ contains class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y class(psb_d_base_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ info = 0 @@ -622,8 +672,8 @@ contains real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y class(psb_d_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -638,8 +688,8 @@ contains real(psb_dpk_), intent(in) :: y(:) class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -669,7 +719,7 @@ contains function d_base_nrm2(n,x) result(res) implicit none class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: dnrm2 @@ -680,7 +730,7 @@ contains function d_base_amax(n,x) result(res) implicit none class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = maxval(abs(x%v(1:n))) @@ -690,7 +740,7 @@ contains function d_base_asum(n,x) result(res) implicit none class(psb_d_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = sum(abs(x%v(1:n))) @@ -704,7 +754,7 @@ contains subroutine d_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: alpha, beta, y(:) class(psb_d_base_vect_type) :: x @@ -717,7 +767,7 @@ contains ! subroutine d_base_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: y(:) class(psb_d_base_vect_type) :: x @@ -733,12 +783,13 @@ contains subroutine d_base_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:) class(psb_d_base_vect_type) :: y call y%sync() call psi_sct(n,idx,x,beta,y%v) + call y%set_host() end subroutine d_base_sctb diff --git a/base/modules/psb_d_comm_mod.f90 b/base/modules/psb_d_comm_mod.f90 index a47d7f4ec..1c0d750d5 100644 --- a/base/modules/psb_d_comm_mod.f90 +++ b/base/modules/psb_d_comm_mod.f90 @@ -36,26 +36,26 @@ module psb_d_comm_mod use psb_descriptor_type real(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode end subroutine psb_dovrlm subroutine psb_dovrlv(x,desc_a,info,work,update,mode) use psb_descriptor_type real(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_dovrlv subroutine psb_dovrl_vect(x,desc_a,info,work,update,mode) use psb_descriptor_type use psb_d_vect_mod type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_dovrl_vect end interface @@ -64,20 +64,20 @@ module psb_d_comm_mod use psb_descriptor_type real(psb_dpk_), intent(inout),target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran end subroutine psb_dhalom subroutine psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data) use psb_descriptor_type real(psb_dpk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_dhalov subroutine psb_dhalo_vect(x,desc_a,info,alpha,work,tran,mode,data) @@ -85,10 +85,10 @@ module psb_d_comm_mod use psb_d_vect_mod type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha real(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_dhalo_vect end interface @@ -100,16 +100,16 @@ module psb_d_comm_mod real(psb_dpk_), intent(out) :: locx(:,:) real(psb_dpk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_dscatterm subroutine psb_dscatterv(globx, locx, desc_a, info, root) use psb_descriptor_type real(psb_dpk_), intent(out) :: locx(:) real(psb_dpk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_dscatterv end interface @@ -121,8 +121,8 @@ module psb_d_comm_mod type(psb_dspmat_type), intent(inout) :: loca type(psb_dspmat_type), intent(out) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root,dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root,dupl logical, intent(in), optional :: keepnum,keeploc end subroutine psb_dsp_allgather subroutine psb_dgatherm(globx, locx, desc_a, info, root) @@ -130,16 +130,16 @@ module psb_d_comm_mod real(psb_dpk_), intent(in) :: locx(:,:) real(psb_dpk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_dgatherm subroutine psb_dgatherv(globx, locx, desc_a, info, root) use psb_descriptor_type real(psb_dpk_), intent(in) :: locx(:) real(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_dgatherv subroutine psb_dgather_vect(globx, locx, desc_a, info, root) use psb_descriptor_type @@ -147,8 +147,8 @@ module psb_d_comm_mod type(psb_d_vect_type), intent(inout) :: locx real(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_dgather_vect end interface diff --git a/base/modules/psb_d_csc_mat_mod.f90 b/base/modules/psb_d_csc_mat_mod.f90 index 3410b6602..d99edf392 100644 --- a/base/modules/psb_d_csc_mat_mod.f90 +++ b/base/modules/psb_d_csc_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_d_csc_mat_mod type, extends(psb_d_base_sparse_mat) :: psb_d_csc_sparse_mat - integer, allocatable :: icp(:), ia(:) + integer(psb_ipk_), allocatable :: icp(:), ia(:) real(psb_dpk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_reallocate_nz(nz,a) - import :: psb_d_csc_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_d_csc_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_reallocate_nz end interface interface subroutine psb_d_csc_reinit(a,clear) - import :: psb_d_csc_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csc_reinit @@ -116,115 +116,115 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_trim(a) - import :: psb_d_csc_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_trim end interface interface subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) - import :: psb_d_csc_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_d_csc_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_d_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_csc_allocate_mnnz end interface interface subroutine psb_d_csc_mold(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_mold end interface interface subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) - import :: psb_d_csc_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_d_csc_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_csc_print end interface interface subroutine psb_d_cp_csc_to_coo(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_csc_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_csc_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_to_coo end interface interface subroutine psb_d_cp_csc_from_coo(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_from_coo end interface interface subroutine psb_d_cp_csc_to_fmt(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_to_fmt end interface interface subroutine psb_d_cp_csc_from_fmt(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_from_fmt end interface interface subroutine psb_d_mv_csc_to_coo(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_to_coo end interface interface subroutine psb_d_mv_csc_from_coo(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_from_coo end interface interface subroutine psb_d_mv_csc_to_fmt(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_to_fmt end interface interface subroutine psb_d_mv_csc_from_fmt(a,b,info) - import :: psb_d_csc_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_d_base_sparse_mat class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_from_fmt end interface interface subroutine psb_d_csc_cp_from(a,b) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(in) :: b end subroutine psb_d_csc_cp_from @@ -232,7 +232,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_mv_from(a,b) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(inout) :: b end subroutine psb_d_csc_mv_from @@ -241,28 +241,28 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_csc_csput end interface interface subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csc_csgetptn end interface @@ -270,16 +270,16 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csc_csgetrow end interface @@ -287,52 +287,52 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_d_csc_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csc_csgetblk end interface interface subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csc_cssv subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csc_cssm end interface interface subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csc_csmv subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csc_csmm end interface @@ -340,7 +340,7 @@ module psb_d_csc_mat_mod interface function psb_d_csc_maxval(a) result(res) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_maxval @@ -348,7 +348,7 @@ module psb_d_csc_mat_mod interface function psb_d_csc_csnmi(a) result(res) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_csnmi @@ -356,7 +356,7 @@ module psb_d_csc_mat_mod interface function psb_d_csc_csnm1(a) result(res) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_csnm1 @@ -364,7 +364,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_rowsum(d,a) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_rowsum @@ -372,7 +372,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_arwsum(d,a) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_arwsum @@ -380,7 +380,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_colsum(d,a) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_colsum @@ -388,7 +388,7 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_aclsum(d,a) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_aclsum @@ -396,28 +396,28 @@ module psb_d_csc_mat_mod interface subroutine psb_d_csc_get_diag(a,d,info) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_get_diag end interface interface subroutine psb_d_csc_scal(d,a,info) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_scal end interface interface subroutine psb_d_csc_scals(d,a,info) - import :: psb_d_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_scals end interface @@ -457,14 +457,14 @@ contains function d_csc_get_nzeros(a) result(res) implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function d_csc_get_nzeros function d_csc_get_size(a) result(res) implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -492,8 +492,8 @@ contains implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_d_csr_mat_mod.f90 b/base/modules/psb_d_csr_mat_mod.f90 index 5445846c5..e698f3152 100644 --- a/base/modules/psb_d_csr_mat_mod.f90 +++ b/base/modules/psb_d_csr_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_d_csr_mat_mod type, extends(psb_d_base_sparse_mat) :: psb_d_csr_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) real(psb_dpk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_reallocate_nz(nz,a) - import :: psb_d_csr_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_d_csr_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_d_csr_sparse_mat), intent(inout) :: a end subroutine psb_d_csr_reallocate_nz end interface interface subroutine psb_d_csr_reinit(a,clear) - import :: psb_d_csr_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csr_reinit @@ -116,115 +116,115 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_trim(a) - import :: psb_d_csr_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a end subroutine psb_d_csr_trim end interface interface subroutine psb_d_csr_mold(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_mold end interface interface subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) - import :: psb_d_csr_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_d_csr_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_d_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_csr_allocate_mnnz end interface interface subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) - import :: psb_d_csr_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_d_csr_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_csr_print end interface interface subroutine psb_d_cp_csr_to_coo(a,b,info) - import :: psb_d_coo_sparse_mat, psb_d_csr_sparse_mat + import :: psb_ipk_, psb_d_coo_sparse_mat, psb_d_csr_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_to_coo end interface interface subroutine psb_d_cp_csr_from_coo(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_from_coo end interface interface subroutine psb_d_cp_csr_to_fmt(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_to_fmt end interface interface subroutine psb_d_cp_csr_from_fmt(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_from_fmt end interface interface subroutine psb_d_mv_csr_to_coo(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_to_coo end interface interface subroutine psb_d_mv_csr_from_coo(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_from_coo end interface interface subroutine psb_d_mv_csr_to_fmt(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_to_fmt end interface interface subroutine psb_d_mv_csr_from_fmt(a,b,info) - import :: psb_d_csr_sparse_mat, psb_d_base_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_d_base_sparse_mat class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_from_fmt end interface interface subroutine psb_d_csr_cp_from(a,b) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(in) :: b end subroutine psb_d_csr_cp_from @@ -232,7 +232,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_mv_from(a,b) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(inout) :: b end subroutine psb_d_csr_mv_from @@ -241,28 +241,28 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_csr_csput end interface interface subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csr_csgetptn end interface @@ -270,16 +270,16 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csr_csgetrow end interface @@ -287,52 +287,52 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_d_csr_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csr_csgetblk end interface interface subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csr_cssv subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csr_cssm end interface interface subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csr_csmv subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csr_csmm end interface @@ -340,7 +340,7 @@ module psb_d_csr_mat_mod interface function psb_d_csr_maxval(a) result(res) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_maxval @@ -348,7 +348,7 @@ module psb_d_csr_mat_mod interface function psb_d_csr_csnmi(a) result(res) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_csnmi @@ -356,7 +356,7 @@ module psb_d_csr_mat_mod interface function psb_d_csr_csnm1(a) result(res) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_csnm1 @@ -364,7 +364,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_rowsum(d,a) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_rowsum @@ -372,7 +372,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_arwsum(d,a) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_arwsum @@ -380,7 +380,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_colsum(d,a) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_colsum @@ -388,7 +388,7 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_aclsum(d,a) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_aclsum @@ -396,28 +396,28 @@ module psb_d_csr_mat_mod interface subroutine psb_d_csr_get_diag(a,d,info) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_get_diag end interface interface subroutine psb_d_csr_scal(d,a,info) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_scal end interface interface subroutine psb_d_csr_scals(d,a,info) - import :: psb_d_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_d_csr_sparse_mat, psb_dpk_ class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_scals end interface @@ -458,14 +458,14 @@ contains function d_csr_get_nzeros(a) result(res) implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function d_csr_get_nzeros function d_csr_get_size(a) result(res) implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -493,8 +493,8 @@ contains implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_d_linmap_mod.f90 b/base/modules/psb_d_linmap_mod.f90 index fb74445a3..152734883 100644 --- a/base/modules/psb_d_linmap_mod.f90 +++ b/base/modules/psb_d_linmap_mod.f90 @@ -55,24 +55,24 @@ module psb_d_linmap_mod interface psb_map_X2Y subroutine psb_d_map_X2Y(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_dlinmap_type + import :: psb_ipk_, psb_dlinmap_type implicit none type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) end subroutine psb_d_map_X2Y subroutine psb_d_map_X2Y_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_d_vect_mod - import :: psb_dlinmap_type + import :: psb_ipk_, psb_dlinmap_type implicit none type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta type(psb_d_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) end subroutine psb_d_map_X2Y_vect end interface @@ -80,24 +80,24 @@ module psb_d_linmap_mod interface psb_map_Y2X subroutine psb_d_map_Y2X(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_dlinmap_type + import :: psb_ipk_, psb_dlinmap_type implicit none type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) end subroutine psb_d_map_Y2X subroutine psb_d_map_Y2X_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_d_vect_mod - import :: psb_dlinmap_type + import :: psb_ipk_, psb_dlinmap_type implicit none type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta type(psb_d_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) end subroutine psb_d_map_Y2X_vect end interface @@ -118,13 +118,13 @@ module psb_d_linmap_mod interface psb_linmap function psb_d_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) use psb_d_mat_mod, only : psb_dspmat_type - import :: psb_dlinmap_type, psb_desc_type + import :: psb_ipk_, psb_dlinmap_type, psb_desc_type implicit none type(psb_dlinmap_type) :: psb_d_linmap type(psb_desc_type), target :: desc_X, desc_Y type(psb_dspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) end function psb_d_linmap end interface @@ -166,7 +166,7 @@ contains use psb_d_mat_mod implicit none type(psb_dlinmap_type), intent(inout) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: type class(psb_d_base_sparse_mat), intent(in), optional :: mold @@ -183,8 +183,8 @@ contains type(psb_dlinmap_type), intent(out) :: out_map type(psb_desc_type), target :: desc_X, desc_Y type(psb_dspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr) end subroutine psb_d_linmap_sub @@ -194,7 +194,7 @@ contains use psb_mat_mod, only : psb_move_alloc implicit none type(psb_dlinmap_type) :: mapin,mapout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_move_alloc(mapin%psb_base_linmap_type, & & mapout%psb_base_linmap_type,info) @@ -207,7 +207,7 @@ contains use psb_descriptor_type implicit none class(psb_dlinmap_type) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call map%psb_base_linmap_type%free(info) diff --git a/base/modules/psb_d_mat_mod.f90 b/base/modules/psb_d_mat_mod.f90 index f3a39a3ec..b2ac7bb4e 100644 --- a/base/modules/psb_d_mat_mod.f90 +++ b/base/modules/psb_d_mat_mod.f90 @@ -205,59 +205,59 @@ module psb_d_mat_mod interface subroutine psb_d_set_nrows(m,a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m end subroutine psb_d_set_nrows end interface interface subroutine psb_d_set_ncols(n,a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_d_set_ncols end interface interface subroutine psb_d_set_dupl(n,a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_d_set_dupl end interface interface subroutine psb_d_set_null(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_null end interface interface subroutine psb_d_set_bld(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_bld end interface interface subroutine psb_d_set_upd(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_upd end interface interface subroutine psb_d_set_asb(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_asb end interface interface subroutine psb_d_set_sorted(a,val) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_sorted @@ -265,7 +265,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_triangle(a,val) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_triangle @@ -273,7 +273,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_unit(a,val) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_unit @@ -281,7 +281,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_lower(a,val) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_lower @@ -289,7 +289,7 @@ module psb_d_mat_mod interface subroutine psb_d_set_upper(a,val) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_upper @@ -297,93 +297,93 @@ module psb_d_mat_mod interface subroutine psb_d_sparse_print(iout,a,iv,head,ivr,ivc) - import :: psb_dspmat_type - integer, intent(in) :: iout + import :: psb_ipk_, psb_dspmat_type + integer(psb_ipk_), intent(in) :: iout class(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_sparse_print end interface interface subroutine psb_d_n_sparse_print(fname,a,iv,head,ivr,ivc) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type character(len=*), intent(in) :: fname class(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_n_sparse_print end interface interface subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_d_get_neigh end interface interface subroutine psb_d_csall(nr,nc,a,info,nz) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_csall end interface interface subroutine psb_d_reallocate_nz(nz,a) - import :: psb_dspmat_type - integer, intent(in) :: nz + import :: psb_ipk_, psb_dspmat_type + integer(psb_ipk_), intent(in) :: nz class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_reallocate_nz end interface interface subroutine psb_d_free(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_free end interface interface subroutine psb_d_trim(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_trim end interface interface subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_csput end interface interface subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetptn end interface @@ -391,16 +391,16 @@ module psb_d_mat_mod interface subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetrow end interface @@ -408,14 +408,14 @@ module psb_d_mat_mod interface subroutine psb_d_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetblk end interface @@ -423,11 +423,11 @@ module psb_d_mat_mod interface subroutine psb_d_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csclip end interface @@ -435,18 +435,18 @@ module psb_d_mat_mod interface subroutine psb_d_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_dspmat_type, psb_dpk_, psb_d_coo_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_coo_sparse_mat class(psb_dspmat_type), intent(in) :: a type(psb_d_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_b_csclip end interface interface subroutine psb_d_mold(a,b) - import :: psb_dspmat_type, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_d_mold @@ -454,14 +454,14 @@ module psb_d_mat_mod interface subroutine psb_d_transp_1mat(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_transp_1mat end interface interface subroutine psb_d_transp_2mat(a,b) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b end subroutine psb_d_transp_2mat @@ -469,14 +469,14 @@ module psb_d_mat_mod interface subroutine psb_d_transc_1mat(a) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_transc_1mat end interface interface subroutine psb_d_transc_2mat(a,b) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b end subroutine psb_d_transc_2mat @@ -484,7 +484,7 @@ module psb_d_mat_mod interface subroutine psb_d_reinit(a,clear) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_reinit @@ -507,11 +507,11 @@ module psb_d_mat_mod ! interface subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_d_cscnv @@ -520,10 +520,10 @@ module psb_d_mat_mod interface subroutine psb_d_cscnv_ip(a,iinfo,type,mold,dupl) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: iinfo - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: iinfo + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_d_cscnv_ip @@ -532,11 +532,11 @@ module psb_d_mat_mod interface subroutine psb_d_cscnv_base(a,b,info,dupl) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_d_cscnv_base end interface @@ -546,18 +546,18 @@ module psb_d_mat_mod ! interface subroutine psb_d_clip_d(a,b,info) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_d_clip_d end interface interface subroutine psb_d_clip_d_ip(a,info) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_d_clip_d_ip end interface @@ -567,7 +567,7 @@ module psb_d_mat_mod ! interface subroutine psb_d_mv_from(a,b) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_from @@ -575,7 +575,7 @@ module psb_d_mat_mod interface subroutine psb_d_cp_from(a,b) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(in) :: b end subroutine psb_d_cp_from @@ -583,7 +583,7 @@ module psb_d_mat_mod interface subroutine psb_d_mv_to(a,b) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(out) :: b end subroutine psb_d_mv_to @@ -591,7 +591,7 @@ module psb_d_mat_mod interface subroutine psb_d_cp_to(a,b) - import :: psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b end subroutine psb_d_cp_to @@ -602,19 +602,19 @@ module psb_d_mat_mod ! interface psb_move_alloc subroutine psb_dspmat_type_move(a,b,info) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmat_type_move end interface interface subroutine psb_dspmat_clone(a,b,info) - import :: psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmat_clone end interface @@ -636,60 +636,60 @@ module psb_d_mat_mod interface psb_csmm subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csmm subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csmv subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_d_vect_mod, only : psb_d_vect_type - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csmv_vect end interface interface psb_cssm subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_cssm subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_cssv subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_d_vect_mod, only : psb_d_vect_type - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_d_vect_type), optional, intent(inout) :: d end subroutine psb_d_cssv_vect @@ -697,7 +697,7 @@ module psb_d_mat_mod interface function psb_d_maxval(a) result(res) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_d_maxval @@ -705,7 +705,7 @@ module psb_d_mat_mod interface function psb_d_csnmi(a) result(res) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csnmi @@ -713,7 +713,7 @@ module psb_d_mat_mod interface function psb_d_csnm1(a) result(res) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csnm1 @@ -721,62 +721,62 @@ module psb_d_mat_mod interface subroutine psb_d_rowsum(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_rowsum end interface interface subroutine psb_d_arwsum(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_arwsum end interface interface subroutine psb_d_colsum(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_colsum end interface interface subroutine psb_d_aclsum(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_aclsum end interface interface subroutine psb_d_get_diag(a,d,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_get_diag end interface interface psb_scal subroutine psb_d_scal(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_scal subroutine psb_d_scals(d,a,info) - import :: psb_dspmat_type, psb_dpk_ + import :: psb_ipk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_scals end interface @@ -827,7 +827,7 @@ contains function psb_d_get_dupl(a) result(res) implicit none class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_dupl() @@ -839,7 +839,7 @@ contains function psb_d_get_nrows(a) result(res) implicit none class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_nrows() @@ -852,7 +852,7 @@ contains function psb_d_get_ncols(a) result(res) implicit none class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_ncols() @@ -984,7 +984,7 @@ contains function psb_d_get_nzeros(a) result(res) implicit none class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(a%a)) then @@ -997,7 +997,7 @@ contains implicit none class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -1010,9 +1010,9 @@ contains function psb_d_get_nz_row(idx,a) result(res) implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx class(psb_dspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_d_psblas_mod.f90 b/base/modules/psb_d_psblas_mod.f90 index 97ff6e954..14e91f27b 100644 --- a/base/modules/psb_d_psblas_mod.f90 +++ b/base/modules/psb_d_psblas_mod.f90 @@ -30,273 +30,293 @@ !!$ !!$ module psb_d_psblas_mod + use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_d_vect_mod, only : psb_d_vect_type + use psb_d_mat_mod, only : psb_dspmat_type interface psb_gedot function psb_ddot_vect(x, y, desc_a,info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - real(psb_dpk_) :: res + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res type(psb_d_vect_type), intent(inout) :: x, y - type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_ddot_vect - function psb_ddotv(x, y, desc_a,info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - real(psb_dpk_) :: res - real(psb_dpk_), intent(in) :: x(:), y(:) - type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + function psb_ddotv(x, y, desc_a,info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: psb_ddotv + real(psb_dpk_), intent(in) :: x(:), y(:) + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_ddotv - function psb_ddot(x, y, desc_a, info, jx, jy) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - real(psb_dpk_) :: res - real(psb_dpk_), intent(in) :: x(:,:), y(:,:) - type(psb_desc_type), intent(in) :: desc_a - integer, optional, intent(in) :: jx, jy - integer, intent(out) :: info + function psb_ddot(x, y, desc_a, info, jx, jy) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: psb_ddot + real(psb_dpk_), intent(in) :: x(:,:), y(:,:) + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), optional, intent(in) :: jx, jy + integer(psb_ipk_), intent(out) :: info end function psb_ddot end interface + interface psb_gedots - subroutine psb_ddotvs(res,x, y, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + subroutine psb_ddotvs(res,x, y, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent(out) :: res real(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ddotvs - subroutine psb_dmdots(res,x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + subroutine psb_dmdots(res,x, y, desc_a,info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent(out) :: res(:) real(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dmdots end interface interface psb_geaxpby subroutine psb_daxpby_vect(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - type(psb_d_vect_type), intent (inout) :: x - type(psb_d_vect_type), intent (inout) :: y - real(psb_dpk_), intent (in) :: alpha, beta - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + real(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_daxpby_vect subroutine psb_daxpbyv(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_daxpbyv subroutine psb_daxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (inout) :: y(:,:) real(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent(in) :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), intent(out) :: info end subroutine psb_daxpby end interface interface psb_geamax function psb_damax(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_damax real(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_damax function psb_damaxv(x, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_damaxv real(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_damaxv function psb_damax_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - real(psb_dpk_) :: res - type(psb_d_vect_type), intent (inout) :: x - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_damax_vect end interface interface psb_geamaxs subroutine psb_damaxvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (out) :: res - real(psb_dpk_), intent (in) :: x(:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + real(psb_dpk_), intent (in) :: x(:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_damaxvs subroutine psb_dmamaxs(res,x,desc_a,info,jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - real(psb_dpk_), intent (out) :: res(:) - real(psb_dpk_), intent (in) :: x(:,:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_), intent (out) :: res(:) + real(psb_dpk_), intent (in) :: x(:,:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx end subroutine psb_dmamaxs end interface interface psb_geasum function psb_dasum_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - real(psb_dpk_) :: res - type(psb_d_vect_type), intent (inout) :: x - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_dasum_vect function psb_dasum(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_dasum real(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_dasum function psb_dasumv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_dasumv real(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_dasumv end interface interface psb_geasums subroutine psb_dasumvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (out) :: res real(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dasumvs subroutine psb_dmasum(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (out) :: res(:) real(psb_dpk_), intent (in) :: x(:,:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_dmasum end interface interface psb_genrm2 function psb_dnrm2(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_dnrm2 real(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_dnrm2 function psb_dnrm2v(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) psb_dnrm2v real(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_dnrm2v function psb_dnrm2_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) :: res type(psb_d_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_dnrm2_vect end interface interface psb_genrm2s subroutine psb_dnrm2vs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent (out) :: res real(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dnrm2vs end interface interface psb_spnrmi function psb_dnrmi(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - real(psb_dpk_) :: psb_dnrmi + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: psb_dnrmi type(psb_dspmat_type), intent (in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_dnrmi end interface interface psb_spnrm1 function psb_dspnrm1(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) :: psb_dspnrm1 type(psb_dspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_dspnrm1 end interface interface psb_spmm subroutine psb_dspmm(alpha, a, x, beta, y, desc_a, info,& &trans, k, jx, jy,work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(in) :: a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(inout), target :: x(:,:) real(psb_dpk_), intent(inout), target :: y(:,:) real(psb_dpk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_dpk_), optional, intent(inout),target :: work(:) - integer, optional, intent(in) :: k, jx, jy + integer(psb_ipk_), optional, intent(in) :: k, jx, jy logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmm subroutine psb_dspmv(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(in) :: a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(inout), target :: x(:) real(psb_dpk_), intent(inout), target :: y(:) - real(psb_dpk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + real(psb_dpk_), intent(in) :: alpha, beta + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_dpk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmv subroutine psb_dspmv_vect(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(in) :: a - type(psb_d_vect_type), intent(inout) :: x - type(psb_d_vect_type), intent(inout) :: y - real(psb_dpk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_dspmat_type), intent(in) :: a + type(psb_d_vect_type), intent(inout) :: x + type(psb_d_vect_type), intent(inout) :: y + real(psb_dpk_), intent(in) :: alpha, beta + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_dpk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmv_vect end interface @@ -304,52 +324,51 @@ module psb_d_psblas_mod subroutine psb_dspsm(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(in) :: t + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_dspmat_type), intent(in) :: t real(psb_dpk_), intent(in), target :: x(:,:) real(psb_dpk_), intent(inout), target :: y(:,:) real(psb_dpk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: n, jx, jy - integer, optional, intent(in) :: choice + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans, scale + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), optional, intent(in) :: choice real(psb_dpk_), optional, intent(in), target :: diag(:) real(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspsm subroutine psb_dspsv(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(in) :: t - real(psb_dpk_), intent(in), target :: x(:) - real(psb_dpk_), intent(inout), target :: y(:) - real(psb_dpk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_dspmat_type), intent(in) :: t + real(psb_dpk_), intent(in), target :: x(:) + real(psb_dpk_), intent(inout), target :: y(:) + real(psb_dpk_), intent(in) :: alpha, beta + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans, scale + integer(psb_ipk_), optional, intent(in) :: choice real(psb_dpk_), optional, intent(in), target :: diag(:) real(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspsv subroutine psb_dspsv_vect(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod, only : psb_d_vect_type - use psb_mat_mod, only : psb_dspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type type(psb_dspmat_type), intent(inout) :: t type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - real(psb_dpk_), intent(in) :: alpha, beta + real(psb_dpk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice type(psb_d_vect_type), intent(inout), optional :: diag real(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspsv_vect end interface diff --git a/base/modules/psb_d_tools_mod.f90 b/base/modules/psb_d_tools_mod.f90 index b3eaf775c..86faf95dd 100644 --- a/base/modules/psb_d_tools_mod.f90 +++ b/base/modules/psb_d_tools_mod.f90 @@ -29,71 +29,86 @@ !!$ POSSIBILITY OF SUCH DAMAGE. !!$ !!$ - Module psb_d_tools_mod + use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_d_vect_mod, only : psb_d_base_vect_type, psb_d_vect_type + use psb_d_mat_mod, only : psb_dspmat_type, psb_d_base_sparse_mat interface psb_geall subroutine psb_dalloc(x, desc_a, info, n, lb) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat implicit none - real(psb_dpk_), allocatable, intent(out) :: x(:,:) + real(psb_dpk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_dalloc subroutine psb_dallocv(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - real(psb_dpk_), allocatable, intent(out) :: x(:) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + real(psb_dpk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_dallocv subroutine psb_dalloc_vect(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_d_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_dalloc_vect subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_d_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_dalloc_vect_r2 end interface + interface psb_geasb subroutine psb_dasb(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dasb subroutine psb_dasbv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a - real(psb_dpk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + real(psb_dpk_), allocatable, intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_dasbv subroutine psb_dasb_vect(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_dasb_vect subroutine psb_dasb_vect_r2(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_dasb_vect_r2 @@ -102,125 +117,141 @@ Module psb_d_tools_mod interface psb_sphalo Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - Type(psb_dspmat_type),Intent(in) :: a - Type(psb_dspmat_type),Intent(inout) :: blk - Type(psb_desc_type),Intent(in),target :: desc_a - integer, intent(out) :: info - logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale - character(len=5), optional :: outfmt - integer, intent(in), optional :: data + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + Type(psb_dspmat_type),Intent(in) :: a + Type(psb_dspmat_type),Intent(inout) :: blk + Type(psb_desc_type),Intent(in), target :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale + character(len=5), optional :: outfmt + integer(psb_ipk_), intent(in), optional :: data end Subroutine psb_dsphalo end interface interface psb_gefree subroutine psb_dfree(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat real(psb_dpk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dfree subroutine psb_dfreev(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat real(psb_dpk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dfreev subroutine psb_dfree_vect(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dfree_vect subroutine psb_dfree_vect_r2(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dfree_vect_r2 end interface + interface psb_geins - subroutine psb_dinsi(m,irw,val, x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: m + subroutine psb_dinsi(m,irw,val, x, desc_a,info,dupl) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a - real(psb_dpk_),intent(inout) :: x(:,:) - integer, intent(in) :: irw(:) - real(psb_dpk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + real(psb_dpk_),intent(inout) :: x(:,:) + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_dpk_), intent(in) :: val(:,:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_dinsi - subroutine psb_dinsvi(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: m + subroutine psb_dinsvi(m, irw,val, x,desc_a,info,dupl) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a - real(psb_dpk_),intent(inout) :: x(:) - integer, intent(in) :: irw(:) - real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + real(psb_dpk_),intent(inout) :: x(:) + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_dpk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_dinsvi subroutine psb_dins_vect(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x - integer, intent(in) :: irw(:) - real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_dpk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_dins_vect subroutine psb_dins_vect_r2(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x(:) - integer, intent(in) :: irw(:) - real(psb_dpk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_dpk_), intent(in) :: val(:,:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_dins_vect_r2 end interface - interface psb_cdbldext Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info,extype) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - Use psb_mat_mod, only : psb_dspmat_type - integer, intent(in) :: novr + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + integer(psb_ipk_), intent(in) :: novr Type(psb_dspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype end Subroutine psb_dcdbldext end interface interface psb_spall subroutine psb_dspalloc(a, desc_a, info, nnz) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz end subroutine psb_dspalloc end interface interface psb_spasb subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl,mold) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type, psb_d_base_sparse_mat - type(psb_dspmat_type), intent (inout) :: a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_dspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_dspasb @@ -228,47 +259,51 @@ Module psb_d_tools_mod interface psb_spfree subroutine psb_dspfree(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_desc_type), intent(in) :: desc_a - type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a + type(psb_dspmat_type), intent(inout) ::a + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspfree end interface interface psb_spins subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(inout) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) - real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + real(psb_dpk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild end subroutine psb_dspins subroutine psb_dspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_dspmat_type), intent(inout) :: a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac - integer, intent(in) :: nz,ia(:),ja(:) - real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + type(psb_dspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + real(psb_dpk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_dspins_2desc end interface interface psb_sprn subroutine psb_dsprn(a, desc_a,info,clear) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_dspmat_type - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_base_vect_type, psb_d_vect_type, & + & psb_dspmat_type, psb_d_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - logical, intent(in), optional :: clear + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: clear end subroutine psb_dsprn end interface diff --git a/base/modules/psb_d_vect_mod.f90 b/base/modules/psb_d_vect_mod.f90 index 2367e0144..d3e10562b 100644 --- a/base/modules/psb_d_vect_mod.f90 +++ b/base/modules/psb_d_vect_mod.f90 @@ -97,7 +97,7 @@ contains real(psb_dpk_), intent(in) :: invect(:) class(psb_d_vect_type), intent(out) :: x class(psb_d_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -111,10 +111,10 @@ contains subroutine d_vect_bld_n(x,n,mold) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(out) :: x class(psb_d_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -128,7 +128,7 @@ contains function d_vect_get_vect(x) result(res) class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) then res = x%v%get_vect() @@ -139,7 +139,7 @@ contains class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine d_vect_set_scal @@ -148,7 +148,7 @@ contains class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine d_vect_set_vect @@ -157,7 +157,7 @@ contains function constructor(x) result(this) real(psb_dpk_) :: x(:) type(psb_d_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_d_base_vect_type :: this%v, stat=info) @@ -169,9 +169,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_d_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_d_base_vect_type :: this%v, stat=info) call this%asb(n,info) @@ -181,7 +181,7 @@ contains function d_vect_get_nrows(x) result(res) implicit none class(psb_d_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = x%v%get_nrows() end function d_vect_get_nrows @@ -197,7 +197,7 @@ contains function d_vect_dot_v(n,x,y) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = dzero @@ -210,7 +210,7 @@ contains implicit none class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = dzero @@ -222,11 +222,11 @@ contains subroutine d_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) @@ -239,11 +239,11 @@ contains subroutine d_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(y%v)) & & call y%v%axpby(m,alpha,x,beta,info) @@ -256,8 +256,8 @@ contains implicit none class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v)) & @@ -270,8 +270,8 @@ contains implicit none real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -288,8 +288,8 @@ contains real(psb_dpk_), intent(in) :: y(:) real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v)) & @@ -304,10 +304,10 @@ contains class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y class(psb_d_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v).and.& @@ -323,8 +323,8 @@ contains real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y class(psb_d_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v).and.allocated(y%v)) & @@ -339,8 +339,8 @@ contains real(psb_dpk_), intent(in) :: y(:) class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -363,7 +363,7 @@ contains function d_vect_nrm2(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -377,7 +377,7 @@ contains function d_vect_amax(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -391,7 +391,7 @@ contains function d_vect_asum(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -405,10 +405,10 @@ contains subroutine d_vect_all(n, x, info, mold) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(out) :: x class(psb_d_base_vect_type), intent(in), optional :: mold - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -436,9 +436,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v)) & & call x%v%asb(n,info) @@ -456,7 +456,7 @@ contains subroutine d_vect_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: alpha, beta, y(:) class(psb_d_vect_type) :: x @@ -467,7 +467,7 @@ contains subroutine d_vect_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: y(:) class(psb_d_vect_type) :: x @@ -478,7 +478,7 @@ contains subroutine d_vect_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:) class(psb_d_vect_type) :: y @@ -492,7 +492,7 @@ contains use psb_realloc_mod implicit none class(psb_d_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) then @@ -506,12 +506,12 @@ contains use psi_serial_mod implicit none class(psb_d_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (.not.allocated(x%v)) then @@ -529,7 +529,7 @@ contains class(psb_d_base_vect_type), intent(in) :: mold class(psb_d_base_vect_type), allocatable :: tmp real(psb_dpk_), allocatable :: invect(:) - integer :: info + integer(psb_ipk_) :: info allocate(tmp,stat=info,mold=mold) call x%v%sync() diff --git a/base/modules/psb_desc_const_mod.f90 b/base/modules/psb_desc_const_mod.f90 index 6d39627d5..bc1653463 100644 --- a/base/modules/psb_desc_const_mod.f90 +++ b/base/modules/psb_desc_const_mod.f90 @@ -35,87 +35,88 @@ ! Auxiliary module for descriptor: constant values. ! module psb_desc_const_mod + use psb_const_mod, only : psb_ipk_ ! ! Communication, prolongation & restriction ! - integer, parameter :: psb_nohalo_=0, psb_halo_=1 + integer(psb_ipk_), parameter :: psb_nohalo_=0, psb_halo_=1 ! For overlap update. - integer, parameter :: psb_none_=0, psb_sum_=1 - integer, parameter :: psb_avg_=2, psb_square_root_=3 - integer, parameter :: psb_setzero_=4 + integer(psb_ipk_), parameter :: psb_none_=0, psb_sum_=1 + integer(psb_ipk_), parameter :: psb_avg_=2, psb_square_root_=3 + integer(psb_ipk_), parameter :: psb_setzero_=4 ! The following are bit fields. - integer, parameter :: psb_swap_send_=1, psb_swap_recv_=2 - integer, parameter :: psb_swap_sync_=4, psb_swap_mpi_=8 + integer(psb_ipk_), parameter :: psb_swap_send_=1, psb_swap_recv_=2 + integer(psb_ipk_), parameter :: psb_swap_sync_=4, psb_swap_mpi_=8 ! Choice among lists on which to base data exchange - integer, parameter :: psb_no_comm_=-1 - integer, parameter :: psb_comm_halo_=1, psb_comm_ovr_=2 - integer, parameter :: psb_comm_ext_=3, psb_comm_mov_=4 + integer(psb_ipk_), parameter :: psb_no_comm_=-1 + integer(psb_ipk_), parameter :: psb_comm_halo_=1, psb_comm_ovr_=2 + integer(psb_ipk_), parameter :: psb_comm_ext_=3, psb_comm_mov_=4 ! Types of mapping between descriptors. - integer, parameter :: psb_map_xhal_ = 123 - integer, parameter :: psb_map_asov_ = psb_map_xhal_+1 - integer, parameter :: psb_map_aggr_ = psb_map_asov_+1 - integer, parameter :: psb_map_gen_linear_ = psb_map_aggr_+1 + integer(psb_ipk_), parameter :: psb_map_xhal_ = 123 + integer(psb_ipk_), parameter :: psb_map_asov_ = psb_map_xhal_+1 + integer(psb_ipk_), parameter :: psb_map_aggr_ = psb_map_asov_+1 + integer(psb_ipk_), parameter :: psb_map_gen_linear_ = psb_map_aggr_+1 - integer, parameter :: psb_ovt_xhal_ = psb_map_xhal_, psb_ovt_asov_=psb_map_asov_ + integer(psb_ipk_), parameter :: psb_ovt_xhal_ = psb_map_xhal_, psb_ovt_asov_=psb_map_asov_ ! ! Entries and values in desc%matrix_data ! - integer, parameter :: psb_dec_type_ = 1 - integer, parameter :: psb_m_ = 2 - integer, parameter :: psb_n_ = 3 - integer, parameter :: psb_n_row_ = 4 - integer, parameter :: psb_n_col_ = 5 - integer, parameter :: psb_ctxt_ = 6 - integer, parameter :: psb_desc_size_ = 7 - integer, parameter :: psb_mpi_c_ = 9 - integer, parameter :: psb_pnt_h_ = 10 - integer, parameter :: psb_thal_xch_ = 11 - integer, parameter :: psb_thal_snd_ = 12 - integer, parameter :: psb_thal_rcv_ = 13 - integer, parameter :: psb_tovr_xch_ = 14 - integer, parameter :: psb_tovr_snd_ = 15 - integer, parameter :: psb_tovr_rcv_ = 16 - integer, parameter :: psb_text_xch_ = 17 - integer, parameter :: psb_text_snd_ = 18 - integer, parameter :: psb_text_rcv_ = 19 - integer, parameter :: psb_tmov_xch_ = 20 - integer, parameter :: psb_tmov_snd_ = 21 - integer, parameter :: psb_tmov_rcv_ = 22 - integer, parameter :: psb_mdata_size_= 24 - integer, parameter :: psb_desc_invalid_=-1 - integer, parameter :: psb_desc_null_=-1 - integer, parameter :: psb_desc_asb_=3099 - integer, parameter :: psb_desc_bld_=psb_desc_asb_+1 - integer, parameter :: psb_desc_upd_=psb_desc_bld_+1 - integer, parameter :: psb_desc_repl_=3199 - integer, parameter :: psb_desc_ovl_bld_=3399 - integer, parameter :: psb_desc_ovl_asb_=psb_desc_ovl_bld_+1 + integer(psb_ipk_), parameter :: psb_dec_type_ = 1 + integer(psb_ipk_), parameter :: psb_m_ = 2 + integer(psb_ipk_), parameter :: psb_n_ = 3 + integer(psb_ipk_), parameter :: psb_n_row_ = 4 + integer(psb_ipk_), parameter :: psb_n_col_ = 5 + integer(psb_ipk_), parameter :: psb_ctxt_ = 6 + integer(psb_ipk_), parameter :: psb_desc_size_ = 7 + integer(psb_ipk_), parameter :: psb_mpi_c_ = 9 + integer(psb_ipk_), parameter :: psb_pnt_h_ = 10 + integer(psb_ipk_), parameter :: psb_thal_xch_ = 11 + integer(psb_ipk_), parameter :: psb_thal_snd_ = 12 + integer(psb_ipk_), parameter :: psb_thal_rcv_ = 13 + integer(psb_ipk_), parameter :: psb_tovr_xch_ = 14 + integer(psb_ipk_), parameter :: psb_tovr_snd_ = 15 + integer(psb_ipk_), parameter :: psb_tovr_rcv_ = 16 + integer(psb_ipk_), parameter :: psb_text_xch_ = 17 + integer(psb_ipk_), parameter :: psb_text_snd_ = 18 + integer(psb_ipk_), parameter :: psb_text_rcv_ = 19 + integer(psb_ipk_), parameter :: psb_tmov_xch_ = 20 + integer(psb_ipk_), parameter :: psb_tmov_snd_ = 21 + integer(psb_ipk_), parameter :: psb_tmov_rcv_ = 22 + integer(psb_ipk_), parameter :: psb_mdata_size_= 24 + integer(psb_ipk_), parameter :: psb_desc_invalid_=-1 + integer(psb_ipk_), parameter :: psb_desc_null_=-1 + integer(psb_ipk_), parameter :: psb_desc_asb_=3099 + integer(psb_ipk_), parameter :: psb_desc_bld_=psb_desc_asb_+1 + integer(psb_ipk_), parameter :: psb_desc_upd_=psb_desc_bld_+1 + integer(psb_ipk_), parameter :: psb_desc_repl_=3199 + integer(psb_ipk_), parameter :: psb_desc_ovl_bld_=3399 + integer(psb_ipk_), parameter :: psb_desc_ovl_asb_=psb_desc_ovl_bld_+1 ! these two are reserved for descriptors which are ! "overlap-extensions" of base descriptors. - integer, parameter :: psb_cd_ovl_bld_=psb_desc_ovl_bld_ - integer, parameter :: psb_cd_ovl_asb_=psb_desc_ovl_asb_ - integer, parameter :: psb_desc_normal_=3299 - integer, parameter :: psb_desc_large_=psb_desc_normal_+1 + integer(psb_ipk_), parameter :: psb_cd_ovl_bld_=psb_desc_ovl_bld_ + integer(psb_ipk_), parameter :: psb_cd_ovl_asb_=psb_desc_ovl_asb_ + integer(psb_ipk_), parameter :: psb_desc_normal_=3299 + integer(psb_ipk_), parameter :: psb_desc_large_=psb_desc_normal_+1 ! ! Constants for hashing into desc%hashv(:) and desc%glb_lc(:,:) ! - integer, parameter :: psb_hash_bits=16 - integer, parameter :: psb_max_hash_bits=22 - integer, parameter :: psb_hash_size=2**psb_hash_bits, psb_hash_mask=psb_hash_size-1 - integer, parameter :: psb_default_large_threshold=1*1024*1024 - integer, parameter :: psb_hpnt_nentries_=7 + integer(psb_ipk_), parameter :: psb_hash_bits=16 + integer(psb_ipk_), parameter :: psb_max_hash_bits=22 + integer(psb_ipk_), parameter :: psb_hash_size=2**psb_hash_bits, psb_hash_mask=psb_hash_size-1 + integer(psb_ipk_), parameter :: psb_default_large_threshold=1*1024*1024 + integer(psb_ipk_), parameter :: psb_hpnt_nentries_=7 ! ! Constants for desc_a handling ! - integer, parameter :: psb_upd_glbnum_=998 - integer, parameter :: psb_upd_locnum_=997 - integer, parameter :: psb_proc_id_=0, psb_n_elem_recv_=1 - integer, parameter :: psb_elem_recv_=2, psb_n_elem_send_=2 - integer, parameter :: psb_elem_send_=3, psb_n_ovrlp_elem_=1 - integer, parameter :: psb_ovrlp_elem_to_=2, psb_ovrlp_elem_=0 - integer, parameter :: psb_n_dom_ovr_=1 + integer(psb_ipk_), parameter :: psb_upd_glbnum_=998 + integer(psb_ipk_), parameter :: psb_upd_locnum_=997 + integer(psb_ipk_), parameter :: psb_proc_id_=0, psb_n_elem_recv_=1 + integer(psb_ipk_), parameter :: psb_elem_recv_=2, psb_n_elem_send_=2 + integer(psb_ipk_), parameter :: psb_elem_send_=3, psb_n_ovrlp_elem_=1 + integer(psb_ipk_), parameter :: psb_ovrlp_elem_to_=2, psb_ovrlp_elem_=0 + integer(psb_ipk_), parameter :: psb_n_dom_ovr_=1 end module psb_desc_const_mod diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 0179000a8..23c465c39 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -50,13 +50,13 @@ module psb_descriptor_type ! !| type psb_desc_type !| class(psb_indx_map), allocatable :: indxmap - !| integer, allocatable :: halo_index(:), ext_index(:) - !| integer, allocatable :: bnd_elem(:) - !| integer, allocatable :: ovrlap_index(:) - !| integer, allocatable :: ovrlap_elem(:,:) - !| integer, allocatable :: ovr_mst_idx(:) - !| integer, allocatable :: lprm(:) - !| integer, allocatable :: idx_space(:) + !| integer(psb_ipk_), allocatable :: halo_index(:), ext_index(:) + !| integer(psb_ipk_), allocatable :: bnd_elem(:) + !| integer(psb_ipk_), allocatable :: ovrlap_index(:) + !| integer(psb_ipk_), allocatable :: ovrlap_elem(:,:) + !| integer(psb_ipk_), allocatable :: ovr_mst_idx(:) + !| integer(psb_ipk_), allocatable :: lprm(:) + !| integer(psb_ipk_), allocatable :: idx_space(:) !| type(psb_desc_type), pointer :: base_desc => null() !| end type psb_desc_type ! @@ -199,16 +199,16 @@ module psb_descriptor_type type psb_desc_type - integer, allocatable :: halo_index(:) - integer, allocatable :: ext_index(:) - integer, allocatable :: ovrlap_index(:) - integer, allocatable :: ovrlap_elem(:,:) - integer, allocatable :: ovr_mst_idx(:) - integer, allocatable :: bnd_elem(:) + integer(psb_ipk_), allocatable :: halo_index(:) + integer(psb_ipk_), allocatable :: ext_index(:) + integer(psb_ipk_), allocatable :: ovrlap_index(:) + integer(psb_ipk_), allocatable :: ovrlap_elem(:,:) + integer(psb_ipk_), allocatable :: ovr_mst_idx(:) + integer(psb_ipk_), allocatable :: bnd_elem(:) class(psb_indx_map), allocatable :: indxmap - integer, allocatable :: lprm(:) + integer(psb_ipk_), allocatable :: lprm(:) type(psb_desc_type), pointer :: base_desc => null() - integer, allocatable :: idx_space(:) + integer(psb_ipk_), allocatable :: idx_space(:) contains procedure, pass(desc) :: is_ok => psb_is_ok_desc procedure, pass(desc) :: is_valid => psb_is_valid_desc @@ -244,7 +244,7 @@ module psb_descriptor_type private :: nullify_desc - integer, private, save :: cd_large_threshold=psb_default_large_threshold + integer(psb_ipk_), private, save :: cd_large_threshold=psb_default_large_threshold contains @@ -272,23 +272,26 @@ contains subroutine psb_cd_set_large_threshold(ith) - integer, intent(in) :: ith + implicit none + integer(psb_ipk_), intent(in) :: ith if (ith > 0) then cd_large_threshold = ith end if end subroutine psb_cd_set_large_threshold - integer function psb_cd_get_large_threshold() - psb_cd_get_large_threshold = cd_large_threshold + function psb_cd_get_large_threshold() result(val) + implicit none + integer(psb_ipk_) :: val + val = cd_large_threshold end function psb_cd_get_large_threshold logical function psb_cd_choose_large_state(ictxt,m) use psb_penv_mod implicit none - integer, intent(in) :: ictxt,m + integer(psb_ipk_), intent(in) :: ictxt,m !locals - integer :: np,me + integer(psb_ipk_) :: np,me call psb_info(ictxt, me, np) ! @@ -302,6 +305,7 @@ contains end function psb_cd_choose_large_state subroutine psb_nullify_desc(desc) + implicit none type(psb_desc_type), intent(inout) :: desc ! We have nothing left to do here. ! Perhaps we should delete this subroutine? @@ -310,6 +314,7 @@ contains end subroutine psb_nullify_desc subroutine nullify_desc(desc) + implicit none class(psb_desc_type), intent(inout) :: desc ! We have nothing left to do here. ! Perhaps we should delete this subroutine? @@ -318,7 +323,7 @@ contains end subroutine nullify_desc function psb_is_ok_desc(desc) result(val) - + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -329,7 +334,7 @@ contains end function psb_is_ok_desc function psb_is_valid_desc(desc) result(val) - + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -340,6 +345,7 @@ contains end function psb_is_valid_desc function psb_is_bld_desc(desc) result(val) + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -350,6 +356,7 @@ contains end function psb_is_bld_desc function psb_is_upd_desc(desc) result(val) + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -360,6 +367,7 @@ contains end function psb_is_upd_desc function psb_is_repl_desc(desc) result(val) + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -370,6 +378,7 @@ contains end function psb_is_repl_desc function psb_is_ovl_desc(desc) result(val) + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -381,6 +390,7 @@ contains function psb_is_asb_desc(desc) result(val) + implicit none class(psb_desc_type), intent(in) :: desc logical :: val @@ -390,82 +400,96 @@ contains end function psb_is_asb_desc - integer function psb_cd_get_local_rows(desc) + function psb_cd_get_local_rows(desc) result(val) + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (psb_is_ok_desc(desc)) then - psb_cd_get_local_rows = desc%indxmap%get_lr() + val = desc%indxmap%get_lr() else - psb_cd_get_local_rows = -1 + val = -1 endif end function psb_cd_get_local_rows - integer function psb_cd_get_local_cols(desc) + function psb_cd_get_local_cols(desc) result(val) + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (psb_is_ok_desc(desc)) then - psb_cd_get_local_cols = desc%indxmap%get_lc() + val = desc%indxmap%get_lc() else - psb_cd_get_local_cols = -1 + val = -1 endif end function psb_cd_get_local_cols - integer function psb_cd_get_global_rows(desc) + function psb_cd_get_global_rows(desc) result(val) + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc - + if (psb_is_ok_desc(desc)) then - psb_cd_get_global_rows = desc%indxmap%get_gr() + val = desc%indxmap%get_gr() else - psb_cd_get_global_rows = -1 + val = -1 endif end function psb_cd_get_global_rows - integer function psb_cd_get_global_cols(desc) + function psb_cd_get_global_cols(desc) result(val) + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (psb_is_ok_desc(desc)) then - psb_cd_get_global_cols = desc%indxmap%get_gc() + val = desc%indxmap%get_gc() else - psb_cd_get_global_cols = -1 + val = -1 endif end function psb_cd_get_global_cols - integer function psb_cd_get_context(desc) + function psb_cd_get_context(desc) result(val) use psb_error_mod + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (allocated(desc%indxmap)) then - psb_cd_get_context = desc%indxmap%get_ctxt() + val = desc%indxmap%get_ctxt() else - psb_cd_get_context = -1 + val = -1 call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_context') call psb_error() end if end function psb_cd_get_context - integer function psb_cd_get_dectype(desc) + function psb_cd_get_dectype(desc) result(val) use psb_error_mod + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (allocated(desc%indxmap)) then - psb_cd_get_dectype = desc%indxmap%get_state() + val = desc%indxmap%get_state() else - psb_cd_get_dectype = -1 + val = -1 call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_dectype') call psb_error() end if end function psb_cd_get_dectype - integer function psb_cd_get_mpic(desc) + function psb_cd_get_mpic(desc) result(val) use psb_error_mod + implicit none + integer(psb_ipk_) :: val class(psb_desc_type), intent(in) :: desc if (allocated(desc%indxmap)) then - psb_cd_get_mpic = desc%indxmap%get_mpic() + val = desc%indxmap%get_mpic() else - psb_cd_get_mpic = -1 + val = -1 call psb_errpush(psb_err_invalid_cd_state_,'psb_cd_get_mpic') call psb_error() end if @@ -478,7 +502,7 @@ contains ! Change state of a descriptor into ovl_build. implicit none type(psb_desc_type), intent(inout) :: desc - integer :: info + integer(psb_ipk_) :: info info = 0 if (psb_is_asb_desc(desc)) & @@ -489,10 +513,10 @@ contains subroutine psb_get_xch_idx(idx,totxch,totsnd,totrcv) implicit none - integer, intent(in) :: idx(:) - integer, intent(out) :: totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), intent(out) :: totxch,totsnd,totrcv - integer :: ip, nerv, nesd + integer(psb_ipk_) :: ip, nerv, nesd character(len=20), parameter :: name='psb_get_xch_idx' totxch = 0 @@ -524,13 +548,13 @@ contains use psb_penv_mod implicit none - integer, intent(in) :: data - integer, pointer :: ipnt(:) + integer(psb_ipk_), intent(in) :: data + integer(psb_ipk_), pointer :: ipnt(:) class(psb_desc_type), target :: desc - integer, intent(out) :: totxch,idxr,idxs,info - + integer(psb_ipk_), intent(out) :: totxch,idxr,idxs,info + !locals - integer :: np,me,ictxt,err_act, debug_level,debug_unit + integer(psb_ipk_) :: np,me,ictxt,err_act, debug_level,debug_unit logical, parameter :: debug=.false.,debugprt=.false. character(len=20), parameter :: name='psb_cd_get_list' @@ -601,9 +625,9 @@ contains implicit none !....parameters... class(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -622,7 +646,7 @@ contains goto 9999 endif - + if (.not.allocated(desc%halo_index)) then info=298 call psb_errpush(info,name) @@ -743,11 +767,11 @@ contains type(psb_desc_type), intent(inout) :: desc_in type(psb_desc_type), intent(inout) :: desc_out - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals - integer :: np,me,ictxt, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,ictxt, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if (psb_get_errstatus() /= 0) return @@ -809,17 +833,17 @@ contains use psb_penv_mod use psb_realloc_mod Implicit None - integer, allocatable, intent(out) :: tmp(:) - integer, intent(in) :: data + integer(psb_ipk_), allocatable, intent(out) :: tmp(:) + integer(psb_ipk_), intent(in) :: data Type(psb_desc_type), Intent(in), target :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in) :: toglob ! .. Local Scalars .. - Integer :: incnt, outcnt, j, np, me, ictxt, l_tmp,& + integer(psb_ipk_) :: incnt, outcnt, j, np, me, ictxt, l_tmp,& & idx, gidx, proc, n_elem_send, n_elem_recv - Integer, pointer :: idxlist(:) - integer :: debug_level, debug_unit, err_act + integer(psb_ipk_), pointer :: idxlist(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act character(len=20) :: name name = 'psb_cd_get_recv_idx' diff --git a/base/modules/psb_error_impl.F90 b/base/modules/psb_error_impl.F90 index f5873e562..e211eff7a 100644 --- a/base/modules/psb_error_impl.F90 +++ b/base/modules/psb_error_impl.F90 @@ -2,9 +2,9 @@ subroutine psb_errcomm(ictxt, err) use psb_error_mod, psb_protect_name => psb_errcomm use psb_penv_mod - integer, intent(in) :: ictxt - integer, intent(inout):: err - integer :: temp(2) + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout):: err + integer(psb_ipk_) :: temp(2) call psb_amx(ictxt, err) @@ -15,10 +15,10 @@ subroutine psb_serror() use psb_const_mod use psb_error_mod implicit none - integer :: err_c + integer(psb_ipk_) :: err_c character(len=20) :: r_name character(len=40) :: a_e_d - integer :: i_e_d(5) + integer(psb_ipk_) :: i_e_d(5) if (psb_errstatus_fatal()) then if(psb_get_errverbosity() > 1) then @@ -53,12 +53,12 @@ subroutine psb_perror(ictxt) use psb_error_mod use psb_penv_mod implicit none - integer, intent(in) :: ictxt - integer :: err_c + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_) :: err_c character(len=20) :: r_name character(len=40) :: a_e_d - integer :: i_e_d(5) - integer :: iam, np + integer(psb_ipk_) :: i_e_d(5) + integer(psb_ipk_) :: iam, np call psb_info(ictxt,iam,np) diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90 index ccc0903e0..edd772819 100644 --- a/base/modules/psb_error_mod.F90 +++ b/base/modules/psb_error_mod.F90 @@ -31,14 +31,15 @@ !!$ module psb_error_mod use psb_const_mod - integer, parameter, public :: psb_act_ret_=0, psb_act_abort_=1 - integer, parameter, public :: psb_debug_ext_=1, psb_debug_outer_=2 - integer, parameter, public :: psb_debug_comp_=3, psb_debug_inner_=4 - integer, parameter, public :: psb_debug_serial_=8, psb_debug_serial_comp_=9 + + integer(psb_ipk_), parameter, public :: psb_act_ret_=0, psb_act_abort_=1 + integer(psb_ipk_), parameter, public :: psb_debug_ext_=1, psb_debug_outer_=2 + integer(psb_ipk_), parameter, public :: psb_debug_comp_=3, psb_debug_inner_=4 + integer(psb_ipk_), parameter, public :: psb_debug_serial_=8, psb_debug_serial_comp_=9 - integer, parameter, public :: psb_no_err_ = 0 - integer, parameter, public :: psb_err_warning_ = 1 - integer, parameter, public :: psb_err_fatal_ = 2 + integer(psb_ipk_), parameter, public :: psb_no_err_ = 0 + integer(psb_ipk_), parameter, public :: psb_err_warning_ = 1 + integer(psb_ipk_), parameter, public :: psb_err_fatal_ = 2 ! ! Error handling @@ -59,14 +60,16 @@ module psb_error_mod subroutine psb_serror() end subroutine psb_serror subroutine psb_perror(ictxt) - integer, intent(in) :: ictxt + import :: psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt end subroutine psb_perror end interface interface subroutine psb_errcomm(ictxt, err) - integer, intent(in) :: ictxt - integer, intent(inout):: err + import :: psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout):: err end subroutine psb_errcomm end interface @@ -76,11 +79,11 @@ module psb_error_mod type psb_errstack_node ! the error code - integer :: err_code=0 + integer(psb_ipk_) :: err_code=0 ! the name of the routine generating the error character(len=20) :: routine='' ! array of integer data to complete the error msg - integer,dimension(5) :: i_err_data=0 + integer(psb_ipk_),dimension(5) :: i_err_data=0 ! real(psb_dpk_)(dim=10) :: r_err_data=0.d0 ! array of real data to complete the error msg ! complex(dim=10) :: c_err_data=0.c0 ! array of complex data to complete the error msg ! array of character data to complete the error msg @@ -96,16 +99,16 @@ module psb_error_mod ! pointer to the top element of the stack type(psb_errstack_node), pointer :: top => null() ! number of entries in the stack - integer :: n_elems=0 + integer(psb_ipk_) :: n_elems=0 end type psb_errstack type(psb_errstack), save :: error_stack - integer, save :: error_status = psb_no_err_ - integer, save :: verbosity_level = 1 - integer, save :: err_action = psb_act_abort_ - integer, save :: debug_level=0, debug_unit, serial_debug_level=0 + integer(psb_ipk_), save :: error_status = psb_no_err_ + integer(psb_ipk_), save :: verbosity_level = 1 + integer(psb_ipk_), save :: err_action = psb_act_abort_ + integer(psb_ipk_), save :: debug_level=0, debug_unit, serial_debug_level=0 contains @@ -113,7 +116,7 @@ contains ! saves action to support error traceback ! also changes error action to "return" subroutine psb_erractionsave(err_act) - integer, intent(out) :: err_act + integer(psb_ipk_), intent(out) :: err_act err_act = err_action err_action = psb_act_ret_ end subroutine psb_erractionsave @@ -121,31 +124,31 @@ contains ! return the action to take upon error occurrence subroutine psb_get_erraction(err_act) - integer, intent(out) :: err_act + integer(psb_ipk_), intent(out) :: err_act err_act=err_action end subroutine psb_get_erraction ! sets the action to take upon error occurrence subroutine psb_set_erraction(err_act) - integer, intent(in) :: err_act + integer(psb_ipk_), intent(in) :: err_act err_action=err_act end subroutine psb_set_erraction ! restores error action previously saved with psb_erractionsave subroutine psb_erractionrestore(err_act) - integer, intent(in) :: err_act + integer(psb_ipk_), intent(in) :: err_act err_action = err_act end subroutine psb_erractionrestore function psb_get_debug_level() - integer :: psb_get_debug_level + integer(psb_ipk_) :: psb_get_debug_level psb_get_debug_level = debug_level end function psb_get_debug_level subroutine psb_set_debug_level(level) - integer, intent(in) :: level + integer(psb_ipk_), intent(in) :: level if (level >= 0) then debug_level = level else @@ -154,12 +157,12 @@ contains end subroutine psb_set_debug_level function psb_get_debug_unit() - integer :: psb_get_debug_unit + integer(psb_ipk_) :: psb_get_debug_unit psb_get_debug_unit = debug_unit end function psb_get_debug_unit subroutine psb_set_debug_unit(unit) - integer, intent(in) :: unit + integer(psb_ipk_), intent(in) :: unit if ((unit >= 0).or.(unit == psb_err_unit)& & .or.(unit == psb_out_unit)) then debug_unit = unit @@ -169,12 +172,12 @@ contains end subroutine psb_set_debug_unit function psb_get_serial_debug_level() - integer :: psb_get_serial_debug_level + integer(psb_ipk_) :: psb_get_serial_debug_level psb_get_serial_debug_level = serial_debug_level end function psb_get_serial_debug_level subroutine psb_set_serial_debug_level(level) - integer, intent(in) :: level + integer(psb_ipk_), intent(in) :: level if (level >= 0) then serial_debug_level = level else @@ -186,7 +189,7 @@ contains ! sets verbosity of the error message subroutine psb_set_errverbosity(v) - integer, intent(in) :: v + integer(psb_ipk_), intent(in) :: v verbosity_level=v end subroutine psb_set_errverbosity @@ -194,14 +197,14 @@ contains ! returns number of errors function psb_get_numerr() - integer :: psb_get_numerr + integer(psb_ipk_) :: psb_get_numerr psb_get_numerr = error_stack%n_elems end function psb_get_numerr ! returns verbosity of the error message function psb_get_errverbosity() - integer :: psb_get_errverbosity + integer(psb_ipk_) :: psb_get_errverbosity psb_get_errverbosity=verbosity_level end function psb_get_errverbosity @@ -210,12 +213,12 @@ contains ! checks the status of the error condition function psb_get_errstatus() - integer :: psb_get_errstatus + integer(psb_ipk_) :: psb_get_errstatus psb_get_errstatus = error_status end function psb_get_errstatus subroutine psb_set_errstatus(ircode) - integer :: ircode + integer(psb_ipk_) :: ircode if ((psb_no_err_<=ircode).and.(ircode <= psb_err_fatal_))& & error_status=ircode end subroutine psb_set_errstatus @@ -238,10 +241,10 @@ contains ! pushes an error on the error stack subroutine psb_stackpush(err_c, r_name, i_err, a_err) - integer, intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=*), intent(in) :: r_name character(len=*), optional :: a_err - integer, optional :: i_err(5) + integer(psb_ipk_), optional :: i_err(5) type(psb_errstack_node), pointer :: new_node @@ -266,10 +269,10 @@ contains ! pushes an error on the error stack subroutine psb_errpush(err_c, r_name, i_err, a_err) - integer, intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=*), intent(in) :: r_name character(len=*), optional :: a_err - integer, optional :: i_err(5) + integer(psb_ipk_), optional :: i_err(5) type(psb_errstack_node), pointer :: new_node @@ -281,10 +284,10 @@ contains ! pushes a warning on the error stack subroutine psb_warning_push(err_c, r_name, i_err, a_err) - integer, intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=*), intent(in) :: r_name character(len=*), optional :: a_err - integer, optional :: i_err(5) + integer(psb_ipk_), optional :: i_err(5) type(psb_errstack_node), pointer :: new_node @@ -298,10 +301,10 @@ contains ! pops an error from the error stack subroutine psb_errpop(err_c, r_name, i_e_d, a_e_d) - integer, intent(out) :: err_c + integer(psb_ipk_), intent(out) :: err_c character(len=20), intent(out) :: r_name character(len=40), intent(out) :: a_e_d - integer, intent(out) :: i_e_d(5) + integer(psb_ipk_), intent(out) :: i_e_d(5) type(psb_errstack_node), pointer :: old_node @@ -323,11 +326,11 @@ contains ! prints the error msg associated to a specific error code subroutine psb_errmsg(err_c, r_name, i_e_d, a_e_d,me) - integer, intent(in) :: err_c + integer(psb_ipk_), intent(in) :: err_c character(len=20), intent(in) :: r_name character(len=40), intent(in) :: a_e_d - integer, intent(in) :: i_e_d(5) - integer, optional :: me + integer(psb_ipk_), intent(in) :: i_e_d(5) + integer(psb_ipk_), optional :: me if(present(me)) then write(psb_err_unit,& diff --git a/base/modules/psb_gen_block_map_mod.f90 b/base/modules/psb_gen_block_map_mod.f90 index 89a0ed211..9b1737b8e 100644 --- a/base/modules/psb_gen_block_map_mod.f90 +++ b/base/modules/psb_gen_block_map_mod.f90 @@ -51,9 +51,9 @@ module psb_gen_block_map_mod use psb_indx_map_mod type, extends(psb_indx_map) :: psb_gen_block_map - integer :: min_glob_row = -1 - integer :: max_glob_row = -1 - integer, allocatable :: loc_to_glob(:), srt_l2g(:,:), vnl(:) + integer(psb_ipk_) :: min_glob_row = -1 + integer(psb_ipk_) :: max_glob_row = -1 + integer(psb_ipk_), allocatable :: loc_to_glob(:), srt_l2g(:,:), vnl(:) contains procedure, pass(idxmap) :: gen_block_map_init => block_init @@ -130,11 +130,11 @@ contains subroutine block_l2gs1(idx,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then if (.not.mask) return @@ -149,9 +149,9 @@ contains subroutine block_l2gs2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -164,11 +164,11 @@ contains subroutine block_l2gv1(idx,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i + integer(psb_ipk_) :: i logical :: owned_ info = 0 @@ -221,12 +221,12 @@ contains subroutine block_l2gv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -242,11 +242,11 @@ contains subroutine block_g2ls1(idx,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -262,9 +262,9 @@ contains subroutine block_g2ls2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -279,12 +279,12 @@ contains use psb_sort_mod implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i, nv, is - integer :: ictxt, iam, np + integer(psb_ipk_) :: i, nv, is + integer(psb_ipk_) :: ictxt, iam, np logical :: owned_ info = 0 @@ -385,13 +385,13 @@ contains subroutine block_g2lv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -408,11 +408,11 @@ contains use psb_sort_mod implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -427,9 +427,9 @@ contains subroutine block_g2ls2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask idxout = idxin @@ -443,10 +443,10 @@ contains use psb_sort_mod implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: i, nv, is, ix + integer(psb_ipk_) :: i, nv, is, ix info = 0 is = size(idx) @@ -533,11 +533,11 @@ contains subroutine block_g2lv2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -554,11 +554,11 @@ contains use psb_penv_mod use psb_sort_mod implicit none - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_gen_block_map), intent(in) :: idxmap - integer, intent(out) :: info - integer :: ictxt, iam, np, nv, ip, i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: ictxt, iam, np, nv, ip, i ictxt = idxmap%get_ctxt() call psb_info(ictxt,iam,np) @@ -582,11 +582,11 @@ contains use psb_error_mod implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, nl - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, nl + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, ntot - integer, allocatable :: vnl(:) + integer(psb_ipk_) :: iam, np, i, ntot + integer(psb_ipk_), allocatable :: vnl(:) info = 0 call psb_info(ictxt,iam,np) @@ -642,9 +642,9 @@ contains use psb_sort_mod implicit none class(psb_gen_block_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: nhal, ictxt, iam, np + integer(psb_ipk_) :: nhal, ictxt, iam, np info = 0 ictxt = idxmap%get_ctxt() @@ -677,8 +677,8 @@ contains implicit none class(psb_gen_block_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='block_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_glist_map_mod.f90 b/base/modules/psb_glist_map_mod.f90 index 1e75a8f74..ee62dd8c1 100644 --- a/base/modules/psb_glist_map_mod.f90 +++ b/base/modules/psb_glist_map_mod.f90 @@ -47,7 +47,7 @@ module psb_glist_map_mod use psb_list_map_mod type, extends(psb_list_map) :: psb_glist_map - integer, allocatable :: vgp(:) + integer(psb_ipk_), allocatable :: vgp(:) contains procedure, pass(idxmap) :: glist_map_init => glist_initvg procedure, pass(idxmap) :: sizeof => glist_sizeof @@ -96,10 +96,10 @@ contains use psb_error_mod implicit none class(psb_glist_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vg(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, vg(:) + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, n, nl + integer(psb_ipk_) :: iam, np, i, n, nl info = 0 @@ -151,11 +151,11 @@ contains use psb_penv_mod use psb_sort_mod implicit none - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_glist_map), intent(in) :: idxmap - integer, intent(out) :: info - integer :: ictxt, iam, np, nv, i, ngp + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: ictxt, iam, np, nv, i, ngp ictxt = idxmap%get_ctxt() call psb_info(ictxt,iam,np) @@ -192,8 +192,8 @@ contains implicit none class(psb_glist_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='glist_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_hash_map_mod.f90 b/base/modules/psb_hash_map_mod.f90 index 1e2f665de..03ced8074 100644 --- a/base/modules/psb_hash_map_mod.f90 +++ b/base/modules/psb_hash_map_mod.f90 @@ -60,8 +60,8 @@ module psb_hash_map_mod type, extends(psb_indx_map) :: psb_hash_map - integer :: hashvsize, hashvmask - integer, allocatable :: hashv(:), glb_lc(:,:), loc_to_glob(:) + integer(psb_ipk_) :: hashvsize, hashvmask + integer(psb_ipk_), allocatable :: hashv(:), glb_lc(:,:), loc_to_glob(:) type(psb_hash_type), allocatable :: hash contains @@ -139,7 +139,7 @@ end function hash_sizeof subroutine hash_free(idxmap) implicit none class(psb_hash_map), intent(inout) :: idxmap - integer :: info + integer(psb_ipk_) :: info if (allocated(idxmap%hashv)) & & deallocate(idxmap%hashv) @@ -159,11 +159,11 @@ end subroutine hash_free subroutine hash_l2gs1(idx,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then if (.not.mask) return @@ -178,9 +178,9 @@ end subroutine hash_l2gs1 subroutine hash_l2gs2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -193,11 +193,11 @@ end subroutine hash_l2gs2 subroutine hash_l2gv1(idx,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i + integer(psb_ipk_) :: i logical :: owned_ info = 0 @@ -248,12 +248,12 @@ end subroutine hash_l2gv1 subroutine hash_l2gv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -270,11 +270,11 @@ end subroutine hash_l2gv2 subroutine hash_g2ls1(idx,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -290,9 +290,9 @@ end subroutine hash_g2ls1 subroutine hash_g2ls2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -307,12 +307,12 @@ subroutine hash_g2lv1(idx,idxmap,info,mask,owned) use psb_sort_mod implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i, is, mglob, ip, lip, nrow, ncol, nrm - integer :: ictxt, iam, np + integer(psb_ipk_) :: i, is, mglob, ip, lip, nrow, ncol, nrm + integer(psb_ipk_) :: ictxt, iam, np logical :: owned_ info = 0 @@ -421,13 +421,13 @@ end subroutine hash_g2lv1 subroutine hash_g2lv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_hash_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -447,11 +447,11 @@ subroutine hash_g2ls1_ins(idx,idxmap,info,mask) use psb_sort_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -466,9 +466,9 @@ end subroutine hash_g2ls1_ins subroutine hash_g2ls2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask idxout = idxin @@ -484,10 +484,10 @@ subroutine hash_g2lv1_ins(idx,idxmap,info,mask) use psb_penv_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: i, is, mglob, ip, lip, nrow, ncol, & + integer(psb_ipk_) :: i, is, mglob, ip, lip, nrow, ncol, & & nxt, err_act, ictxt, me, np character(len=20) :: name,ch_err @@ -618,11 +618,11 @@ end subroutine hash_g2lv1_ins subroutine hash_g2lv2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -642,11 +642,11 @@ subroutine hash_init_vl(idxmap,ictxt,vl,info) use psb_realloc_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vl(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, vl(:) + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, nlu, nl, m, nrt,int_err(5) - integer, allocatable :: vlu(:) + integer(psb_ipk_) :: iam, np, i, nlu, nl, m, nrt,int_err(5) + integer(psb_ipk_), allocatable :: vlu(:) character(len=20), parameter :: name='hash_map_init_vl' info = 0 @@ -706,11 +706,11 @@ subroutine hash_init_vg(idxmap,ictxt,vg,info) use psb_error_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vg(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, vg(:) + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, j, nl, n, int_err(5) - integer, allocatable :: vlu(:) + integer(psb_ipk_) :: iam, np, i, j, nl, n, int_err(5) + integer(psb_ipk_), allocatable :: vlu(:) info = 0 call psb_info(ictxt,iam,np) @@ -761,10 +761,10 @@ subroutine hash_init_vlu(idxmap,ictxt,ntot,nl,vlu,info) use psb_realloc_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vlu(:), nl, ntot - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, vlu(:), nl, ntot + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, j, lc2, nlu, m, nrt,int_err(5) + integer(psb_ipk_) :: iam, np, i, j, lc2, nlu, m, nrt,int_err(5) character(len=20), parameter :: name='hash_map_init_vlu' info = 0 @@ -815,10 +815,10 @@ subroutine hash_bld_g2l_map(idxmap,info) use psb_realloc_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: ictxt, iam, np, i, j, m, nl - integer :: key, ih, nh, idx, nbits, hsize, hmask + integer(psb_ipk_) :: ictxt, iam, np, i, j, m, nl + integer(psb_ipk_) :: key, ih, nh, idx, nbits, hsize, hmask character(len=20), parameter :: name='hash_map_init_vlu' info = 0 @@ -917,9 +917,9 @@ subroutine hash_asb(idxmap,info) use psb_sort_mod implicit none class(psb_hash_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: nhal, ictxt, iam, np + integer(psb_ipk_) :: nhal, ictxt, iam, np info = 0 ictxt = idxmap%get_ctxt() @@ -953,10 +953,10 @@ end function hash_get_fmt subroutine hash_inner_cnvs1(x,hashmask,hashv,glb_lc,nrm) - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(inout) :: x - integer, intent(in) :: nrm - integer :: ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(inout) :: x + integer(psb_ipk_), intent(in) :: nrm + integer(psb_ipk_) :: ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -999,11 +999,11 @@ subroutine hash_inner_cnvs1(x,hashmask,hashv,glb_lc,nrm) end subroutine hash_inner_cnvs1 subroutine hash_inner_cnvs2(x,y,hashmask,hashv,glb_lc,nrm) - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(in) :: x - integer, intent(out) :: y - integer, intent(in) :: nrm - integer :: ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: x + integer(psb_ipk_), intent(out) :: y + integer(psb_ipk_), intent(in) :: nrm + integer(psb_ipk_) :: ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -1047,12 +1047,12 @@ end subroutine hash_inner_cnvs2 subroutine hash_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask,nrm) - integer, intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) logical, intent(in), optional :: mask(:) - integer, intent(in), optional :: nrm - integer, intent(inout) :: x(:) + integer(psb_ipk_), intent(in), optional :: nrm + integer(psb_ipk_), intent(inout) :: x(:) - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -1138,13 +1138,13 @@ subroutine hash_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask,nrm) end subroutine hash_inner_cnv1 subroutine hash_inner_cnv2(n,x,y,hashmask,hashv,glb_lc,mask,nrm) - integer, intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) logical, intent(in), optional :: mask(:) - integer, intent(in), optional :: nrm - integer, intent(in) :: x(:) - integer, intent(out) :: y(:) + integer(psb_ipk_), intent(in), optional :: nrm + integer(psb_ipk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: y(:) - integer :: i, ih, key, idx,nh,tmp,lb,ub,lm + integer(psb_ipk_) :: i, ih, key, idx,nh,tmp,lb,ub,lm ! ! When a large descriptor is assembled the indices ! are kept in a (hashed) list of ordered lists. @@ -1245,8 +1245,8 @@ end subroutine hash_inner_cnv2 implicit none class(psb_hash_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='hash_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_hash_mod.f90 b/base/modules/psb_hash_mod.f90 index 0dfb99619..44e263e57 100644 --- a/base/modules/psb_hash_mod.f90 +++ b/base/modules/psb_hash_mod.f90 @@ -55,13 +55,13 @@ module psb_hash_mod ! Allocatable scalars would be a nice solution... ! type psb_hash_type - integer :: nbits, hsize, hmask, nk - integer, allocatable :: table(:,:) + integer(psb_ipk_) :: nbits, hsize, hmask, nk + integer(psb_ipk_), allocatable :: table(:,:) integer(psb_long_int_k_) :: nsrch, nacc end type psb_hash_type - integer, parameter :: HashDuplicate = 123, HashOK=0, HashOutOfMemory=-512,& + integer(psb_ipk_), parameter :: HashDuplicate = 123, HashOK=0, HashOutOfMemory=-512,& & HashFreeEntry = -1, HashNotFound = -256 interface psb_hash_init @@ -88,14 +88,18 @@ module psb_hash_mod contains + ! + ! This is based on the djb2 hashing algorithm + ! see e.g. http://www.cse.yorku.ca/~oz/hash.html + ! function hashval(key) result(val) - integer, intent(in) :: key - integer, parameter :: ival=5381, mask=2147483647 - integer :: key_, val, i + integer(psb_ipk_), intent(in) :: key + integer(psb_ipk_), parameter :: ival=5381, mask=huge(ival) + integer(psb_ipk_) :: key_, val, i key_ = key val = ival - do i=1, 4 + do i=1, psb_sizeof_int val = val * 33 + iand(key_,255) key_ = ishft(key_,-8) end do @@ -141,7 +145,7 @@ contains use psb_realloc_mod type(psb_hash_type) :: hashin type(psb_hash_type) :: hashout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = HashOk hashout%nbits = hashin%nbits @@ -158,7 +162,7 @@ contains use psb_realloc_mod type(psb_hash_type) :: hashin type(psb_hash_type) :: hashout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = HashOk hashout%nbits = hashin%nbits @@ -174,7 +178,7 @@ contains subroutine CloneHashTable(hashin,hashout,info) type(psb_hash_type), pointer :: hashin type(psb_hash_type), pointer :: hashout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (associated(hashout)) then deallocate(hashout,stat=info) @@ -189,11 +193,11 @@ contains end subroutine CloneHashTable subroutine psb_hash_init_V(v,hash,info) - integer, intent(in) :: v(:) + integer(psb_ipk_), intent(in) :: v(:) type(psb_hash_type), intent(out) :: hash - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,nbits, nv + integer(psb_ipk_) :: i,j,nbits, nv info = psb_success_ nv = size(v) @@ -210,17 +214,19 @@ contains end subroutine psb_hash_init_V subroutine psb_hash_init_n(nv,hash,info) - integer, intent(in) :: nv + integer(psb_ipk_), intent(in) :: nv type(psb_hash_type), intent(out) :: hash - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: hsize,nbits + integer(psb_ipk_) :: hsize,nbits info = psb_success_ nbits = 12 hsize = 2**nbits ! ! Figure out the smallest power of 2 bigger than NV + ! Note: in our intended usage NV will be the size of the + ! local index space, NOT the global index space. ! do if (hsize < 0) then @@ -232,7 +238,6 @@ contains nbits = nbits + 1 hsize = hsize * 2 end do - hash%nbits = nbits hash%hsize = hsize hash%hmask = hsize-1 @@ -251,9 +256,9 @@ contains subroutine psb_hash_realloc(hash,info) type(psb_hash_type), intent(inout) :: hash - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_hash_type) :: nhash - integer :: key, val, nextval,i + integer(psb_ipk_) :: key, val, nextval,i info = HashOk @@ -278,11 +283,11 @@ contains end subroutine psb_hash_realloc recursive subroutine psb_hash_searchinskey(key,val,nextval,hash,info) - integer, intent(in) :: key,nextval + integer(psb_ipk_), intent(in) :: key,nextval type(psb_hash_type) :: hash - integer, intent(out) :: val, info + integer(psb_ipk_), intent(out) :: val, info - integer :: hsize,hmask, hk, hd + integer(psb_ipk_) :: hsize,hmask, hk, hd info = HashOK hsize = hash%hsize @@ -334,11 +339,11 @@ contains end subroutine psb_hash_searchinskey subroutine psb_hash_searchkey(key,val,hash,info) - integer, intent(in) :: key + integer(psb_ipk_), intent(in) :: key type(psb_hash_type) :: hash - integer, intent(out) :: val, info + integer(psb_ipk_), intent(out) :: val, info - integer :: hsize,hmask, hk, hd + integer(psb_ipk_) :: hsize,hmask, hk, hd info = HashOK if (.not.allocated(hash%table) ) then diff --git a/base/modules/psb_i_comm_mod.f90 b/base/modules/psb_i_comm_mod.f90 index 9afdedb3d..5ed30a0ee 100644 --- a/base/modules/psb_i_comm_mod.f90 +++ b/base/modules/psb_i_comm_mod.f90 @@ -34,41 +34,41 @@ module psb_i_comm_mod interface psb_ovrl subroutine psb_iovrlm(x,desc_a,info,jx,ik,work,update,mode) use psb_descriptor_type - integer, intent(inout), target :: x(:,:) + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode end subroutine psb_iovrlm subroutine psb_iovrlv(x,desc_a,info,work,update,mode) use psb_descriptor_type - integer, intent(inout), target :: x(:) + integer(psb_ipk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_iovrlv end interface interface psb_halo subroutine psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode,data) use psb_descriptor_type - integer, intent(inout), target :: x(:,:) + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran end subroutine psb_ihalom subroutine psb_ihalov(x,desc_a,info,alpha,work,tran,mode,data) use psb_descriptor_type - integer, intent(inout) :: x(:) + integer(psb_ipk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional :: alpha - integer, intent(inout), optional, target :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(inout), optional, target :: work(:) + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_ihalov end interface @@ -77,38 +77,38 @@ module psb_i_comm_mod interface psb_scatter subroutine psb_iscatterm(globx, locx, desc_a, info, root) use psb_descriptor_type - integer, intent(out) :: locx(:,:) - integer, intent(in) :: globx(:,:) + integer(psb_ipk_), intent(out) :: locx(:,:) + integer(psb_ipk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_iscatterm subroutine psb_iscatterv(globx, locx, desc_a, info, root) use psb_descriptor_type - integer, intent(out) :: locx(:) - integer, intent(in) :: globx(:) + integer(psb_ipk_), intent(out) :: locx(:) + integer(psb_ipk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_iscatterv end interface interface psb_gather subroutine psb_igatherm(globx, locx, desc_a, info, root) use psb_descriptor_type - integer, intent(in) :: locx(:,:) - integer, intent(out) :: globx(:,:) + integer(psb_ipk_), intent(in) :: locx(:,:) + integer(psb_ipk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_igatherm subroutine psb_igatherv(globx, locx, desc_a, info, root) use psb_descriptor_type - integer, intent(in) :: locx(:) - integer, intent(out) :: globx(:) + integer(psb_ipk_), intent(in) :: locx(:) + integer(psb_ipk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_igatherv end interface diff --git a/base/modules/psb_indx_map_mod.f90 b/base/modules/psb_indx_map_mod.f90 index 02312de56..f6c09c65d 100644 --- a/base/modules/psb_indx_map_mod.f90 +++ b/base/modules/psb_indx_map_mod.f90 @@ -88,13 +88,13 @@ module psb_indx_map_mod type :: psb_indx_map - integer :: state = psb_desc_null_ - integer :: ictxt = -1 - integer :: mpic = -1 - integer :: global_rows = -1 - integer :: global_cols = -1 - integer :: local_rows = -1 - integer :: local_cols = -1 + integer(psb_ipk_) :: state = psb_desc_null_ + integer(psb_ipk_) :: ictxt = -1 + integer(psb_ipk_) :: mpic = -1 + integer(psb_ipk_) :: global_rows = -1 + integer(psb_ipk_) :: global_cols = -1 + integer(psb_ipk_) :: local_rows = -1 + integer(psb_ipk_) :: local_cols = -1 contains @@ -169,12 +169,12 @@ module psb_indx_map_mod interface subroutine psb_indx_map_fnd_owner(idx,iprc,idxmap,info) - import :: psb_indx_map + import :: psb_indx_map, psb_ipk_ implicit none - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_indx_map), intent(in) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_indx_map_fnd_owner end interface @@ -191,7 +191,7 @@ contains function base_get_state(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%state @@ -201,7 +201,7 @@ contains function base_get_gr(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%global_rows @@ -211,7 +211,7 @@ contains function base_get_gc(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%global_cols @@ -221,7 +221,7 @@ contains function base_get_lr(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%local_rows @@ -231,7 +231,7 @@ contains function base_get_lc(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%local_cols @@ -241,7 +241,7 @@ contains function base_get_ctxt(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%ictxt @@ -251,7 +251,7 @@ contains function base_get_mpic(idxmap) result(val) implicit none class(psb_indx_map), intent(in) :: idxmap - integer :: val + integer(psb_ipk_) :: val val = idxmap%mpic @@ -261,7 +261,7 @@ contains subroutine base_set_state(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%state = val end subroutine base_set_state @@ -269,7 +269,7 @@ contains subroutine base_set_ctxt(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%ictxt = val end subroutine base_set_ctxt @@ -277,7 +277,7 @@ contains subroutine base_set_gr(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%global_rows = val end subroutine base_set_gr @@ -285,7 +285,7 @@ contains subroutine base_set_gc(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%global_cols = val end subroutine base_set_gc @@ -293,7 +293,7 @@ contains subroutine base_set_lr(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%local_rows = val end subroutine base_set_lr @@ -301,7 +301,7 @@ contains subroutine base_set_lc(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%local_cols = val end subroutine base_set_lc @@ -309,7 +309,7 @@ contains subroutine base_set_mpic(idxmap,val) implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: val + integer(psb_ipk_), intent(in) :: val idxmap%mpic = val end subroutine base_set_mpic @@ -390,11 +390,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_l2g' logical, parameter :: debug=.false. @@ -416,13 +416,13 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_l2g' logical, parameter :: debug=.false. @@ -445,11 +445,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_l2g' logical, parameter :: debug=.false. @@ -470,12 +470,12 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_l2g' logical, parameter :: debug=.false. @@ -498,11 +498,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l' logical, parameter :: debug=.false. @@ -524,13 +524,13 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l' logical, parameter :: debug=.false. @@ -553,11 +553,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l' logical, parameter :: debug=.false. @@ -579,13 +579,13 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l' logical, parameter :: debug=.false. @@ -610,10 +610,10 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l_ins' logical, parameter :: debug=.false. @@ -635,12 +635,12 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l_ins' logical, parameter :: debug=.false. @@ -663,11 +663,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l_ins' logical, parameter :: debug=.false. @@ -689,11 +689,11 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_g2l_ins' logical, parameter :: debug=.false. @@ -716,9 +716,9 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_asb' logical, parameter :: debug=.false. @@ -773,9 +773,9 @@ contains use psb_error_mod implicit none class(psb_indx_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vl(:) - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: ictxt, vl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='base_init_vl' logical, parameter :: debug=.false. @@ -798,8 +798,8 @@ contains implicit none class(psb_indx_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='base_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_ip_reord_mod.f90 b/base/modules/psb_ip_reord_mod.f90 index add91d695..747873450 100644 --- a/base/modules/psb_ip_reord_mod.f90 +++ b/base/modules/psb_ip_reord_mod.f90 @@ -57,12 +57,12 @@ module psb_ip_reord_mod contains subroutine psb_ip_reord_i1(n,x,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) - integer :: x(*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) + integer(psb_ipk_) :: x(*) - integer :: lswap, lp, k - integer :: swap + integer(psb_ipk_) :: lswap, lp, k + integer(psb_ipk_) :: swap lp = iaux(0) k = 1 @@ -86,11 +86,11 @@ contains subroutine psb_ip_reord_s1(n,x,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_spk_) :: x(*) - integer :: lswap, lp, k + integer(psb_ipk_) :: lswap, lp, k real(psb_spk_) :: swap lp = iaux(0) @@ -114,11 +114,11 @@ contains end subroutine psb_ip_reord_s1 subroutine psb_ip_reord_d1(n,x,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_dpk_) :: x(*) - integer :: lswap, lp, k + integer(psb_ipk_) :: lswap, lp, k real(psb_dpk_) :: swap lp = iaux(0) @@ -144,11 +144,11 @@ contains subroutine psb_ip_reord_c1(n,x,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_spk_) :: x(*) - integer :: lswap, lp, k + integer(psb_ipk_) :: lswap, lp, k complex(psb_spk_) :: swap lp = iaux(0) @@ -172,11 +172,11 @@ contains end subroutine psb_ip_reord_c1 subroutine psb_ip_reord_z1(n,x,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_dpk_) :: x(*) - integer :: lswap, lp, k + integer(psb_ipk_) :: lswap, lp, k complex(psb_dpk_) :: swap lp = iaux(0) @@ -201,13 +201,13 @@ contains subroutine psb_ip_reord_i1i1(n,x,indx,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) - integer :: x(*) - integer :: indx(*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) + integer(psb_ipk_) :: x(*) + integer(psb_ipk_) :: indx(*) - integer :: lswap, lp, k, ixswap - integer :: swap + integer(psb_ipk_) :: lswap, lp, k, ixswap + integer(psb_ipk_) :: swap lp = iaux(0) k = 1 @@ -234,13 +234,13 @@ contains subroutine psb_ip_reord_s1i1(n,x,indx,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_spk_) :: x(*) - integer :: indx(*) + integer(psb_ipk_) :: indx(*) - integer :: lswap, lp, k, ixswap + integer(psb_ipk_) :: lswap, lp, k, ixswap real(psb_spk_) :: swap lp = iaux(0) @@ -267,12 +267,12 @@ contains end subroutine psb_ip_reord_s1i1 subroutine psb_ip_reord_d1i1(n,x,indx,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_dpk_) :: x(*) - integer :: indx(*) + integer(psb_ipk_) :: indx(*) - integer :: lswap, lp, k, ixswap + integer(psb_ipk_) :: lswap, lp, k, ixswap real(psb_dpk_) :: swap lp = iaux(0) @@ -301,12 +301,12 @@ contains subroutine psb_ip_reord_c1i1(n,x,indx,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_spk_) :: x(*) - integer :: indx(*) + integer(psb_ipk_) :: indx(*) - integer :: lswap, lp, k, ixswap + integer(psb_ipk_) :: lswap, lp, k, ixswap complex(psb_spk_) :: swap lp = iaux(0) @@ -333,12 +333,12 @@ contains end subroutine psb_ip_reord_c1i1 subroutine psb_ip_reord_z1i1(n,x,indx,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_dpk_) :: x(*) - integer :: indx(*) + integer(psb_ipk_) :: indx(*) - integer :: lswap, lp, k, ixswap + integer(psb_ipk_) :: lswap, lp, k, ixswap complex(psb_dpk_) :: swap lp = iaux(0) @@ -366,13 +366,13 @@ contains subroutine psb_ip_reord_s1i2(n,x,i1,i2,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_spk_) :: x(*) - integer :: i1(*), i2(*) + integer(psb_ipk_) :: i1(*), i2(*) - integer :: lswap, lp, k, isw1, isw2 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2 real(psb_spk_) :: swap lp = iaux(0) @@ -402,13 +402,13 @@ contains end subroutine psb_ip_reord_s1i2 subroutine psb_ip_reord_d1i2(n,x,i1,i2,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_dpk_) :: x(*) - integer :: i1(*), i2(*) + integer(psb_ipk_) :: i1(*), i2(*) - integer :: lswap, lp, k, isw1, isw2 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2 real(psb_dpk_) :: swap lp = iaux(0) @@ -438,13 +438,13 @@ contains end subroutine psb_ip_reord_d1i2 subroutine psb_ip_reord_c1i2(n,x,i1,i2,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_spk_) :: x(*) - integer :: i1(*), i2(*) + integer(psb_ipk_) :: i1(*), i2(*) - integer :: lswap, lp, k, isw1, isw2 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2 complex(psb_spk_) :: swap lp = iaux(0) @@ -474,13 +474,13 @@ contains end subroutine psb_ip_reord_c1i2 subroutine psb_ip_reord_z1i2(n,x,i1,i2,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_dpk_) :: x(*) - integer :: i1(*), i2(*) + integer(psb_ipk_) :: i1(*), i2(*) - integer :: lswap, lp, k, isw1, isw2 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2 complex(psb_dpk_) :: swap lp = iaux(0) @@ -511,13 +511,13 @@ contains subroutine psb_ip_reord_s1i3(n,x,i1,i2,i3,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_spk_) :: x(*) - integer :: i1(*), i2(*), i3(*) + integer(psb_ipk_) :: i1(*), i2(*), i3(*) - integer :: lswap, lp, k, isw1, isw2, isw3 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2, isw3 real(psb_spk_) :: swap lp = iaux(0) @@ -550,13 +550,13 @@ contains end subroutine psb_ip_reord_s1i3 subroutine psb_ip_reord_d1i3(n,x,i1,i2,i3,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) real(psb_dpk_) :: x(*) - integer :: i1(*), i2(*),i3(*) + integer(psb_ipk_) :: i1(*), i2(*),i3(*) - integer :: lswap, lp, k, isw1, isw2,isw3 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2,isw3 real(psb_dpk_) :: swap lp = iaux(0) @@ -589,13 +589,13 @@ contains end subroutine psb_ip_reord_d1i3 subroutine psb_ip_reord_c1i3(n,x,i1,i2,i3,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_spk_) :: x(*) - integer :: i1(*), i2(*), i3(*) + integer(psb_ipk_) :: i1(*), i2(*), i3(*) - integer :: lswap, lp, k, isw1, isw2, isw3 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2, isw3 complex(psb_spk_) :: swap lp = iaux(0) @@ -628,13 +628,13 @@ contains end subroutine psb_ip_reord_c1i3 subroutine psb_ip_reord_z1i3(n,x,i1,i2,i3,iaux) - integer, intent(in) :: n - integer :: iaux(0:*) + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: iaux(0:*) complex(psb_dpk_) :: x(*) - integer :: i1(*), i2(*), i3(*) + integer(psb_ipk_) :: i1(*), i2(*), i3(*) - integer :: lswap, lp, k, isw1, isw2, isw3 + integer(psb_ipk_) :: lswap, lp, k, isw1, isw2, isw3 complex(psb_dpk_) :: swap lp = iaux(0) diff --git a/base/modules/psb_list_map_mod.f90 b/base/modules/psb_list_map_mod.f90 index 48a80e50f..19fdf2a41 100644 --- a/base/modules/psb_list_map_mod.f90 +++ b/base/modules/psb_list_map_mod.f90 @@ -45,8 +45,8 @@ module psb_list_map_mod use psb_indx_map_mod type, extends(psb_indx_map) :: psb_list_map - integer :: pnt_h = -1 - integer, allocatable :: loc_to_glob(:), glob_to_loc(:) + integer(psb_ipk_) :: pnt_h = -1 + integer(psb_ipk_), allocatable :: loc_to_glob(:), glob_to_loc(:) contains procedure, pass(idxmap) :: init_vl => list_initvl @@ -120,11 +120,11 @@ contains subroutine list_l2gs1(idx,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then if (.not.mask) return @@ -139,9 +139,9 @@ contains subroutine list_l2gs2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -154,11 +154,11 @@ contains subroutine list_l2gv1(idx,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i + integer(psb_ipk_) :: i logical :: owned_ info = 0 @@ -209,12 +209,12 @@ contains subroutine list_l2gv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -228,11 +228,11 @@ contains subroutine list_g2ls1(idx,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -248,9 +248,9 @@ contains subroutine list_g2ls2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -264,11 +264,11 @@ contains use psb_sort_mod implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i, is, ix + integer(psb_ipk_) :: i, is, ix logical :: owned_ info = 0 @@ -329,13 +329,13 @@ contains subroutine list_g2lv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_list_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -352,11 +352,11 @@ contains use psb_sort_mod implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -371,9 +371,9 @@ contains subroutine list_g2ls2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask idxout = idxin @@ -387,10 +387,10 @@ contains use psb_sort_mod implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: i, is, ix + integer(psb_ipk_) :: i, is, ix info = 0 is = size(idx) @@ -466,11 +466,11 @@ contains subroutine list_g2lv2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -488,10 +488,10 @@ contains !!$ use psb_error_mod !!$ implicit none !!$ class(psb_list_map), intent(inout) :: idxmap -!!$ integer, intent(in) :: ictxt, vg(:) -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(in) :: ictxt, vg(:) +!!$ integer(psb_ipk_), intent(out) :: info !!$ ! To be implemented -!!$ integer :: iam, np, i, j, n, nl +!!$ integer(psb_ipk_) :: iam, np, i, j, n, nl !!$ !!$ !!$ info = 0 @@ -544,10 +544,10 @@ contains use psb_error_mod implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, vl(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, vl(:) + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np, i, ix, nl, n, nrt + integer(psb_ipk_) :: iam, np, i, ix, nl, n, nrt info = 0 call psb_info(ictxt,iam,np) @@ -608,9 +608,9 @@ contains use psb_sort_mod implicit none class(psb_list_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: nhal, ictxt, iam, np + integer(psb_ipk_) :: nhal, ictxt, iam, np info = 0 ictxt = idxmap%get_ctxt() @@ -637,8 +637,8 @@ contains implicit none class(psb_list_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='list_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_realloc_mod.F90 b/base/modules/psb_realloc_mod.F90 index 773c54664..22787b575 100644 --- a/base/modules/psb_realloc_mod.F90 +++ b/base/modules/psb_realloc_mod.F90 @@ -124,12 +124,12 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,allocatable, intent(in) :: vin(:) - Integer,allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_),allocatable, intent(in) :: vin(:) + integer(psb_ipk_),allocatable, intent(out) :: vout(:) + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -175,12 +175,12 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer, allocatable, intent(in) :: vin(:,:) - Integer, allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_), allocatable, intent(in) :: vin(:,:) + integer(psb_ipk_), allocatable, intent(out) :: vout(:,:) + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -229,10 +229,10 @@ Contains ! ...Subroutine Arguments real(psb_spk_), allocatable, intent(in) :: vin(:) real(psb_spk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -279,10 +279,10 @@ Contains ! ...Subroutine Arguments real(psb_spk_), allocatable, intent(in) :: vin(:,:) real(psb_spk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -331,10 +331,10 @@ Contains ! ...Subroutine Arguments real(psb_dpk_), allocatable, intent(in) :: vin(:) real(psb_dpk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -381,10 +381,10 @@ Contains ! ...Subroutine Arguments real(psb_dpk_), allocatable, intent(in) :: vin(:,:) real(psb_dpk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -433,10 +433,10 @@ Contains ! ...Subroutine Arguments complex(psb_spk_), allocatable, intent(in) :: vin(:) complex(psb_spk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -483,10 +483,10 @@ Contains ! ...Subroutine Arguments complex(psb_spk_), allocatable, intent(in) :: vin(:,:) complex(psb_spk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -535,10 +535,10 @@ Contains ! ...Subroutine Arguments complex(psb_dpk_), allocatable, intent(in) :: vin(:) complex(psb_dpk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -584,10 +584,10 @@ Contains ! ...Subroutine Arguments complex(psb_dpk_), allocatable, intent(in) :: vin(:,:) complex(psb_dpk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -634,12 +634,12 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer, intent(in) :: vin(:) - Integer, allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_), intent(in) :: vin(:) + integer(psb_ipk_), allocatable, intent(out) :: vout(:) + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -681,12 +681,12 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer, intent(in) :: vin(:,:) - Integer, allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_), intent(in) :: vin(:,:) + integer(psb_ipk_), allocatable, intent(out) :: vout(:,:) + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -733,10 +733,10 @@ Contains ! ...Subroutine Arguments real(psb_spk_), intent(in) :: vin(:) real(psb_spk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -781,10 +781,10 @@ Contains ! ...Subroutine Arguments real(psb_spk_), intent(in) :: vin(:,:) real(psb_spk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -831,10 +831,10 @@ Contains ! ...Subroutine Arguments real(psb_dpk_), intent(in) :: vin(:) real(psb_dpk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -878,10 +878,10 @@ Contains ! ...Subroutine Arguments real(psb_dpk_), intent(in) :: vin(:,:) real(psb_dpk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -928,10 +928,10 @@ Contains ! ...Subroutine Arguments complex(psb_spk_), intent(in) :: vin(:) complex(psb_spk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -976,10 +976,10 @@ Contains ! ...Subroutine Arguments complex(psb_spk_), intent(in) :: vin(:,:) complex(psb_spk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -1026,10 +1026,10 @@ Contains ! ...Subroutine Arguments complex(psb_dpk_), intent(in) :: vin(:) complex(psb_dpk_), allocatable, intent(out) :: vout(:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz,err_act,lb + integer(psb_ipk_) :: isz,err_act,lb character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -1073,10 +1073,10 @@ Contains ! ...Subroutine Arguments complex(psb_dpk_), intent(in) :: vin(:,:) complex(psb_dpk_), allocatable, intent(out) :: vout(:,:) - integer :: info + integer(psb_ipk_) :: info ! ...Local Variables - Integer :: isz1, isz2,err_act, lb1, lb2 + integer(psb_ipk_) :: isz1, isz2,err_act, lb1, lb2 character(len=20) :: name, char_err logical, parameter :: debug=.false. @@ -1119,8 +1119,8 @@ Contains function psb_isize1d(vin) - integer :: psb_isize1d - integer, allocatable, intent(in) :: vin(:) + integer(psb_ipk_) :: psb_isize1d + integer(psb_ipk_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then psb_isize1d = 0 @@ -1130,10 +1130,10 @@ Contains end function psb_isize1d function psb_isize2d(vin,dim) - integer :: psb_isize2d - integer, allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_) :: psb_isize2d + integer(psb_ipk_), allocatable, intent(in) :: vin(:,:) + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then psb_isize2d = 0 @@ -1149,7 +1149,7 @@ Contains #if !defined(LONG_INTEGERS) function psb_i8size1d(vin) - integer :: psb_i8size1d + integer(psb_ipk_) :: psb_i8size1d integer(psb_long_int_k_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then @@ -1160,10 +1160,10 @@ Contains end function psb_i8size1d function psb_i8size2d(vin,dim) - integer :: psb_i8size2d + integer(psb_ipk_) :: psb_i8size2d integer(psb_long_int_k_), allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then psb_i8size2d = 0 @@ -1179,7 +1179,7 @@ Contains #endif function psb_ssize1d(vin) - integer :: psb_ssize1d + integer(psb_ipk_) :: psb_ssize1d real(psb_spk_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then @@ -1190,10 +1190,10 @@ Contains end function psb_ssize1d function psb_ssize2d(vin,dim) - integer :: psb_ssize2d + integer(psb_ipk_) :: psb_ssize2d real(psb_spk_), allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then @@ -1209,7 +1209,7 @@ Contains end function psb_ssize2d function psb_dsize1d(vin) - integer :: psb_dsize1d + integer(psb_ipk_) :: psb_dsize1d real(psb_dpk_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then @@ -1220,10 +1220,10 @@ Contains end function psb_dsize1d function psb_dsize2d(vin,dim) - integer :: psb_dsize2d + integer(psb_ipk_) :: psb_dsize2d real(psb_dpk_), allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then @@ -1240,7 +1240,7 @@ Contains function psb_csize1d(vin) - integer :: psb_csize1d + integer(psb_ipk_) :: psb_csize1d complex(psb_spk_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then @@ -1251,10 +1251,10 @@ Contains end function psb_csize1d function psb_csize2d(vin,dim) - integer :: psb_csize2d + integer(psb_ipk_) :: psb_csize2d complex(psb_spk_), allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then psb_csize2d = 0 @@ -1269,7 +1269,7 @@ Contains end function psb_csize2d function psb_zsize1d(vin) - integer :: psb_zsize1d + integer(psb_ipk_) :: psb_zsize1d complex(psb_dpk_), allocatable, intent(in) :: vin(:) if (.not.allocated(vin)) then @@ -1280,10 +1280,10 @@ Contains end function psb_zsize1d function psb_zsize2d(vin,dim) - integer :: psb_zsize2d + integer(psb_ipk_) :: psb_zsize2d complex(psb_dpk_), allocatable, intent(in) :: vin(:,:) - integer, optional :: dim - integer :: dim_ + integer(psb_ipk_), optional :: dim + integer(psb_ipk_) :: dim_ if (.not.allocated(vin)) then psb_zsize2d = 0 @@ -1302,15 +1302,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: v(:) - integer :: info - integer, optional, intent(in) :: pad - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: v(:) + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: pad + integer(psb_ipk_), optional, intent(in) :: addsz,newsz ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1361,15 +1361,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len Integer(psb_long_int_k_),allocatable, intent(inout) :: v(:) - integer :: info + integer(psb_ipk_) :: info integer(psb_long_int_k_), optional, intent(in) :: pad - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_), optional, intent(in) :: addsz,newsz ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1419,15 +1419,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len real(psb_spk_),allocatable, intent(inout) :: v(:) - integer :: info - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: addsz,newsz real(psb_spk_), optional, intent(in) :: pad ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1477,15 +1477,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len real(psb_dpk_),allocatable, intent(inout) :: v(:) - integer :: info - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: addsz,newsz real(psb_dpk_), optional, intent(in) :: pad ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1536,15 +1536,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len complex(psb_spk_),allocatable, intent(inout) :: v(:) - integer :: info - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: addsz,newsz complex(psb_spk_), optional, intent(in) :: pad ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1594,15 +1594,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len complex(psb_dpk_),allocatable, intent(inout) :: v(:) - integer :: info - integer, optional, intent(in) :: addsz,newsz + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: addsz,newsz complex(psb_dpk_), optional, intent(in) :: pad ! ...Local Variables character(len=20) :: name logical, parameter :: debug=.false. - integer :: isz, err_act + integer(psb_ipk_) :: isz, err_act name='psb_ensure_size' call psb_erractionsave(err_act) @@ -1652,14 +1652,14 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:) - integer :: info - integer, optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:) + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: pad + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables - Integer,allocatable :: tmp(:) - Integer :: dim, err_act, err,lb_, lbi, ub_ + integer(psb_ipk_),allocatable :: tmp(:) + integer(psb_ipk_) :: dim, err_act, err,lb_, lbi, ub_ character(len=20) :: name logical, parameter :: debug=.false. @@ -1735,14 +1735,14 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len Integer(psb_long_int_k_),allocatable, intent(inout) :: rrax(:) - integer :: info + integer(psb_ipk_) :: info integer(psb_long_int_k_), optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables Integer(psb_long_int_k_),allocatable :: tmp(:) - Integer :: dim, err_act, err,lb_, lbi, ub_ + integer(psb_ipk_) :: dim, err_act, err,lb_, lbi, ub_ character(len=20) :: name logical, parameter :: debug=.false. @@ -1819,15 +1819,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len Real(psb_spk_),allocatable, intent(inout) :: rrax(:) - integer :: info + integer(psb_ipk_) :: info real(psb_spk_), optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables Real(psb_spk_),allocatable :: tmp(:) - Integer :: dim,err_act,err, lb_, lbi,ub_ + integer(psb_ipk_) :: dim,err_act,err, lb_, lbi,ub_ character(len=20) :: name logical, parameter :: debug=.false. @@ -1893,15 +1893,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len Real(psb_dpk_),allocatable, intent(inout) :: rrax(:) - integer :: info + integer(psb_ipk_) :: info real(psb_dpk_), optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables Real(psb_dpk_),allocatable :: tmp(:) - Integer :: dim,err_act,err, lb_, lbi,ub_ + integer(psb_ipk_) :: dim,err_act,err, lb_, lbi,ub_ character(len=20) :: name logical, parameter :: debug=.false. @@ -1968,15 +1968,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len complex(psb_spk_),allocatable, intent(inout):: rrax(:) - integer :: info + integer(psb_ipk_) :: info complex(psb_spk_), optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables complex(psb_spk_),allocatable :: tmp(:) - Integer :: dim,err_act,err,lb_,ub_,lbi + integer(psb_ipk_) :: dim,err_act,err,lb_,ub_,lbi character(len=20) :: name logical, parameter :: debug=.false. @@ -2041,15 +2041,15 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len + integer(psb_ipk_),Intent(in) :: len complex(psb_dpk_),allocatable, intent(inout):: rrax(:) - integer :: info + integer(psb_ipk_) :: info complex(psb_dpk_), optional, intent(in) :: pad - integer, optional, intent(in) :: lb + integer(psb_ipk_), optional, intent(in) :: lb ! ...Local Variables complex(psb_dpk_),allocatable :: tmp(:) - Integer :: dim,err_act,err,lb_,ub_,lbi + integer(psb_ipk_) :: dim,err_act,err,lb_,ub_,lbi character(len=20) :: name logical, parameter :: debug=.false. @@ -2115,16 +2115,16 @@ Contains Subroutine psb_reallocates2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 + integer(psb_ipk_),Intent(in) :: len1,len2 Real(psb_spk_),allocatable :: rrax(:,:) - integer :: info + integer(psb_ipk_) :: info real(psb_spk_), optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables Real(psb_spk_),allocatable :: tmp(:,:) - Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_) :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2207,16 +2207,16 @@ Contains Subroutine psb_reallocated2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 + integer(psb_ipk_),Intent(in) :: len1,len2 Real(psb_dpk_),allocatable :: rrax(:,:) - integer :: info + integer(psb_ipk_) :: info real(psb_dpk_), optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables Real(psb_dpk_),allocatable :: tmp(:,:) - Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_) :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2299,16 +2299,16 @@ Contains Subroutine psb_reallocatec2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 + integer(psb_ipk_),Intent(in) :: len1,len2 complex(psb_spk_),allocatable :: rrax(:,:) - integer :: info + integer(psb_ipk_) :: info complex(psb_spk_), optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables complex(psb_spk_),allocatable :: tmp(:,:) - Integer :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_) :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2391,16 +2391,16 @@ Contains Subroutine psb_reallocatez2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 + integer(psb_ipk_),Intent(in) :: len1,len2 complex(psb_dpk_),allocatable :: rrax(:,:) - integer :: info + integer(psb_ipk_) :: info complex(psb_dpk_), optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables complex(psb_dpk_),allocatable :: tmp(:,:) - Integer :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_) :: dim,err_act,err,dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2484,15 +2484,15 @@ Contains Subroutine psb_reallocatei2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 - integer,allocatable :: rrax(:,:) - integer :: info - integer, optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in) :: len1,len2 + integer(psb_ipk_),allocatable :: rrax(:,:) + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: pad + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables - integer,allocatable :: tmp(:,:) - Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_),allocatable :: tmp(:,:) + integer(psb_ipk_) :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2575,15 +2575,15 @@ Contains Subroutine psb_reallocatei8_2(len1,len2,rrax,info,pad,lb1,lb2) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len1,len2 + integer(psb_ipk_),Intent(in) :: len1,len2 integer(psb_long_int_k_),allocatable :: rrax(:,:) - integer :: info + integer(psb_ipk_) :: info integer(psb_long_int_k_), optional, intent(in) :: pad - Integer,Intent(in), optional :: lb1,lb2 + integer(psb_ipk_),Intent(in), optional :: lb1,lb2 ! ...Local Variables integer(psb_long_int_k_),allocatable :: tmp(:,:) - Integer :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& + integer(psb_ipk_) :: dim,err_act,err, dim2,lb1_, lb2_, ub1_, ub2_,& & lbi1, lbi2 character(len=20) :: name @@ -2667,12 +2667,12 @@ Contains use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:),y(:) - integer :: info - integer, optional, intent(in) :: pad + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:),y(:) + integer(psb_ipk_) :: info + integer(psb_ipk_), optional, intent(in) :: pad character(len=20) :: name - integer :: err_act, err + integer(psb_ipk_) :: err_act, err name='psb_reallocate2i' call psb_erractionsave(err_act) @@ -2716,12 +2716,12 @@ Contains Subroutine psb_reallocate2i1s(len,rrax,y,z,info) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:),y(:) + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:),y(:) Real(psb_spk_),allocatable, intent(inout) :: z(:) - integer :: info + integer(psb_ipk_) :: info character(len=20) :: name - integer :: err_act, err + integer(psb_ipk_) :: err_act, err logical, parameter :: debug=.false. name='psb_reallocate2i1s' @@ -2765,12 +2765,12 @@ Contains Subroutine psb_reallocate2i1d(len,rrax,y,z,info) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:),y(:) + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:),y(:) Real(psb_dpk_),allocatable, intent(inout) :: z(:) - integer :: info + integer(psb_ipk_) :: info character(len=20) :: name - integer :: err_act, err + integer(psb_ipk_) :: err_act, err name='psb_reallocate2i1d' call psb_erractionsave(err_act) @@ -2814,12 +2814,12 @@ Contains Subroutine psb_reallocate2i1c(len,rrax,y,z,info) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:),y(:) + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:),y(:) complex(psb_spk_),allocatable, intent(inout) :: z(:) - integer :: info + integer(psb_ipk_) :: info character(len=20) :: name - integer :: err_act, err + integer(psb_ipk_) :: err_act, err name='psb_reallocate2i1c' call psb_erractionsave(err_act) @@ -2861,12 +2861,12 @@ Contains Subroutine psb_reallocate2i1z(len,rrax,y,z,info) use psb_error_mod ! ...Subroutine Arguments - Integer,Intent(in) :: len - Integer,allocatable, intent(inout) :: rrax(:),y(:) + integer(psb_ipk_),Intent(in) :: len + integer(psb_ipk_),allocatable, intent(inout) :: rrax(:),y(:) complex(psb_dpk_),allocatable, intent(inout) :: z(:) - integer :: info + integer(psb_ipk_) :: info character(len=20) :: name - integer :: err_act, err + integer(psb_ipk_) :: err_act, err name='psb_reallocate2i1z' call psb_erractionsave(err_act) @@ -2907,7 +2907,7 @@ Contains Subroutine psb_smove_alloc1d(vin,vout,info) use psb_error_mod real(psb_spk_), allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -2930,7 +2930,7 @@ Contains Subroutine psb_smove_alloc2d(vin,vout,info) use psb_error_mod real(psb_spk_), allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -2955,7 +2955,7 @@ Contains Subroutine psb_dmove_alloc1d(vin,vout,info) use psb_error_mod real(psb_dpk_), allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -2978,7 +2978,7 @@ Contains Subroutine psb_dmove_alloc2d(vin,vout,info) use psb_error_mod real(psb_dpk_), allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3003,7 +3003,7 @@ Contains Subroutine psb_cmove_alloc1d(vin,vout,info) use psb_error_mod complex(psb_spk_), allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3026,7 +3026,7 @@ Contains Subroutine psb_cmove_alloc2d(vin,vout,info) use psb_error_mod complex(psb_spk_), allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3051,7 +3051,7 @@ Contains Subroutine psb_zmove_alloc1d(vin,vout,info) use psb_error_mod complex(psb_dpk_), allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3074,7 +3074,7 @@ Contains Subroutine psb_zmove_alloc2d(vin,vout,info) use psb_error_mod complex(psb_dpk_), allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3098,8 +3098,8 @@ Contains Subroutine psb_imove_alloc1d(vin,vout,info) use psb_error_mod - integer, allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: vin(:),vout(:) + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3121,8 +3121,8 @@ Contains Subroutine psb_imove_alloc2d(vin,vout,info) use psb_error_mod - integer, allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: vin(:,:),vout(:,:) + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3148,7 +3148,7 @@ Contains Subroutine psb_i8move_alloc1d(vin,vout,info) use psb_error_mod integer(psb_long_int_k_), allocatable, intent(inout) :: vin(:),vout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ @@ -3171,7 +3171,7 @@ Contains Subroutine psb_i8move_alloc2d(vin,vout,info) use psb_error_mod integer(psb_long_int_k_), allocatable, intent(inout) :: vin(:,:),vout(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! ! info=psb_success_ diff --git a/base/modules/psb_repl_map_mod.f90 b/base/modules/psb_repl_map_mod.f90 index a87b6f17e..08d0d323b 100644 --- a/base/modules/psb_repl_map_mod.f90 +++ b/base/modules/psb_repl_map_mod.f90 @@ -106,11 +106,11 @@ contains subroutine repl_l2gs1(idx,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then if (.not.mask) return @@ -125,9 +125,9 @@ contains subroutine repl_l2gs2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -140,11 +140,11 @@ contains subroutine repl_l2gv1(idx,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i + integer(psb_ipk_) :: i logical :: owned_ info = 0 @@ -189,12 +189,12 @@ contains subroutine repl_l2gv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -208,11 +208,11 @@ contains subroutine repl_g2ls1(idx,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -228,9 +228,9 @@ contains subroutine repl_g2ls2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned @@ -243,11 +243,11 @@ contains subroutine repl_g2lv1(idx,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: i, is + integer(psb_ipk_) :: i, is logical :: owned_ info = 0 @@ -324,13 +324,13 @@ contains subroutine repl_g2lv2(idxin,idxout,idxmap,info,mask,owned) implicit none class(psb_repl_map), intent(in) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -347,11 +347,11 @@ contains use psb_sort_mod implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(inout) :: idx - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask - integer :: idxv(1) + integer(psb_ipk_) :: idxv(1) info = 0 if (present(mask)) then @@ -366,9 +366,9 @@ contains subroutine repl_g2ls2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(in) :: idxin - integer, intent(out) :: idxout - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask idxout = idxin @@ -382,10 +382,10 @@ contains use psb_sort_mod implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(inout) :: idx(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idx(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: i, is + integer(psb_ipk_) :: i, is info = 0 is = size(idx) @@ -437,11 +437,11 @@ contains subroutine repl_g2lv2_ins(idxin,idxout,idxmap,info,mask) implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(in) :: idxin(:) - integer, intent(out) :: idxout(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) - integer :: is, im + integer(psb_ipk_) :: is, im is = size(idxin) im = min(is,size(idxout)) @@ -455,11 +455,11 @@ contains subroutine repl_fnd_owner(idx,iprc,idxmap,info) use psb_penv_mod implicit none - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) class(psb_repl_map), intent(in) :: idxmap - integer, intent(out) :: info - integer :: ictxt, iam, np, nv + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: ictxt, iam, np, nv ictxt = idxmap%get_ctxt() call psb_info(ictxt,iam,np) @@ -480,10 +480,10 @@ contains use psb_error_mod implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(in) :: ictxt, nl - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, nl + integer(psb_ipk_), intent(out) :: info ! To be implemented - integer :: iam, np + integer(psb_ipk_) :: iam, np info = 0 call psb_info(ictxt,iam,np) @@ -511,9 +511,9 @@ contains use psb_error_mod implicit none class(psb_repl_map), intent(inout) :: idxmap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np info = 0 ictxt = idxmap%get_ctxt() @@ -546,8 +546,8 @@ contains implicit none class(psb_repl_map), intent(in) :: idxmap class(psb_indx_map), allocatable, intent(out) :: outmap - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='repl_clone' logical, parameter :: debug=.false. diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90 index 82abb9071..8898526b4 100644 --- a/base/modules/psb_s_base_mat_mod.f90 +++ b/base/modules/psb_s_base_mat_mod.f90 @@ -123,8 +123,8 @@ module psb_s_base_mat_mod type, extends(psb_s_base_sparse_mat) :: psb_s_coo_sparse_mat - integer :: nnz - integer, allocatable :: ia(:), ja(:) + integer(psb_ipk_) :: nnz + integer(psb_ipk_), allocatable :: ia(:), ja(:) real(psb_spk_), allocatable :: val(:) contains @@ -221,12 +221,12 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_s_base_csput end interface @@ -255,16 +255,16 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_base_csgetrow end interface @@ -281,14 +281,14 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_base_csgetblk end interface @@ -304,11 +304,11 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_base_csclip end interface @@ -320,10 +320,10 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_get_diag(a,d,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_get_diag end interface @@ -335,10 +335,10 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_mold(a,b,info) - import :: psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mold end interface @@ -357,73 +357,73 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_cp_to_coo(a,b,info) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_coo end interface interface subroutine psb_s_base_cp_from_coo(a,b,info) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_coo end interface interface subroutine psb_s_base_cp_to_fmt(a,b,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_fmt end interface interface subroutine psb_s_base_cp_from_fmt(a,b,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_fmt end interface interface subroutine psb_s_base_mv_to_coo(a,b,info) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_coo end interface interface subroutine psb_s_base_mv_from_coo(a,b,info) - import :: psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_from_coo end interface interface subroutine psb_s_base_mv_to_fmt(a,b,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_fmt end interface interface subroutine psb_s_base_mv_from_fmt(a,b,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_from_fmt end interface @@ -434,7 +434,7 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_transp_2mat(a,b) - import :: psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_s_base_transp_2mat @@ -442,7 +442,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_transc_2mat(a,b) - import :: psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_s_base_transc_2mat @@ -450,14 +450,14 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_transp_1mat(a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transp_1mat end interface interface subroutine psb_s_base_transc_1mat(a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transc_1mat end interface @@ -473,34 +473,34 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_csmm end interface interface subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_csmv end interface interface subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_vect_mv end interface @@ -513,44 +513,44 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_inner_cssm end interface interface subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_inner_cssv end interface interface subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import :: psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_base_inner_vect_sv end interface interface subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_base_cssm @@ -558,11 +558,11 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_base_cssv @@ -570,11 +570,11 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_s_base_sparse_mat, psb_spk_,psb_s_base_vect_type + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_,psb_s_base_vect_type class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_s_base_vect_type), optional, intent(inout) :: d end subroutine psb_s_base_vect_cssv @@ -586,19 +586,19 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_scals(d,a,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_scals end interface interface subroutine psb_s_base_scal(d,a,info) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_scal end interface @@ -607,7 +607,7 @@ module psb_s_base_mat_mod ! interface function psb_s_base_maxval(a) result(res) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_maxval @@ -618,7 +618,7 @@ module psb_s_base_mat_mod ! interface function psb_s_base_csnmi(a) result(res) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_csnmi @@ -629,7 +629,7 @@ module psb_s_base_mat_mod ! interface function psb_s_base_csnm1(a) result(res) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_csnm1 @@ -641,7 +641,7 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_rowsum(d,a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_rowsum @@ -649,7 +649,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_arwsum(d,a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_arwsum @@ -661,7 +661,7 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_base_colsum(d,a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_colsum @@ -669,7 +669,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_base_aclsum(d,a) - import :: psb_s_base_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_base_sparse_mat, psb_spk_ class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_aclsum @@ -684,15 +684,15 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_reallocate_nz(nz,a) - import :: psb_s_coo_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_s_coo_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_reallocate_nz end interface interface subroutine psb_s_coo_reinit(a,clear) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_coo_reinit @@ -700,48 +700,48 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_trim(a) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_trim end interface interface subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) - import :: psb_s_coo_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_s_coo_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_coo_allocate_mnnz end interface interface subroutine psb_s_coo_mold(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_mold end interface interface subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) - import :: psb_s_coo_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_s_coo_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_coo_print end interface interface function psb_s_coo_get_nz_row(idx,a) result(res) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res end function psb_s_coo_get_nz_row end interface @@ -754,99 +754,99 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import :: psb_spk_ - integer, intent(in) :: nzin,dupl - integer, intent(inout) :: ia(:), ja(:) + import :: psb_ipk_, psb_spk_ + integer(psb_ipk_), intent(in) :: nzin,dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_spk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_s_fix_coo_inner end interface interface subroutine psb_s_fix_coo(a,info,idir) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_s_fix_coo end interface interface subroutine psb_s_cp_coo_to_coo(a,b,info) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_to_coo end interface interface subroutine psb_s_cp_coo_from_coo(a,b,info) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_from_coo end interface interface subroutine psb_s_cp_coo_to_fmt(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_to_fmt end interface interface subroutine psb_s_cp_coo_from_fmt(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_from_fmt end interface interface subroutine psb_s_mv_coo_to_coo(a,b,info) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_to_coo end interface interface subroutine psb_s_mv_coo_from_coo(a,b,info) - import :: psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_from_coo end interface interface subroutine psb_s_mv_coo_to_fmt(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_to_fmt end interface interface subroutine psb_s_mv_coo_from_fmt(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_base_sparse_mat class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_from_fmt end interface interface subroutine psb_s_coo_cp_from(a,b) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(in) :: b end subroutine psb_s_coo_cp_from @@ -854,7 +854,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_mv_from(a,b) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(inout) :: b end subroutine psb_s_coo_mv_from @@ -863,28 +863,28 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_s_coo_csput end interface interface subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_coo_csgetptn end interface @@ -892,54 +892,54 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_coo_csgetrow end interface interface subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_coo_cssv subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_coo_cssm end interface interface subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_coo_csmv subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_coo_csmm end interface @@ -947,7 +947,7 @@ module psb_s_base_mat_mod interface function psb_s_coo_maxval(a) result(res) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_maxval @@ -955,7 +955,7 @@ module psb_s_base_mat_mod interface function psb_s_coo_csnmi(a) result(res) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_csnmi @@ -963,7 +963,7 @@ module psb_s_base_mat_mod interface function psb_s_coo_csnm1(a) result(res) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_csnm1 @@ -971,7 +971,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_rowsum(d,a) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_rowsum @@ -979,7 +979,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_arwsum(d,a) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_arwsum @@ -987,7 +987,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_colsum(d,a) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_colsum @@ -995,7 +995,7 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_aclsum(d,a) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_aclsum @@ -1003,28 +1003,28 @@ module psb_s_base_mat_mod interface subroutine psb_s_coo_get_diag(a,d,info) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_get_diag end interface interface subroutine psb_s_coo_scal(d,a,info) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_scal end interface interface subroutine psb_s_coo_scals(d,a,info) - import :: psb_s_coo_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_spk_ class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_scals end interface @@ -1098,7 +1098,7 @@ contains function s_coo_get_size(a) result(res) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 if (allocated(a%ia)) res = size(a%ia) @@ -1122,7 +1122,7 @@ contains function s_coo_get_nzeros(a) result(res) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%nnz end function s_coo_get_nzeros @@ -1142,7 +1142,7 @@ contains subroutine s_coo_set_nzeros(nz,a) implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a a%nnz = nz @@ -1197,8 +1197,8 @@ contains class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, allocatable :: itemp(:) - integer :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: info call a%psb_s_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) diff --git a/base/modules/psb_s_base_vect_mod.f90 b/base/modules/psb_s_base_vect_mod.f90 index a2435a3c8..ab337d9f6 100644 --- a/base/modules/psb_s_base_vect_mod.f90 +++ b/base/modules/psb_s_base_vect_mod.f90 @@ -74,6 +74,13 @@ module psb_s_base_vect_mod ! version is only a placeholder. ! procedure, pass(x) :: sync => s_base_sync + procedure, pass(x) :: is_host => s_base_is_host + procedure, pass(x) :: is_dev => s_base_is_dev + procedure, pass(x) :: is_sync => s_base_is_sync + procedure, pass(x) :: set_host => s_base_set_host + procedure, pass(x) :: set_dev => s_base_set_dev + procedure, pass(x) :: set_sync => s_base_set_sync + ! ! Basic info procedure, pass(x) :: get_nrows => s_base_get_nrows @@ -140,7 +147,7 @@ contains function constructor(x) result(this) real(psb_spk_) :: x(:) type(psb_s_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info this%v = x call this%asb(size(x),info) @@ -148,9 +155,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_s_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info call this%asb(n,info) @@ -164,7 +171,7 @@ contains use psb_realloc_mod real(psb_spk_), intent(in) :: this(:) class(psb_s_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) if (info /= 0) then @@ -180,9 +187,9 @@ contains ! subroutine s_base_bld_n(x,n) use psb_realloc_mod - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(n,x%v,info) call x%asb(n,info) @@ -193,9 +200,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_base_vect_type), intent(out) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_realloc(n,x%v,info) @@ -208,12 +215,12 @@ contains use psi_serial_mod implicit none class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (psb_errstatus_fatal()) return @@ -283,9 +290,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -300,7 +307,7 @@ contains use psb_realloc_mod implicit none class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) @@ -312,16 +319,59 @@ contains ! - ! The base version of SYNC does nothing, it's just + ! The base version of SYNC & friends does nothing, it's just ! a placeholder. ! subroutine s_base_sync(x) implicit none class(psb_s_base_vect_type), intent(inout) :: x - end subroutine s_base_sync + + subroutine s_base_set_host(x) + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + + end subroutine s_base_set_host + + subroutine s_base_set_dev(x) + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + + end subroutine s_base_set_dev + + subroutine s_base_set_sync(x) + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + + end subroutine s_base_set_sync + + function s_base_is_dev(x) result(res) + implicit none + class(psb_s_base_vect_type), intent(in) :: x + logical :: res + + res = .false. + end function s_base_is_dev + + function s_base_is_host(x) result(res) + implicit none + class(psb_s_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function s_base_is_host + + function s_base_is_sync(x) result(res) + implicit none + class(psb_s_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function s_base_is_sync + + ! ! Size info. ! @@ -329,7 +379,7 @@ contains function s_base_get_nrows(x) result(res) implicit none class(psb_s_base_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = size(x%v) @@ -355,7 +405,7 @@ contains function s_base_get_vect(x) result(res) class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (.not.allocated(x%v)) return call x%sync() @@ -374,7 +424,7 @@ contains class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info x%v = val end subroutine s_base_set_scal @@ -382,8 +432,8 @@ contains subroutine s_base_set_vect(x,val) class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val(:) - integer :: nr - integer :: info + integer(psb_ipk_) :: nr + integer(psb_ipk_) :: info if (allocated(x%v)) then nr = min(size(x%v),size(val)) @@ -400,7 +450,7 @@ contains function s_base_dot_v(n,x,y) result(res) implicit none class(psb_s_base_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: sdot @@ -428,7 +478,7 @@ contains implicit none class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: sdot @@ -442,11 +492,11 @@ contains subroutine s_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info select type(xx => x) type is (psb_s_base_vect_type) @@ -460,11 +510,11 @@ contains subroutine s_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_geaxpby(m,alpha,x,beta,y%v,info) @@ -485,8 +535,8 @@ contains implicit none class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 select type(xx => x) @@ -506,8 +556,8 @@ contains implicit none real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(y%v), size(x)) @@ -525,8 +575,8 @@ contains real(psb_spk_), intent(in) :: y(:) real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(z%v), size(x), size(y)) @@ -594,9 +644,9 @@ contains class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y class(psb_s_base_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ info = 0 @@ -622,8 +672,8 @@ contains real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y class(psb_s_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -638,8 +688,8 @@ contains real(psb_spk_), intent(in) :: y(:) class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -669,7 +719,7 @@ contains function s_base_nrm2(n,x) result(res) implicit none class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: snrm2 @@ -680,7 +730,7 @@ contains function s_base_amax(n,x) result(res) implicit none class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = maxval(abs(x%v(1:n))) @@ -690,7 +740,7 @@ contains function s_base_asum(n,x) result(res) implicit none class(psb_s_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = sum(abs(x%v(1:n))) @@ -704,7 +754,7 @@ contains subroutine s_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: alpha, beta, y(:) class(psb_s_base_vect_type) :: x @@ -717,7 +767,7 @@ contains ! subroutine s_base_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: y(:) class(psb_s_base_vect_type) :: x @@ -733,12 +783,13 @@ contains subroutine s_base_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:) class(psb_s_base_vect_type) :: y call y%sync() call psi_sct(n,idx,x,beta,y%v) + call y%set_host() end subroutine s_base_sctb diff --git a/base/modules/psb_s_comm_mod.f90 b/base/modules/psb_s_comm_mod.f90 index 8ecdd3c30..e9f7897e4 100644 --- a/base/modules/psb_s_comm_mod.f90 +++ b/base/modules/psb_s_comm_mod.f90 @@ -36,26 +36,26 @@ module psb_s_comm_mod use psb_descriptor_type real(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode end subroutine psb_sovrlm subroutine psb_sovrlv(x,desc_a,info,work,update,mode) use psb_descriptor_type real(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_sovrlv subroutine psb_sovrl_vect(x,desc_a,info,work,update,mode) use psb_descriptor_type use psb_s_vect_mod type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_sovrl_vect end interface @@ -64,20 +64,20 @@ module psb_s_comm_mod use psb_descriptor_type real(psb_spk_), intent(inout),target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran end subroutine psb_shalom subroutine psb_shalov(x,desc_a,info,alpha,work,tran,mode,data) use psb_descriptor_type real(psb_spk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_shalov subroutine psb_shalo_vect(x,desc_a,info,alpha,work,tran,mode,data) @@ -85,10 +85,10 @@ module psb_s_comm_mod use psb_s_vect_mod type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional :: alpha real(psb_spk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_shalo_vect end interface @@ -100,16 +100,16 @@ module psb_s_comm_mod real(psb_spk_), intent(out) :: locx(:,:) real(psb_spk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_sscatterm subroutine psb_sscatterv(globx, locx, desc_a, info, root) use psb_descriptor_type real(psb_spk_), intent(out) :: locx(:) real(psb_spk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_sscatterv end interface @@ -121,8 +121,8 @@ module psb_s_comm_mod type(psb_sspmat_type), intent(inout) :: loca type(psb_sspmat_type), intent(out) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root,dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root,dupl logical, intent(in), optional :: keepnum,keeploc end subroutine psb_ssp_allgather subroutine psb_sgatherm(globx, locx, desc_a, info, root) @@ -130,16 +130,16 @@ module psb_s_comm_mod real(psb_spk_), intent(in) :: locx(:,:) real(psb_spk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_sgatherm subroutine psb_sgatherv(globx, locx, desc_a, info, root) use psb_descriptor_type real(psb_spk_), intent(in) :: locx(:) real(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_sgatherv subroutine psb_sgather_vect(globx, locx, desc_a, info, root) use psb_descriptor_type @@ -147,8 +147,8 @@ module psb_s_comm_mod type(psb_s_vect_type), intent(inout) :: locx real(psb_spk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_sgather_vect end interface diff --git a/base/modules/psb_s_csc_mat_mod.f90 b/base/modules/psb_s_csc_mat_mod.f90 index fcc72c80e..8c5a2e30e 100644 --- a/base/modules/psb_s_csc_mat_mod.f90 +++ b/base/modules/psb_s_csc_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_s_csc_mat_mod type, extends(psb_s_base_sparse_mat) :: psb_s_csc_sparse_mat - integer, allocatable :: icp(:), ia(:) + integer(psb_ipk_), allocatable :: icp(:), ia(:) real(psb_spk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_reallocate_nz(nz,a) - import :: psb_s_csc_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_s_csc_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_reallocate_nz end interface interface subroutine psb_s_csc_reinit(a,clear) - import :: psb_s_csc_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csc_reinit @@ -116,115 +116,115 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_trim(a) - import :: psb_s_csc_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_trim end interface interface subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) - import :: psb_s_csc_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_s_csc_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_s_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_csc_allocate_mnnz end interface interface subroutine psb_s_csc_mold(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_mold end interface interface subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) - import :: psb_s_csc_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_s_csc_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_csc_print end interface interface subroutine psb_s_cp_csc_to_coo(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_csc_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_csc_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_to_coo end interface interface subroutine psb_s_cp_csc_from_coo(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_from_coo end interface interface subroutine psb_s_cp_csc_to_fmt(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_to_fmt end interface interface subroutine psb_s_cp_csc_from_fmt(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_from_fmt end interface interface subroutine psb_s_mv_csc_to_coo(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_to_coo end interface interface subroutine psb_s_mv_csc_from_coo(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_from_coo end interface interface subroutine psb_s_mv_csc_to_fmt(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_to_fmt end interface interface subroutine psb_s_mv_csc_from_fmt(a,b,info) - import :: psb_s_csc_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_s_base_sparse_mat class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_from_fmt end interface interface subroutine psb_s_csc_cp_from(a,b) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(in) :: b end subroutine psb_s_csc_cp_from @@ -232,7 +232,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_mv_from(a,b) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(inout) :: b end subroutine psb_s_csc_mv_from @@ -241,28 +241,28 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_s_csc_csput end interface interface subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csc_csgetptn end interface @@ -270,16 +270,16 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csc_csgetrow end interface @@ -287,52 +287,52 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_s_csc_sparse_mat, psb_spk_, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_, psb_s_coo_sparse_mat class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csc_csgetblk end interface interface subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csc_cssv subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csc_cssm end interface interface subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csc_csmv subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csc_csmm end interface @@ -340,7 +340,7 @@ module psb_s_csc_mat_mod interface function psb_s_csc_maxval(a) result(res) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csc_maxval @@ -348,7 +348,7 @@ module psb_s_csc_mat_mod interface function psb_s_csc_csnmi(a) result(res) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csc_csnmi @@ -356,7 +356,7 @@ module psb_s_csc_mat_mod interface function psb_s_csc_csnm1(a) result(res) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csc_csnm1 @@ -364,7 +364,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_rowsum(d,a) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_rowsum @@ -372,7 +372,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_arwsum(d,a) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_arwsum @@ -380,7 +380,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_colsum(d,a) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_colsum @@ -388,7 +388,7 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_aclsum(d,a) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_aclsum @@ -396,28 +396,28 @@ module psb_s_csc_mat_mod interface subroutine psb_s_csc_get_diag(a,d,info) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_get_diag end interface interface subroutine psb_s_csc_scal(d,a,info) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_scal end interface interface subroutine psb_s_csc_scals(d,a,info) - import :: psb_s_csc_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_scals end interface @@ -457,14 +457,14 @@ contains function s_csc_get_nzeros(a) result(res) implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function s_csc_get_nzeros function s_csc_get_size(a) result(res) implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -492,8 +492,8 @@ contains implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_s_csr_mat_mod.f90 b/base/modules/psb_s_csr_mat_mod.f90 index 8833ca913..f302d6129 100644 --- a/base/modules/psb_s_csr_mat_mod.f90 +++ b/base/modules/psb_s_csr_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_s_csr_mat_mod type, extends(psb_s_base_sparse_mat) :: psb_s_csr_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) real(psb_spk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_reallocate_nz(nz,a) - import :: psb_s_csr_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_s_csr_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_s_csr_sparse_mat), intent(inout) :: a end subroutine psb_s_csr_reallocate_nz end interface interface subroutine psb_s_csr_reinit(a,clear) - import :: psb_s_csr_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csr_reinit @@ -116,115 +116,115 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_trim(a) - import :: psb_s_csr_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a end subroutine psb_s_csr_trim end interface interface subroutine psb_s_csr_mold(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_base_sparse_mat, psb_long_int_k_ class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_mold end interface interface subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) - import :: psb_s_csr_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_s_csr_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_s_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_csr_allocate_mnnz end interface interface subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) - import :: psb_s_csr_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_s_csr_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_csr_print end interface interface subroutine psb_s_cp_csr_to_coo(a,b,info) - import :: psb_s_coo_sparse_mat, psb_s_csr_sparse_mat + import :: psb_ipk_, psb_s_coo_sparse_mat, psb_s_csr_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_to_coo end interface interface subroutine psb_s_cp_csr_from_coo(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_from_coo end interface interface subroutine psb_s_cp_csr_to_fmt(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_to_fmt end interface interface subroutine psb_s_cp_csr_from_fmt(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_from_fmt end interface interface subroutine psb_s_mv_csr_to_coo(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_to_coo end interface interface subroutine psb_s_mv_csr_from_coo(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_from_coo end interface interface subroutine psb_s_mv_csr_to_fmt(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_to_fmt end interface interface subroutine psb_s_mv_csr_from_fmt(a,b,info) - import :: psb_s_csr_sparse_mat, psb_s_base_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_s_base_sparse_mat class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_from_fmt end interface interface subroutine psb_s_csr_cp_from(a,b) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(in) :: b end subroutine psb_s_csr_cp_from @@ -232,7 +232,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_mv_from(a,b) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(inout) :: b end subroutine psb_s_csr_mv_from @@ -241,28 +241,28 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_s_csr_csput end interface interface subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csr_csgetptn end interface @@ -270,16 +270,16 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csr_csgetrow end interface @@ -287,52 +287,52 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_s_csr_sparse_mat, psb_spk_, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_, psb_s_coo_sparse_mat class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csr_csgetblk end interface interface subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csr_cssv subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csr_cssm end interface interface subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csr_csmv subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csr_csmm end interface @@ -340,7 +340,7 @@ module psb_s_csr_mat_mod interface function psb_s_csr_maxval(a) result(res) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_maxval @@ -348,7 +348,7 @@ module psb_s_csr_mat_mod interface function psb_s_csr_csnmi(a) result(res) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_csnmi @@ -356,7 +356,7 @@ module psb_s_csr_mat_mod interface function psb_s_csr_csnm1(a) result(res) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_csnm1 @@ -364,7 +364,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_rowsum(d,a) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_rowsum @@ -372,7 +372,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_arwsum(d,a) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_arwsum @@ -380,7 +380,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_colsum(d,a) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_colsum @@ -388,7 +388,7 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_aclsum(d,a) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_aclsum @@ -396,28 +396,28 @@ module psb_s_csr_mat_mod interface subroutine psb_s_csr_get_diag(a,d,info) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_get_diag end interface interface subroutine psb_s_csr_scal(d,a,info) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_scal end interface interface subroutine psb_s_csr_scals(d,a,info) - import :: psb_s_csr_sparse_mat, psb_spk_ + import :: psb_ipk_, psb_s_csr_sparse_mat, psb_spk_ class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_scals end interface @@ -458,14 +458,14 @@ contains function s_csr_get_nzeros(a) result(res) implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function s_csr_get_nzeros function s_csr_get_size(a) result(res) implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -493,8 +493,8 @@ contains implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_s_linmap_mod.f90 b/base/modules/psb_s_linmap_mod.f90 index 9fb6b1870..86b2ad70b 100644 --- a/base/modules/psb_s_linmap_mod.f90 +++ b/base/modules/psb_s_linmap_mod.f90 @@ -55,24 +55,24 @@ module psb_s_linmap_mod interface psb_map_X2Y subroutine psb_s_map_X2Y(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_slinmap_type + import :: psb_ipk_, psb_slinmap_type implicit none type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) end subroutine psb_s_map_X2Y subroutine psb_s_map_X2Y_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_s_vect_mod - import :: psb_slinmap_type + import :: psb_ipk_, psb_slinmap_type implicit none type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta type(psb_s_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) end subroutine psb_s_map_X2Y_vect end interface @@ -80,24 +80,24 @@ module psb_s_linmap_mod interface psb_map_Y2X subroutine psb_s_map_Y2X(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_slinmap_type + import :: psb_ipk_, psb_slinmap_type implicit none type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) end subroutine psb_s_map_Y2X subroutine psb_s_map_Y2X_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_s_vect_mod - import :: psb_slinmap_type + import :: psb_ipk_, psb_slinmap_type implicit none type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta type(psb_s_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) end subroutine psb_s_map_Y2X_vect end interface @@ -118,13 +118,13 @@ module psb_s_linmap_mod interface psb_linmap function psb_s_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) use psb_s_mat_mod, only : psb_sspmat_type - import :: psb_slinmap_type, psb_desc_type + import :: psb_ipk_, psb_slinmap_type, psb_desc_type implicit none type(psb_slinmap_type) :: psb_s_linmap type(psb_desc_type), target :: desc_X, desc_Y type(psb_sspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) end function psb_s_linmap end interface @@ -166,7 +166,7 @@ contains use psb_s_mat_mod implicit none type(psb_slinmap_type), intent(inout) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: type class(psb_s_base_sparse_mat), intent(in), optional :: mold @@ -183,8 +183,8 @@ contains type(psb_slinmap_type), intent(out) :: out_map type(psb_desc_type), target :: desc_X, desc_Y type(psb_sspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr) end subroutine psb_s_linmap_sub @@ -194,7 +194,7 @@ contains use psb_mat_mod, only : psb_move_alloc implicit none type(psb_slinmap_type) :: mapin,mapout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_move_alloc(mapin%psb_base_linmap_type, & & mapout%psb_base_linmap_type,info) @@ -207,7 +207,7 @@ contains use psb_descriptor_type implicit none class(psb_slinmap_type) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call map%psb_base_linmap_type%free(info) diff --git a/base/modules/psb_s_mat_mod.f90 b/base/modules/psb_s_mat_mod.f90 index 1a5e589d3..b2a7299fd 100644 --- a/base/modules/psb_s_mat_mod.f90 +++ b/base/modules/psb_s_mat_mod.f90 @@ -205,59 +205,59 @@ module psb_s_mat_mod interface subroutine psb_s_set_nrows(m,a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m end subroutine psb_s_set_nrows end interface interface subroutine psb_s_set_ncols(n,a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_s_set_ncols end interface interface subroutine psb_s_set_dupl(n,a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_s_set_dupl end interface interface subroutine psb_s_set_null(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_null end interface interface subroutine psb_s_set_bld(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_bld end interface interface subroutine psb_s_set_upd(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_upd end interface interface subroutine psb_s_set_asb(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_asb end interface interface subroutine psb_s_set_sorted(a,val) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_sorted @@ -265,7 +265,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_triangle(a,val) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_triangle @@ -273,7 +273,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_unit(a,val) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_unit @@ -281,7 +281,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_lower(a,val) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_lower @@ -289,7 +289,7 @@ module psb_s_mat_mod interface subroutine psb_s_set_upper(a,val) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_upper @@ -297,93 +297,93 @@ module psb_s_mat_mod interface subroutine psb_s_sparse_print(iout,a,iv,head,ivr,ivc) - import :: psb_sspmat_type - integer, intent(in) :: iout + import :: psb_ipk_, psb_sspmat_type + integer(psb_ipk_), intent(in) :: iout class(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_sparse_print end interface interface subroutine psb_s_n_sparse_print(fname,a,iv,head,ivr,ivc) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type character(len=*), intent(in) :: fname class(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_n_sparse_print end interface interface subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_s_get_neigh end interface interface subroutine psb_s_csall(nr,nc,a,info,nz) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_csall end interface interface subroutine psb_s_reallocate_nz(nz,a) - import :: psb_sspmat_type - integer, intent(in) :: nz + import :: psb_ipk_, psb_sspmat_type + integer(psb_ipk_), intent(in) :: nz class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_reallocate_nz end interface interface subroutine psb_s_free(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_free end interface interface subroutine psb_s_trim(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_trim end interface interface subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_s_csput end interface interface subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetptn end interface @@ -391,16 +391,16 @@ module psb_s_mat_mod interface subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetrow end interface @@ -408,14 +408,14 @@ module psb_s_mat_mod interface subroutine psb_s_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetblk end interface @@ -423,11 +423,11 @@ module psb_s_mat_mod interface subroutine psb_s_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csclip end interface @@ -435,18 +435,18 @@ module psb_s_mat_mod interface subroutine psb_s_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_sspmat_type, psb_spk_, psb_s_coo_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_coo_sparse_mat class(psb_sspmat_type), intent(in) :: a type(psb_s_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_s_b_csclip end interface interface subroutine psb_s_mold(a,b) - import :: psb_sspmat_type, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_s_mold @@ -454,14 +454,14 @@ module psb_s_mat_mod interface subroutine psb_s_transp_1mat(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_transp_1mat end interface interface subroutine psb_s_transp_2mat(a,b) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b end subroutine psb_s_transp_2mat @@ -469,14 +469,14 @@ module psb_s_mat_mod interface subroutine psb_s_transc_1mat(a) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_transc_1mat end interface interface subroutine psb_s_transc_2mat(a,b) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b end subroutine psb_s_transc_2mat @@ -484,7 +484,7 @@ module psb_s_mat_mod interface subroutine psb_s_reinit(a,clear) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_reinit @@ -507,11 +507,11 @@ module psb_s_mat_mod ! interface subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_s_cscnv @@ -520,10 +520,10 @@ module psb_s_mat_mod interface subroutine psb_s_cscnv_ip(a,iinfo,type,mold,dupl) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: iinfo - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: iinfo + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_s_cscnv_ip @@ -532,11 +532,11 @@ module psb_s_mat_mod interface subroutine psb_s_cscnv_base(a,b,info,dupl) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_s_cscnv_base end interface @@ -546,18 +546,18 @@ module psb_s_mat_mod ! interface subroutine psb_s_clip_d(a,b,info) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_s_clip_d end interface interface subroutine psb_s_clip_d_ip(a,info) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_s_clip_d_ip end interface @@ -567,7 +567,7 @@ module psb_s_mat_mod ! interface subroutine psb_s_mv_from(a,b) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_from @@ -575,7 +575,7 @@ module psb_s_mat_mod interface subroutine psb_s_cp_from(a,b) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(in) :: b end subroutine psb_s_cp_from @@ -583,7 +583,7 @@ module psb_s_mat_mod interface subroutine psb_s_mv_to(a,b) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(out) :: b end subroutine psb_s_mv_to @@ -591,7 +591,7 @@ module psb_s_mat_mod interface subroutine psb_s_cp_to(a,b) - import :: psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b end subroutine psb_s_cp_to @@ -602,19 +602,19 @@ module psb_s_mat_mod ! interface psb_move_alloc subroutine psb_sspmat_type_move(a,b,info) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmat_type_move end interface interface subroutine psb_sspmat_clone(a,b,info) - import :: psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmat_clone end interface @@ -636,60 +636,60 @@ module psb_s_mat_mod interface psb_csmm subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csmm subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csmv subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_s_vect_mod, only : psb_s_vect_type - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csmv_vect end interface interface psb_cssm subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_cssm subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_cssv subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_s_vect_mod, only : psb_s_vect_type - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_s_vect_type), optional, intent(inout) :: d end subroutine psb_s_cssv_vect @@ -697,7 +697,7 @@ module psb_s_mat_mod interface function psb_s_maxval(a) result(res) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_s_maxval @@ -705,7 +705,7 @@ module psb_s_mat_mod interface function psb_s_csnmi(a) result(res) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_s_csnmi @@ -713,7 +713,7 @@ module psb_s_mat_mod interface function psb_s_csnm1(a) result(res) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_s_csnm1 @@ -721,62 +721,62 @@ module psb_s_mat_mod interface subroutine psb_s_rowsum(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_rowsum end interface interface subroutine psb_s_arwsum(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_arwsum end interface interface subroutine psb_s_colsum(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_colsum end interface interface subroutine psb_s_aclsum(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_aclsum end interface interface subroutine psb_s_get_diag(a,d,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_get_diag end interface interface psb_scal subroutine psb_s_scal(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_scal subroutine psb_s_scals(d,a,info) - import :: psb_sspmat_type, psb_spk_ + import :: psb_ipk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_scals end interface @@ -827,7 +827,7 @@ contains function psb_s_get_dupl(a) result(res) implicit none class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_dupl() @@ -839,7 +839,7 @@ contains function psb_s_get_nrows(a) result(res) implicit none class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_nrows() @@ -852,7 +852,7 @@ contains function psb_s_get_ncols(a) result(res) implicit none class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_ncols() @@ -984,7 +984,7 @@ contains function psb_s_get_nzeros(a) result(res) implicit none class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(a%a)) then @@ -997,7 +997,7 @@ contains implicit none class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -1010,9 +1010,9 @@ contains function psb_s_get_nz_row(idx,a) result(res) implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx class(psb_sspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_s_psblas_mod.f90 b/base/modules/psb_s_psblas_mod.f90 index ab196d684..5a638de41 100644 --- a/base/modules/psb_s_psblas_mod.f90 +++ b/base/modules/psb_s_psblas_mod.f90 @@ -30,274 +30,293 @@ !!$ !!$ module psb_s_psblas_mod + use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_s_vect_mod, only : psb_s_vect_type + use psb_s_mat_mod, only : psb_sspmat_type interface psb_gedot function psb_sdot_vect(x, y, desc_a,info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type - real(psb_spk_) :: res + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: res type(psb_s_vect_type), intent(inout) :: x, y - type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_sdot_vect function psb_sdotv(x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - real(psb_spk_) :: psb_sdotv - real(psb_spk_), intent(in) :: x(:), y(:) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: psb_sdotv + real(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_sdotv function psb_sdot(x, y, desc_a, info, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - real(psb_spk_) :: psb_sdot - real(psb_spk_), intent(in) :: x(:,:), y(:,:) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: psb_sdot + real(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, optional, intent(in) :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx, jy + integer(psb_ipk_), intent(out) :: info end function psb_sdot end interface interface psb_gedots - subroutine psb_sdotvs(res,x, y, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + subroutine psb_sdotvs(res,x, y, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent(out) :: res real(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sdotvs - subroutine psb_smdots(res,x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + subroutine psb_smdots(res,x, y, desc_a,info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent(out) :: res(:) real(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_smdots end interface interface psb_geaxpby subroutine psb_saxpby_vect(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type type(psb_s_vect_type), intent (inout) :: x type(psb_s_vect_type), intent (inout) :: y - real(psb_spk_), intent (in) :: alpha, beta + real(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_saxpby_vect subroutine psb_saxpbyv(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_saxpbyv subroutine psb_saxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (inout) :: y(:,:) real(psb_spk_), intent (in) :: alpha, beta - type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent(in) :: n, jx, jy - integer, intent(out) :: info + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), intent(out) :: info end subroutine psb_saxpby end interface interface psb_geamax function psb_samax(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_samax real(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_samax function psb_samaxv(x, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_samaxv real(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_samaxv function psb_samax_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_samax_vect end interface interface psb_geamaxs subroutine psb_samaxvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (out) :: res - real(psb_spk_), intent (in) :: x(:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + real(psb_spk_), intent (in) :: x(:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end subroutine psb_samaxvs subroutine psb_smamaxs(res,x,desc_a,info,jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - real(psb_spk_), intent (out) :: res(:) - real(psb_spk_), intent (in) :: x(:,:) - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_), intent (out) :: res(:) + real(psb_spk_), intent (in) :: x(:,:) + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx end subroutine psb_smamaxs end interface interface psb_geasum function psb_sasum_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_sasum_vect function psb_sasum(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_sasum real(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_sasum function psb_sasumv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_sasumv real(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_sasumv end interface interface psb_geasums subroutine psb_sasumvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (out) :: res real(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sasumvs subroutine psb_smasum(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (out) :: res(:) real(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_smasum end interface interface psb_genrm2 function psb_snrm2(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_snrm2 real(psb_spk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_snrm2 function psb_snrm2v(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) psb_snrm2v real(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_snrm2v function psb_snrm2_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_snrm2_vect end interface interface psb_genrm2s - subroutine psb_snrm2vs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + subroutine psb_snrm2vs(res,x,desc_a,info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent (out) :: res real(psb_spk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_snrm2vs end interface interface psb_spnrmi function psb_snrmi(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - real(psb_spk_) :: psb_snrmi + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: psb_snrmi type(psb_sspmat_type), intent (in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info end function psb_snrmi end interface interface psb_spnrm1 function psb_sspnrm1(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: psb_sspnrm1 type(psb_sspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_sspnrm1 end interface interface psb_spmm subroutine psb_sspmm(alpha, a, x, beta, y, desc_a, info,& &trans, k, jx, jy,work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_sspmat_type), intent(in) :: a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(inout), target :: x(:,:) real(psb_spk_), intent(inout), target :: y(:,:) real(psb_spk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_spk_), optional, intent(inout),target :: work(:) - integer, optional, intent(in) :: k, jx, jy + integer(psb_ipk_), optional, intent(in) :: k, jx, jy logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmm subroutine psb_sspmv(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_sspmat_type), intent(in) :: a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(inout), target :: x(:) real(psb_spk_), intent(inout), target :: y(:) real(psb_spk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_spk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmv subroutine psb_sspmv_vect(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type - use psb_mat_mod, only : psb_sspmat_type - type(psb_sspmat_type), intent(in) :: a - type(psb_s_vect_type), intent(inout) :: x - type(psb_s_vect_type), intent(inout) :: y - real(psb_spk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_sspmat_type), intent(in) :: a + type(psb_s_vect_type), intent(inout) :: x + type(psb_s_vect_type), intent(inout) :: y + real(psb_spk_), intent(in) :: alpha, beta + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans real(psb_spk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmv_vect end interface @@ -305,52 +324,51 @@ module psb_s_psblas_mod subroutine psb_sspsm(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_sspmat_type), intent(in) :: t + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_sspmat_type), intent(in) :: t real(psb_spk_), intent(in), target :: x(:,:) real(psb_spk_), intent(inout), target :: y(:,:) real(psb_spk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: n, jx, jy - integer, optional, intent(in) :: choice - real(psb_spk_), optional, intent(in),target :: diag(:) - real(psb_spk_), optional, intent(inout),target :: work(:) - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans, scale + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), optional, intent(in) :: choice + real(psb_spk_), optional, intent(in), target :: diag(:) + real(psb_spk_), optional, intent(inout), target :: work(:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspsm subroutine psb_sspsv(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_sspmat_type), intent(in) :: t + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_sspmat_type), intent(in) :: t real(psb_spk_), intent(in), target :: x(:) real(psb_spk_), intent(inout), target :: y(:) real(psb_spk_), intent(in) :: alpha, beta - type(psb_desc_type), intent(in) :: desc_a - character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + type(psb_desc_type), intent(in) :: desc_a + character, optional, intent(in) :: trans, scale + integer(psb_ipk_), optional, intent(in) :: choice real(psb_spk_), optional, intent(in), target :: diag(:) real(psb_spk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspsv subroutine psb_sspsv_vect(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod, only : psb_s_vect_type - use psb_mat_mod, only : psb_sspmat_type + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type type(psb_sspmat_type), intent(inout) :: t type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - real(psb_spk_), intent(in) :: alpha, beta + real(psb_spk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice type(psb_s_vect_type), intent(inout), optional :: diag real(psb_spk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspsv_vect end interface diff --git a/base/modules/psb_s_tools_mod.f90 b/base/modules/psb_s_tools_mod.f90 index 18f967dcb..599ac14fd 100644 --- a/base/modules/psb_s_tools_mod.f90 +++ b/base/modules/psb_s_tools_mod.f90 @@ -30,71 +30,85 @@ !!$ !!$ Module psb_s_tools_mod - + use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_s_vect_mod, only : psb_s_base_vect_type, psb_s_vect_type + use psb_s_mat_mod, only : psb_sspmat_type, psb_s_base_sparse_mat interface psb_geall subroutine psb_salloc(x, desc_a, info, n, lb) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat implicit none - real(psb_spk_), allocatable, intent(out) :: x(:,:) + real(psb_spk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_salloc subroutine psb_sallocv(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - real(psb_spk_), allocatable, intent(out) :: x(:) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + real(psb_spk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_sallocv subroutine psb_salloc_vect(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_s_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_salloc_vect subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_s_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_salloc_vect_r2 end interface interface psb_geasb subroutine psb_sasb(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sasb subroutine psb_sasbv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sasbv subroutine psb_sasb_vect(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_sasb_vect subroutine psb_sasb_vect_r2(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_sasb_vect_r2 @@ -103,126 +117,141 @@ Module psb_s_tools_mod interface psb_sphalo Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - Type(psb_sspmat_type),Intent(in) :: a - Type(psb_sspmat_type),Intent(inout) :: blk - Type(psb_desc_type),Intent(in),target :: desc_a - integer, intent(out) :: info - logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale - character(len=5), optional :: outfmt - integer, intent(in), optional :: data + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + Type(psb_sspmat_type),Intent(in) :: a + Type(psb_sspmat_type),Intent(inout) :: blk + Type(psb_desc_type),Intent(in), target :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale + character(len=5), optional :: outfmt + integer(psb_ipk_), intent(in), optional :: data end Subroutine psb_ssphalo end interface - interface psb_gefree subroutine psb_sfree(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat real(psb_spk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sfree subroutine psb_sfreev(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat real(psb_spk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sfreev subroutine psb_sfree_vect(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sfree_vect subroutine psb_sfree_vect_r2(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sfree_vect_r2 end interface interface psb_geins - subroutine psb_sinsi(m,irw,val, x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: m - type(psb_desc_type), intent(in) :: desc_a - real(psb_spk_),intent(inout) :: x(:,:) - integer, intent(in) :: irw(:) - real(psb_spk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + subroutine psb_sinsi(m,irw,val, x, desc_a,info,dupl) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + integer(psb_ipk_), intent(in) :: m + type(psb_desc_type), intent(in) :: desc_a + real(psb_spk_),intent(inout) :: x(:,:) + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_spk_), intent(in) :: val(:,:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_sinsi - subroutine psb_sinsvi(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: m - type(psb_desc_type), intent(in) :: desc_a - real(psb_spk_),intent(inout) :: x(:) - integer, intent(in) :: irw(:) - real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + subroutine psb_sinsvi(m, irw,val, x,desc_a,info,dupl) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + integer(psb_ipk_), intent(in) :: m + type(psb_desc_type), intent(in) :: desc_a + real(psb_spk_),intent(inout) :: x(:) + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_spk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_sinsvi subroutine psb_sins_vect(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x - integer, intent(in) :: irw(:) - real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_spk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_sins_vect subroutine psb_sins_vect_r2(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x(:) - integer, intent(in) :: irw(:) - real(psb_spk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(in) :: irw(:) + real(psb_spk_), intent(in) :: val(:,:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_sins_vect_r2 end interface interface psb_cdbldext Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info,extype) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - Use psb_mat_mod, only : psb_sspmat_type - integer, intent(in) :: novr - Type(psb_sspmat_type), Intent(in) :: a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + integer(psb_ipk_), intent(in) :: novr + Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype end Subroutine psb_scdbldext end interface interface psb_spall subroutine psb_sspalloc(a, desc_a, info, nnz) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz end subroutine psb_sspalloc end interface interface psb_spasb - subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_s_base_sparse_mat, psb_sspmat_type - type(psb_sspmat_type), intent (inout) :: a + subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl,mold) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_sspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_sspasb @@ -230,49 +259,52 @@ Module psb_s_tools_mod interface psb_spfree subroutine psb_sspfree(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_desc_type), intent(in) :: desc_a - type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a + type(psb_sspmat_type), intent(inout) ::a + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspfree end interface interface psb_spins subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_desc_type), intent(inout) :: desc_a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_desc_type), intent(inout) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) - real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - logical, intent(in), optional :: rebuild + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + real(psb_spk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: rebuild end subroutine psb_sspins subroutine psb_sspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_desc_type), intent(in) :: desc_ar - type(psb_desc_type), intent(inout) :: desc_ac + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_ar + type(psb_desc_type), intent(inout) :: desc_ac type(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) - real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + real(psb_spk_), intent(in) :: val(:) + integer(psb_ipk_), intent(out) :: info end subroutine psb_sspins_2desc end interface interface psb_sprn subroutine psb_ssprn(a, desc_a,info,clear) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_mat_mod, only : psb_sspmat_type - type(psb_desc_type), intent(in) :: desc_a + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_base_vect_type, psb_s_vect_type, & + & psb_sspmat_type, psb_s_base_sparse_mat + type(psb_desc_type), intent(in) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - logical, intent(in), optional :: clear - end subroutine psb_ssprn + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: clear + end subroutine psb_ssprn end interface - end module psb_s_tools_mod diff --git a/base/modules/psb_s_vect_mod.f90 b/base/modules/psb_s_vect_mod.f90 index 0cfc8cc04..baf22d601 100644 --- a/base/modules/psb_s_vect_mod.f90 +++ b/base/modules/psb_s_vect_mod.f90 @@ -97,7 +97,7 @@ contains real(psb_spk_), intent(in) :: invect(:) class(psb_s_vect_type), intent(out) :: x class(psb_s_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -111,10 +111,10 @@ contains subroutine s_vect_bld_n(x,n,mold) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(out) :: x class(psb_s_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -128,7 +128,7 @@ contains function s_vect_get_vect(x) result(res) class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) then res = x%v%get_vect() @@ -139,7 +139,7 @@ contains class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine s_vect_set_scal @@ -148,7 +148,7 @@ contains class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine s_vect_set_vect @@ -157,7 +157,7 @@ contains function constructor(x) result(this) real(psb_spk_) :: x(:) type(psb_s_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_s_base_vect_type :: this%v, stat=info) @@ -169,9 +169,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_s_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_s_base_vect_type :: this%v, stat=info) call this%asb(n,info) @@ -181,7 +181,7 @@ contains function s_vect_get_nrows(x) result(res) implicit none class(psb_s_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = x%v%get_nrows() end function s_vect_get_nrows @@ -197,7 +197,7 @@ contains function s_vect_dot_v(n,x,y) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = szero @@ -210,7 +210,7 @@ contains implicit none class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res res = szero @@ -222,11 +222,11 @@ contains subroutine s_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) @@ -239,11 +239,11 @@ contains subroutine s_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(y%v)) & & call y%v%axpby(m,alpha,x,beta,info) @@ -256,8 +256,8 @@ contains implicit none class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v)) & @@ -270,8 +270,8 @@ contains implicit none real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -288,8 +288,8 @@ contains real(psb_spk_), intent(in) :: y(:) real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v)) & @@ -304,10 +304,10 @@ contains class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y class(psb_s_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v).and.& @@ -323,8 +323,8 @@ contains real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y class(psb_s_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v).and.allocated(y%v)) & @@ -339,8 +339,8 @@ contains real(psb_spk_), intent(in) :: y(:) class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -363,7 +363,7 @@ contains function s_vect_nrm2(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -377,7 +377,7 @@ contains function s_vect_amax(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -391,7 +391,7 @@ contains function s_vect_asum(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res if (allocated(x%v)) then @@ -405,10 +405,10 @@ contains subroutine s_vect_all(n, x, info, mold) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(out) :: x class(psb_s_base_vect_type), intent(in), optional :: mold - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -436,9 +436,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v)) & & call x%v%asb(n,info) @@ -456,7 +456,7 @@ contains subroutine s_vect_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: alpha, beta, y(:) class(psb_s_vect_type) :: x @@ -467,7 +467,7 @@ contains subroutine s_vect_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: y(:) class(psb_s_vect_type) :: x @@ -478,7 +478,7 @@ contains subroutine s_vect_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:) class(psb_s_vect_type) :: y @@ -492,7 +492,7 @@ contains use psb_realloc_mod implicit none class(psb_s_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) then @@ -506,12 +506,12 @@ contains use psi_serial_mod implicit none class(psb_s_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (.not.allocated(x%v)) then @@ -529,7 +529,7 @@ contains class(psb_s_base_vect_type), intent(in) :: mold class(psb_s_base_vect_type), allocatable :: tmp real(psb_spk_), allocatable :: invect(:) - integer :: info + integer(psb_ipk_) :: info allocate(tmp,stat=info,mold=mold) call x%v%sync() diff --git a/base/modules/psb_serial_mod.f90 b/base/modules/psb_serial_mod.f90 index bc14f4bca..046fac81e 100644 --- a/base/modules/psb_serial_mod.f90 +++ b/base/modules/psb_serial_mod.f90 @@ -44,107 +44,123 @@ module psb_serial_mod interface psb_symbmm subroutine psb_ssymbmm(a,b,c,info) use psb_mat_mod, only : psb_sspmat_type + import :: psb_ipk_ implicit none type(psb_sspmat_type), intent(in) :: a,b type(psb_sspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ssymbmm subroutine psb_sbase_symbmm(a,b,c,info) use psb_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sbase_symbmm subroutine psb_dsymbmm(a,b,c,info) use psb_mat_mod, only : psb_dspmat_type + import :: psb_ipk_ implicit none type(psb_dspmat_type), intent(in) :: a,b type(psb_dspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dsymbmm subroutine psb_dbase_symbmm(a,b,c,info) use psb_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dbase_symbmm subroutine psb_csymbmm(a,b,c,info) use psb_mat_mod, only : psb_cspmat_type + import :: psb_ipk_ implicit none type(psb_cspmat_type), intent(in) :: a,b type(psb_cspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_csymbmm subroutine psb_cbase_symbmm(a,b,c,info) use psb_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cbase_symbmm subroutine psb_zsymbmm(a,b,c,info) use psb_mat_mod, only : psb_zspmat_type + import :: psb_ipk_ implicit none type(psb_zspmat_type), intent(in) :: a,b type(psb_zspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zsymbmm subroutine psb_zbase_symbmm(a,b,c,info) use psb_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zbase_symbmm end interface psb_symbmm interface psb_numbmm subroutine psb_snumbmm(a,b,c) use psb_mat_mod, only : psb_sspmat_type + import :: psb_ipk_ implicit none type(psb_sspmat_type), intent(in) :: a,b type(psb_sspmat_type), intent(inout) :: c end subroutine psb_snumbmm subroutine psb_sbase_numbmm(a,b,c) use psb_mat_mod, only : psb_s_base_sparse_mat, psb_s_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(inout) :: c end subroutine psb_sbase_numbmm subroutine psb_dnumbmm(a,b,c) use psb_mat_mod, only : psb_dspmat_type + import :: psb_ipk_ implicit none type(psb_dspmat_type), intent(in) :: a,b type(psb_dspmat_type), intent(inout) :: c end subroutine psb_dnumbmm subroutine psb_dbase_numbmm(a,b,c) use psb_mat_mod, only : psb_d_base_sparse_mat, psb_d_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(inout) :: c end subroutine psb_dbase_numbmm subroutine psb_cnumbmm(a,b,c) use psb_mat_mod, only : psb_cspmat_type + import :: psb_ipk_ implicit none type(psb_cspmat_type), intent(in) :: a,b type(psb_cspmat_type), intent(inout) :: c end subroutine psb_cnumbmm subroutine psb_cbase_numbmm(a,b,c) use psb_mat_mod, only : psb_c_base_sparse_mat, psb_c_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(inout) :: c end subroutine psb_cbase_numbmm subroutine psb_znumbmm(a,b,c) use psb_mat_mod, only : psb_zspmat_type + import :: psb_ipk_ implicit none type(psb_zspmat_type), intent(in) :: a,b type(psb_zspmat_type), intent(inout) :: c end subroutine psb_znumbmm subroutine psb_zbase_numbmm(a,b,c) use psb_mat_mod, only : psb_z_base_sparse_mat, psb_z_csr_sparse_mat + import :: psb_ipk_ implicit none class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(inout) :: c @@ -154,73 +170,81 @@ module psb_serial_mod interface psb_rwextd subroutine psb_srwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_sspmat_type + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_sspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_sspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_srwextd subroutine psb_sbase_rwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_s_base_sparse_mat + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_s_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_sbase_rwextd subroutine psb_drwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_dspmat_type + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_dspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_dspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_drwextd subroutine psb_dbase_rwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_d_base_sparse_mat + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_d_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_dbase_rwextd subroutine psb_crwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_cspmat_type + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_cspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_cspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_crwextd subroutine psb_cbase_rwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_c_base_sparse_mat + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_c_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_cbase_rwextd subroutine psb_zrwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_zspmat_type + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_zspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_zspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_zrwextd subroutine psb_zbase_rwextd(nr,a,info,b,rowscale) use psb_mat_mod, only : psb_z_base_sparse_mat + import :: psb_ipk_ implicit none - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_z_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale end subroutine psb_zbase_rwextd @@ -229,98 +253,98 @@ module psb_serial_mod interface psb_geprt subroutine psb_sgeprtn2(fname,a,head) - use psb_const_mod, only : psb_spk_ + use psb_const_mod, only : psb_spk_, psb_ipk_ character(len=*), intent(in) :: fname real(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_sgeprtn2 subroutine psb_sgeprtn1(fname,a,head) - use psb_const_mod, only : psb_spk_ + use psb_const_mod, only : psb_spk_, psb_ipk_ character(len=*), intent(in) :: fname real(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_sgeprtn1 subroutine psb_sgeprt2(iout,a,head) - use psb_const_mod, only : psb_spk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_spk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout real(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_sgeprt2 subroutine psb_sgeprt1(iout,a,head) - use psb_const_mod, only : psb_spk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_spk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout real(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_sgeprt1 subroutine psb_dgeprtn2(fname,a,head) - use psb_const_mod, only : psb_dpk_ + use psb_const_mod, only : psb_dpk_, psb_ipk_ character(len=*), intent(in) :: fname real(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_dgeprtn2 subroutine psb_dgeprtn1(fname,a,head) - use psb_const_mod, only : psb_dpk_ + use psb_const_mod, only : psb_dpk_, psb_ipk_ character(len=*), intent(in) :: fname real(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_dgeprtn1 subroutine psb_dgeprt2(iout,a,head) - use psb_const_mod, only : psb_dpk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_dpk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout real(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_dgeprt2 subroutine psb_dgeprt1(iout,a,head) - use psb_const_mod, only : psb_dpk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_dpk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout real(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_dgeprt1 subroutine psb_cgeprtn2(fname,a,head) - use psb_const_mod, only : psb_spk_ + use psb_const_mod, only : psb_spk_, psb_ipk_ character(len=*), intent(in) :: fname complex(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_cgeprtn2 subroutine psb_cgeprtn1(fname,a,head) - use psb_const_mod, only : psb_spk_ + use psb_const_mod, only : psb_spk_, psb_ipk_ character(len=*), intent(in) :: fname complex(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_cgeprtn1 subroutine psb_cgeprt2(iout,a,head) - use psb_const_mod, only : psb_spk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_spk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout complex(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_cgeprt2 subroutine psb_cgeprt1(iout,a,head) - use psb_const_mod, only : psb_spk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_spk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout complex(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_cgeprt1 subroutine psb_zgeprtn2(fname,a,head) - use psb_const_mod, only : psb_dpk_ + use psb_const_mod, only : psb_dpk_, psb_ipk_ character(len=*), intent(in) :: fname complex(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_zgeprtn2 subroutine psb_zgeprtn1(fname,a,head) - use psb_const_mod, only : psb_dpk_ + use psb_const_mod, only : psb_dpk_, psb_ipk_ character(len=*), intent(in) :: fname complex(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_zgeprtn1 subroutine psb_zgeprt2(iout,a,head) - use psb_const_mod, only : psb_dpk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_dpk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout complex(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head end subroutine psb_zgeprt2 subroutine psb_zgeprt1(iout,a,head) - use psb_const_mod, only : psb_dpk_ - integer, intent(in) :: iout + use psb_const_mod, only : psb_dpk_, psb_ipk_ + integer(psb_ipk_), intent(in) :: iout complex(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head end subroutine psb_zgeprt1 @@ -333,33 +357,33 @@ module psb_serial_mod interface psb_spdot_srtd function psb_s_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) real(psb_spk_), intent(in) :: v1(*),v2(*) real(psb_spk_) :: dot end function psb_s_spdot_srtd function psb_d_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) real(psb_dpk_), intent(in) :: v1(*), v2(*) real(psb_dpk_) :: dot end function psb_d_spdot_srtd function psb_c_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) complex(psb_spk_), intent(in) :: v1(*),v2(*) complex(psb_spk_) :: dot end function psb_c_spdot_srtd function psb_z_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) complex(psb_dpk_), intent(in) :: v1(*),v2(*) complex(psb_dpk_) :: dot end function psb_z_spdot_srtd @@ -368,33 +392,33 @@ module psb_serial_mod interface psb_spge_dot function psb_s_spge_dot(nv1,iv1,v1,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) real(psb_spk_), intent(in) :: v1(*),v2(*) real(psb_spk_) :: dot end function psb_s_spge_dot function psb_d_spge_dot(nv1,iv1,v1,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) real(psb_dpk_), intent(in) :: v1(*),v2(*) real(psb_dpk_) :: dot end function psb_d_spge_dot function psb_c_spge_dot(nv1,iv1,v1,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) complex(psb_spk_), intent(in) :: v1(*),v2(*) complex(psb_spk_) :: dot end function psb_c_spge_dot function psb_z_spge_dot(nv1,iv1,v1,v2) result(dot) - use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) complex(psb_dpk_), intent(in) :: v1(*),v2(*) complex(psb_dpk_) :: dot end function psb_z_spge_dot @@ -403,54 +427,54 @@ module psb_serial_mod interface psb_nspaxpby subroutine psb_d_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info) - use psb_const_mod - integer, intent(out) :: nz - integer, intent(out) :: iz(:) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), intent(out) :: iz(:) real(psb_dpk_), intent (out) :: z(:) - integer, intent(in) :: nx, ny - integer, intent(in) :: ix(:), iy(:) + integer(psb_ipk_), intent(in) :: nx, ny + integer(psb_ipk_), intent(in) :: ix(:), iy(:) real(psb_dpk_), intent (in) :: x(:), y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_nspaxpby end interface psb_nspaxpby interface psb_aspxpby subroutine psb_s_aspxpby(alpha, nx, ix, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_aspxpby subroutine psb_d_aspxpby(alpha, nx, ix, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_aspxpby subroutine psb_c_aspxpby(alpha, nx, ix, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_aspxpby subroutine psb_z_aspxpby(alpha, nx, ix, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_aspxpby end interface psb_aspxpby @@ -458,11 +482,11 @@ contains subroutine psb_scsprt(iout,a,iv,head,ivr,ivc) use psb_mat_mod - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout type(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(iout,iv,head,ivr,ivc) @@ -472,9 +496,9 @@ contains use psb_mat_mod character(len=*), intent(in) :: fname type(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(fname,iv,head,ivr,ivc) @@ -482,11 +506,11 @@ contains subroutine psb_dcsprt(iout,a,iv,head,ivr,ivc) use psb_mat_mod - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout type(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(iout,iv,head,ivr,ivc) @@ -496,9 +520,9 @@ contains use psb_mat_mod character(len=*), intent(in) :: fname type(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(fname,iv,head,ivr,ivc) @@ -506,11 +530,11 @@ contains subroutine psb_ccsprt(iout,a,iv,head,ivr,ivc) use psb_mat_mod - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout type(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(iout,iv,head,ivr,ivc) @@ -520,9 +544,9 @@ contains use psb_mat_mod character(len=*), intent(in) :: fname type(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(fname,iv,head,ivr,ivc) @@ -530,11 +554,11 @@ contains subroutine psb_zcsprt(iout,a,iv,head,ivr,ivc) use psb_mat_mod - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout type(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(iout,iv,head,ivr,ivc) @@ -544,9 +568,9 @@ contains use psb_mat_mod character(len=*), intent(in) :: fname type(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:),ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:),ivc(:) call a%print(fname,iv,head,ivr,ivc) diff --git a/base/modules/psb_sort_mod.f90 b/base/modules/psb_sort_mod.f90 index cfa347f28..4d913ccab 100644 --- a/base/modules/psb_sort_mod.f90 +++ b/base/modules/psb_sort_mod.f90 @@ -48,144 +48,151 @@ module psb_sort_mod ! The up/down constant are defined in pairs having ! opposite values. We make use of this fact in the heapsort routine. ! - integer, parameter :: psb_sort_up_ = 1, psb_sort_down_ = -1 - integer, parameter :: psb_lsort_up_ = 2, psb_lsort_down_ = -2 - integer, parameter :: psb_asort_up_ = 3, psb_asort_down_ = -3 - integer, parameter :: psb_alsort_up_ = 4, psb_alsort_down_ = -4 - integer, parameter :: psb_sort_ovw_idx_ = 0, psb_sort_keep_idx_ = 1 - integer, parameter :: psb_heap_resize = 200 + integer(psb_ipk_), parameter :: psb_sort_up_ = 1, psb_sort_down_ = -1 + integer(psb_ipk_), parameter :: psb_lsort_up_ = 2, psb_lsort_down_ = -2 + integer(psb_ipk_), parameter :: psb_asort_up_ = 3, psb_asort_down_ = -3 + integer(psb_ipk_), parameter :: psb_alsort_up_ = 4, psb_alsort_down_ = -4 + integer(psb_ipk_), parameter :: psb_sort_ovw_idx_ = 0, psb_sort_keep_idx_ = 1 + integer(psb_ipk_), parameter :: psb_heap_resize = 200 type psb_int_heap - integer :: last, dir - integer, allocatable :: keys(:) + integer(psb_ipk_) :: last, dir + integer(psb_ipk_), allocatable :: keys(:) end type psb_int_heap type psb_int_idx_heap - integer :: last, dir - integer, allocatable :: keys(:) - integer, allocatable :: idxs(:) + integer(psb_ipk_) :: last, dir + integer(psb_ipk_), allocatable :: keys(:) + integer(psb_ipk_), allocatable :: idxs(:) end type psb_int_idx_heap type psb_real_idx_heap - integer :: last, dir + integer(psb_ipk_) :: last, dir real(psb_spk_), allocatable :: keys(:) - integer, allocatable :: idxs(:) + integer(psb_ipk_), allocatable :: idxs(:) end type psb_real_idx_heap type psb_double_idx_heap - integer :: last, dir + integer(psb_ipk_) :: last, dir real(psb_dpk_), allocatable :: keys(:) - integer, allocatable :: idxs(:) + integer(psb_ipk_), allocatable :: idxs(:) end type psb_double_idx_heap type psb_scomplex_idx_heap - integer :: last, dir + integer(psb_ipk_) :: last, dir complex(psb_spk_), allocatable :: keys(:) - integer, allocatable :: idxs(:) + integer(psb_ipk_), allocatable :: idxs(:) end type psb_scomplex_idx_heap type psb_dcomplex_idx_heap - integer :: last, dir + integer(psb_ipk_) :: last, dir complex(psb_dpk_), allocatable :: keys(:) - integer, allocatable :: idxs(:) + integer(psb_ipk_), allocatable :: idxs(:) end type psb_dcomplex_idx_heap interface psb_iblsrch function psb_iblsrch(key,n,v) result(ipos) - integer ipos, key, n - integer v(n) + import :: psb_ipk_ + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) end function psb_iblsrch end interface interface psb_ibsrch function psb_ibsrch(key,n,v) result(ipos) - integer ipos, key, n - integer v(n) + import :: psb_ipk_ + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) end function psb_ibsrch end interface interface psb_issrch function psb_issrch(key,n,v) result(ipos) + import :: psb_ipk_ implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) end function psb_issrch end interface interface psb_isaperm logical function psb_isaperm(n,eip) - integer, intent(in) :: n - integer, intent(in) :: eip(n) + import :: psb_ipk_ + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: eip(n) end function psb_isaperm end interface interface psb_msort subroutine imsort(x,ix,dir,flag) - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + import :: psb_ipk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine imsort subroutine smsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine smsort subroutine dmsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine dmsort subroutine camsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine camsort subroutine zamsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine zamsort end interface interface psb_msort_unique subroutine imsort_u(x,nout,dir) - integer, intent(inout) :: x(:) - integer, intent(out) :: nout - integer, optional, intent(in) :: dir + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: nout + integer(psb_ipk_), optional, intent(in) :: dir end subroutine imsort_u end interface interface psb_qsort subroutine iqsort(x,ix,dir,flag) - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine iqsort subroutine sqsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine sqsort subroutine dqsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine dqsort subroutine cqsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine cqsort subroutine zqsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine zqsort end interface @@ -193,237 +200,256 @@ module psb_sort_mod interface psb_hsort !!$ module procedure ihsort, shsort, chsort, dhsort, zhsort subroutine ihsort(x,ix,dir,flag) - use psb_const_mod - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine ihsort subroutine shsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine shsort subroutine dhsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine dhsort subroutine chsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine chsort subroutine zhsort(x,ix,dir,flag) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) end subroutine zhsort end interface interface psb_howmany_heap function psb_howmany_int_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_heap type(psb_int_heap), intent(in) :: heap - integer :: psb_howmany_int_heap + integer(psb_ipk_) :: psb_howmany_int_heap end function psb_howmany_int_heap function psb_howmany_real_idx_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_real_idx_heap type(psb_real_idx_heap), intent(in) :: heap - integer :: psb_howmany_real_idx_heap + integer(psb_ipk_) :: psb_howmany_real_idx_heap end function psb_howmany_real_idx_heap function psb_howmany_double_idx_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_double_idx_heap type(psb_double_idx_heap), intent(in) :: heap - integer :: psb_howmany_double_idx_heap + integer(psb_ipk_) :: psb_howmany_double_idx_heap end function psb_howmany_double_idx_heap function psb_howmany_int_idx_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_idx_heap type(psb_int_idx_heap), intent(in) :: heap - integer :: psb_howmany_int_idx_heap + integer(psb_ipk_) :: psb_howmany_int_idx_heap end function psb_howmany_int_idx_heap function psb_howmany_scomplex_idx_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(in) :: heap - integer :: psb_howmany_scomplex_idx_heap + integer(psb_ipk_) :: psb_howmany_scomplex_idx_heap end function psb_howmany_scomplex_idx_heap function psb_howmany_dcomplex_idx_heap(heap) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(in) :: heap - integer :: psb_howmany_dcomplex_idx_heap + integer(psb_ipk_) :: psb_howmany_dcomplex_idx_heap end function psb_howmany_dcomplex_idx_heap end interface interface psb_init_heap subroutine psb_init_int_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_heap type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_int_heap subroutine psb_init_real_idx_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_real_idx_heap type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_real_idx_heap subroutine psb_init_int_idx_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_idx_heap type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_int_idx_heap subroutine psb_init_scomplex_idx_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_scomplex_idx_heap subroutine psb_init_dcomplex_idx_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_dcomplex_idx_heap subroutine psb_init_double_idx_heap(heap,info,dir) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_double_idx_heap type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir end subroutine psb_init_double_idx_heap end interface interface psb_dump_heap subroutine psb_dump_int_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_heap type(psb_int_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_int_heap subroutine psb_dump_real_idx_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_real_idx_heap type(psb_real_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_real_idx_heap subroutine psb_dump_double_idx_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_double_idx_heap type(psb_double_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_double_idx_heap subroutine psb_dump_int_idx_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_int_idx_heap type(psb_int_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_int_idx_heap subroutine psb_dump_scomplex_idx_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_scomplex_idx_heap type(psb_scomplex_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_scomplex_idx_heap subroutine psb_dump_dcomplex_idx_heap(iout,heap,info) + import :: psb_ipk_, psb_spk_, psb_dpk_ import :: psb_dcomplex_idx_heap type(psb_dcomplex_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout end subroutine psb_dump_dcomplex_idx_heap end interface interface psb_insert_heap subroutine psb_insert_int_heap(key,heap,info) - import :: psb_int_heap - integer, intent(in) :: key + import :: psb_int_heap, psb_ipk_ + integer(psb_ipk_), intent(in) :: key type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_int_heap subroutine psb_insert_int_idx_heap(key,index,heap,info) - import :: psb_dpk_, psb_int_idx_heap - integer, intent(in) :: key - integer, intent(in) :: index + import :: psb_dpk_, psb_int_idx_heap, psb_ipk_ + integer(psb_ipk_), intent(in) :: key + integer(psb_ipk_), intent(in) :: index type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_int_idx_heap subroutine psb_insert_real_idx_heap(key,index,heap,info) - import :: psb_spk_, psb_real_idx_heap + import :: psb_spk_, psb_real_idx_heap, psb_ipk_ real(psb_spk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_real_idx_heap subroutine psb_insert_double_idx_heap(key,index,heap,info) - import :: psb_dpk_, psb_double_idx_heap + import :: psb_dpk_, psb_double_idx_heap, psb_ipk_ real(psb_dpk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_double_idx_heap subroutine psb_insert_scomplex_idx_heap(key,index,heap,info) - import :: psb_spk_, psb_scomplex_idx_heap + import :: psb_spk_, psb_scomplex_idx_heap, psb_ipk_ complex(psb_spk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_scomplex_idx_heap subroutine psb_insert_dcomplex_idx_heap(key,index,heap,info) - import :: psb_dpk_, psb_dcomplex_idx_heap + import :: psb_dpk_, psb_dcomplex_idx_heap, psb_ipk_ complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_insert_dcomplex_idx_heap end interface interface psb_heap_get_first subroutine psb_int_heap_get_first(key,heap,info) - import :: psb_int_heap + import :: psb_int_heap, psb_ipk_ type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: key,info + integer(psb_ipk_), intent(out) :: key,info end subroutine psb_int_heap_get_first subroutine psb_int_idx_heap_get_first(key,index,heap,info) - import :: psb_int_idx_heap + import :: psb_int_idx_heap, psb_ipk_ type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info - integer, intent(out) :: key + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(out) :: key end subroutine psb_int_idx_heap_get_first subroutine psb_real_idx_heap_get_first(key,index,heap,info) - import :: psb_spk_, psb_real_idx_heap + import :: psb_spk_, psb_real_idx_heap, psb_ipk_ type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info real(psb_spk_), intent(out) :: key end subroutine psb_real_idx_heap_get_first subroutine psb_double_idx_heap_get_first(key,index,heap,info) - import :: psb_dpk_, psb_double_idx_heap + import :: psb_dpk_, psb_double_idx_heap, psb_ipk_ type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info real(psb_dpk_), intent(out) :: key end subroutine psb_double_idx_heap_get_first subroutine psb_scomplex_idx_heap_get_first(key,index,heap,info) - import :: psb_spk_, psb_scomplex_idx_heap + import :: psb_spk_, psb_scomplex_idx_heap, psb_ipk_ type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info complex(psb_spk_), intent(out) :: key end subroutine psb_scomplex_idx_heap_get_first subroutine psb_dcomplex_idx_heap_get_first(key,index,heap,info) - import :: psb_dpk_, psb_dcomplex_idx_heap + import :: psb_dpk_, psb_dcomplex_idx_heap, psb_ipk_ type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info complex(psb_dpk_), intent(out) :: key end subroutine psb_dcomplex_idx_heap_get_first end interface interface subroutine psi_insert_int_heap(key,last,heap,dir,info) + import :: psb_ipk_ implicit none ! @@ -433,215 +459,218 @@ module psb_sort_mod ! heap: the heap ! dir: sorting direction - integer, intent(in) :: key,dir - integer, intent(inout) :: heap(:),last - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: key,dir + integer(psb_ipk_), intent(inout) :: heap(:),last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_int_heap end interface interface subroutine psi_int_heap_get_first(key,last,heap,dir,info) + import :: psb_ipk_ implicit none - - integer, intent(inout) :: key,last - integer, intent(in) :: dir - integer, intent(inout) :: heap(:) - integer, intent(out) :: info + + integer(psb_ipk_), intent(inout) :: key,last + integer(psb_ipk_), intent(in) :: dir + integer(psb_ipk_), intent(inout) :: heap(:) + integer(psb_ipk_), intent(out) :: info end subroutine psi_int_heap_get_first end interface interface subroutine psi_insert_real_heap(key,last,heap,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ real(psb_spk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_real_heap end interface interface subroutine psi_real_heap_get_first(key,last,heap,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ real(psb_spk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_real_heap_get_first end interface interface subroutine psi_insert_double_heap(key,last,heap,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ real(psb_dpk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_double_heap end interface interface subroutine psi_double_heap_get_first(key,last,heap,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ real(psb_dpk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_double_heap_get_first end interface interface subroutine psi_insert_scomplex_heap(key,last,heap,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ complex(psb_spk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_scomplex_heap end interface interface subroutine psi_scomplex_heap_get_first(key,last,heap,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ complex(psb_spk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_scomplex_heap_get_first end interface interface subroutine psi_insert_dcomplex_heap(key,last,heap,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_dcomplex_heap end interface interface subroutine psi_dcomplex_heap_get_first(key,last,heap,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ complex(psb_dpk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dcomplex_heap_get_first end interface interface subroutine psi_insert_int_idx_heap(key,index,last,heap,idxs,dir,info) - integer, intent(in) :: key - integer, intent(in) :: index,dir - integer, intent(inout) :: heap(:),last - integer, intent(inout) :: idxs(:) - integer, intent(out) :: info + import :: psb_ipk_ + integer(psb_ipk_), intent(in) :: key + integer(psb_ipk_), intent(in) :: index,dir + integer(psb_ipk_), intent(inout) :: heap(:),last + integer(psb_ipk_), intent(inout) :: idxs(:) + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_int_idx_heap end interface interface subroutine psi_int_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - integer, intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir - integer, intent(out) :: key + import :: psb_ipk_ + integer(psb_ipk_), intent(inout) :: heap(:) + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir + integer(psb_ipk_), intent(out) :: key end subroutine psi_int_idx_heap_get_first end interface interface subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ real(psb_spk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_real_idx_heap end interface interface subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ real(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(out) :: key end subroutine psi_real_idx_heap_get_first end interface interface subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ real(psb_dpk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_double_idx_heap end interface interface subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(out) :: key end subroutine psi_double_idx_heap_get_first end interface interface subroutine psi_insert_scomplex_idx_heap(key,index,last,heap,idxs,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ complex(psb_spk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_scomplex_idx_heap end interface interface subroutine psi_scomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import :: psb_spk_ + import :: psb_spk_, psb_ipk_ complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(out) :: key end subroutine psi_scomplex_idx_heap_get_first end interface interface subroutine psi_insert_dcomplex_idx_heap(key,index,last,heap,idxs,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info end subroutine psi_insert_dcomplex_idx_heap end interface interface subroutine psi_dcomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import :: psb_dpk_ + import :: psb_dpk_, psb_ipk_ complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(out) :: key end subroutine psi_dcomplex_idx_heap_get_first end interface @@ -658,7 +687,7 @@ contains subroutine psb_free_int_heap(heap,info) implicit none type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) @@ -668,7 +697,7 @@ contains subroutine psb_free_real_idx_heap(heap,info) implicit none type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) @@ -679,7 +708,7 @@ contains subroutine psb_free_double_idx_heap(heap,info) implicit none type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) @@ -690,7 +719,7 @@ contains subroutine psb_free_int_idx_heap(heap,info) implicit none type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) @@ -701,7 +730,7 @@ contains subroutine psb_free_scomplex_idx_heap(heap,info) implicit none type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) @@ -712,7 +741,7 @@ contains subroutine psb_free_dcomplex_idx_heap(heap,info) implicit none type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info=psb_success_ if (allocated(heap%keys)) deallocate(heap%keys,stat=info) diff --git a/base/modules/psb_string_mod.f90 b/base/modules/psb_string_mod.f90 index b9ccf867a..bdc43d919 100644 --- a/base/modules/psb_string_mod.f90 +++ b/base/modules/psb_string_mod.f90 @@ -30,7 +30,7 @@ !!$ !!$ module psb_string_mod - + use psb_const_mod, only : psb_ipk_ public psb_tolower, psb_toupper, psb_touppers interface psb_tolower module procedure psb_tolowerc @@ -53,11 +53,11 @@ contains function idx_bsrch(key,v) result(ipos) implicit none - integer :: ipos + integer(psb_ipk_) :: ipos character key character(len=*) v - integer lb, ub, m + integer(psb_ipk_) :: lb, ub, m lb = 1 @@ -83,7 +83,7 @@ contains function psb_tolowerc(string) character(len=*), intent(in) :: string character(len=len(string)) :: psb_tolowerc - integer :: i,k + integer(psb_ipk_) :: i,k do i=1,len(string) k = idx_bsrch(string(i:i),ucase) @@ -99,7 +99,7 @@ contains function psb_toupperc(string) character(len=*), intent(in) :: string character(len=len(string)) :: psb_toupperc - integer :: i,k + integer(psb_ipk_) :: i,k do i=1,len(string) k = idx_bsrch(string(i:i),lcase) @@ -114,7 +114,7 @@ contains subroutine psb_sub_toupperc(string,strout) character(len=*), intent(in) :: string character(len=*), intent(out) :: strout - integer :: i,k + integer(psb_ipk_) :: i,k do i=1,len(string) k = idx_bsrch(string(i:i),lcase) diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90 index a49e00aa3..76668dd07 100644 --- a/base/modules/psb_z_base_mat_mod.f90 +++ b/base/modules/psb_z_base_mat_mod.f90 @@ -123,8 +123,8 @@ module psb_z_base_mat_mod type, extends(psb_z_base_sparse_mat) :: psb_z_coo_sparse_mat - integer :: nnz - integer, allocatable :: ia(:), ja(:) + integer(psb_ipk_) :: nnz + integer(psb_ipk_), allocatable :: ia(:), ja(:) complex(psb_dpk_), allocatable :: val(:) contains @@ -221,12 +221,12 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_z_base_csput end interface @@ -255,16 +255,16 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_base_csgetrow end interface @@ -281,14 +281,14 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_base_csgetblk end interface @@ -304,11 +304,11 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_base_csclip end interface @@ -320,10 +320,10 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_get_diag(a,d,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_get_diag end interface @@ -335,10 +335,10 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_mold(a,b,info) - import :: psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mold end interface @@ -357,73 +357,73 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_cp_to_coo(a,b,info) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_coo end interface interface subroutine psb_z_base_cp_from_coo(a,b,info) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_coo end interface interface subroutine psb_z_base_cp_to_fmt(a,b,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_fmt end interface interface subroutine psb_z_base_cp_from_fmt(a,b,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_fmt end interface interface subroutine psb_z_base_mv_to_coo(a,b,info) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_coo end interface interface subroutine psb_z_base_mv_from_coo(a,b,info) - import :: psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_from_coo end interface interface subroutine psb_z_base_mv_to_fmt(a,b,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_fmt end interface interface subroutine psb_z_base_mv_from_fmt(a,b,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_from_fmt end interface @@ -434,7 +434,7 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_transp_2mat(a,b) - import :: psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_z_base_transp_2mat @@ -442,7 +442,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_transc_2mat(a,b) - import :: psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_z_base_transc_2mat @@ -450,14 +450,14 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_transp_1mat(a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transp_1mat end interface interface subroutine psb_z_base_transc_1mat(a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transc_1mat end interface @@ -473,34 +473,34 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_csmm end interface interface subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_csmv end interface interface subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_vect_mv end interface @@ -513,44 +513,44 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_inner_cssm end interface interface subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_inner_cssv end interface interface subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import :: psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_base_inner_vect_sv end interface interface subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_base_cssm @@ -558,11 +558,11 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_base_cssv @@ -570,11 +570,11 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_z_base_sparse_mat, psb_dpk_,psb_z_base_vect_type + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_,psb_z_base_vect_type class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_z_base_vect_type), optional, intent(inout) :: d end subroutine psb_z_base_vect_cssv @@ -586,19 +586,19 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_scals(d,a,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_scals end interface interface subroutine psb_z_base_scal(d,a,info) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_scal end interface @@ -607,7 +607,7 @@ module psb_z_base_mat_mod ! interface function psb_z_base_maxval(a) result(res) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_maxval @@ -618,7 +618,7 @@ module psb_z_base_mat_mod ! interface function psb_z_base_csnmi(a) result(res) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_csnmi @@ -629,7 +629,7 @@ module psb_z_base_mat_mod ! interface function psb_z_base_csnm1(a) result(res) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_csnm1 @@ -641,7 +641,7 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_rowsum(d,a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_rowsum @@ -649,7 +649,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_arwsum(d,a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_arwsum @@ -661,7 +661,7 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_base_colsum(d,a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_colsum @@ -669,7 +669,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_base_aclsum(d,a) - import :: psb_z_base_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_base_sparse_mat, psb_dpk_ class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_aclsum @@ -684,15 +684,15 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_reallocate_nz(nz,a) - import :: psb_z_coo_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_z_coo_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_reallocate_nz end interface interface subroutine psb_z_coo_reinit(a,clear) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_coo_reinit @@ -700,48 +700,48 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_trim(a) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_trim end interface interface subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) - import :: psb_z_coo_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_z_coo_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_coo_allocate_mnnz end interface interface subroutine psb_z_coo_mold(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_mold end interface interface subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) - import :: psb_z_coo_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_z_coo_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_coo_print end interface interface function psb_z_coo_get_nz_row(idx,a) result(res) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res end function psb_z_coo_get_nz_row end interface @@ -754,99 +754,99 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) - import :: psb_dpk_ - integer, intent(in) :: nzin,dupl - integer, intent(inout) :: ia(:), ja(:) + import :: psb_ipk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: nzin,dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_dpk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_z_fix_coo_inner end interface interface subroutine psb_z_fix_coo(a,info,idir) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_z_fix_coo end interface interface subroutine psb_z_cp_coo_to_coo(a,b,info) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_to_coo end interface interface subroutine psb_z_cp_coo_from_coo(a,b,info) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_from_coo end interface interface subroutine psb_z_cp_coo_to_fmt(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_to_fmt end interface interface subroutine psb_z_cp_coo_from_fmt(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_from_fmt end interface interface subroutine psb_z_mv_coo_to_coo(a,b,info) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_to_coo end interface interface subroutine psb_z_mv_coo_from_coo(a,b,info) - import :: psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_from_coo end interface interface subroutine psb_z_mv_coo_to_fmt(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_to_fmt end interface interface subroutine psb_z_mv_coo_from_fmt(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_base_sparse_mat class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_from_fmt end interface interface subroutine psb_z_coo_cp_from(a,b) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(in) :: b end subroutine psb_z_coo_cp_from @@ -854,7 +854,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_mv_from(a,b) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(inout) :: b end subroutine psb_z_coo_mv_from @@ -863,28 +863,28 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_z_coo_csput end interface interface subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_coo_csgetptn end interface @@ -892,54 +892,54 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_coo_csgetrow end interface interface subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_coo_cssv subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_coo_cssm end interface interface subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_coo_csmv subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_coo_csmm end interface @@ -947,7 +947,7 @@ module psb_z_base_mat_mod interface function psb_z_coo_maxval(a) result(res) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_maxval @@ -955,7 +955,7 @@ module psb_z_base_mat_mod interface function psb_z_coo_csnmi(a) result(res) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_csnmi @@ -963,7 +963,7 @@ module psb_z_base_mat_mod interface function psb_z_coo_csnm1(a) result(res) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_csnm1 @@ -971,7 +971,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_rowsum(d,a) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_rowsum @@ -979,7 +979,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_arwsum(d,a) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_arwsum @@ -987,7 +987,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_colsum(d,a) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_colsum @@ -995,7 +995,7 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_aclsum(d,a) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_aclsum @@ -1003,28 +1003,28 @@ module psb_z_base_mat_mod interface subroutine psb_z_coo_get_diag(a,d,info) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_get_diag end interface interface subroutine psb_z_coo_scal(d,a,info) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_scal end interface interface subroutine psb_z_coo_scals(d,a,info) - import :: psb_z_coo_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_dpk_ class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_scals end interface @@ -1098,7 +1098,7 @@ contains function z_coo_get_size(a) result(res) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 if (allocated(a%ia)) res = size(a%ia) @@ -1122,7 +1122,7 @@ contains function z_coo_get_nzeros(a) result(res) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%nnz end function z_coo_get_nzeros @@ -1142,7 +1142,7 @@ contains subroutine z_coo_set_nzeros(nz,a) implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a a%nnz = nz @@ -1197,8 +1197,8 @@ contains class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, allocatable :: itemp(:) - integer :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: info call a%psb_z_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) diff --git a/base/modules/psb_z_base_vect_mod.f90 b/base/modules/psb_z_base_vect_mod.f90 index ebd5a449d..04b66c68c 100644 --- a/base/modules/psb_z_base_vect_mod.f90 +++ b/base/modules/psb_z_base_vect_mod.f90 @@ -74,6 +74,13 @@ module psb_z_base_vect_mod ! version is only a placeholder. ! procedure, pass(x) :: sync => z_base_sync + procedure, pass(x) :: is_host => z_base_is_host + procedure, pass(x) :: is_dev => z_base_is_dev + procedure, pass(x) :: is_sync => z_base_is_sync + procedure, pass(x) :: set_host => z_base_set_host + procedure, pass(x) :: set_dev => z_base_set_dev + procedure, pass(x) :: set_sync => z_base_set_sync + ! ! Basic info procedure, pass(x) :: get_nrows => z_base_get_nrows @@ -140,7 +147,7 @@ contains function constructor(x) result(this) complex(psb_dpk_) :: x(:) type(psb_z_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info this%v = x call this%asb(size(x),info) @@ -148,9 +155,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_z_base_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info call this%asb(n,info) @@ -164,7 +171,7 @@ contains use psb_realloc_mod complex(psb_dpk_), intent(in) :: this(:) class(psb_z_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) if (info /= 0) then @@ -180,9 +187,9 @@ contains ! subroutine z_base_bld_n(x,n) use psb_realloc_mod - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x - integer :: info + integer(psb_ipk_) :: info call psb_realloc(n,x%v,info) call x%asb(n,info) @@ -193,9 +200,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_base_vect_type), intent(out) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_realloc(n,x%v,info) @@ -208,12 +215,12 @@ contains use psi_serial_mod implicit none class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (psb_errstatus_fatal()) return @@ -283,9 +290,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -300,7 +307,7 @@ contains use psb_realloc_mod implicit none class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) @@ -312,16 +319,59 @@ contains ! - ! The base version of SYNC does nothing, it's just + ! The base version of SYNC & friends does nothing, it's just ! a placeholder. ! subroutine z_base_sync(x) implicit none class(psb_z_base_vect_type), intent(inout) :: x - end subroutine z_base_sync + + subroutine z_base_set_host(x) + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + + end subroutine z_base_set_host + + subroutine z_base_set_dev(x) + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + + end subroutine z_base_set_dev + + subroutine z_base_set_sync(x) + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + + end subroutine z_base_set_sync + + function z_base_is_dev(x) result(res) + implicit none + class(psb_z_base_vect_type), intent(in) :: x + logical :: res + + res = .false. + end function z_base_is_dev + + function z_base_is_host(x) result(res) + implicit none + class(psb_z_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function z_base_is_host + + function z_base_is_sync(x) result(res) + implicit none + class(psb_z_base_vect_type), intent(in) :: x + logical :: res + + res = .true. + end function z_base_is_sync + + ! ! Size info. ! @@ -329,7 +379,7 @@ contains function z_base_get_nrows(x) result(res) implicit none class(psb_z_base_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = size(x%v) @@ -355,7 +405,7 @@ contains function z_base_get_vect(x) result(res) class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (.not.allocated(x%v)) return call x%sync() @@ -374,7 +424,7 @@ contains class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info x%v = val end subroutine z_base_set_scal @@ -382,8 +432,8 @@ contains subroutine z_base_set_vect(x,val) class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val(:) - integer :: nr - integer :: info + integer(psb_ipk_) :: nr + integer(psb_ipk_) :: info if (allocated(x%v)) then nr = min(size(x%v),size(val)) @@ -400,7 +450,7 @@ contains function z_base_dot_v(n,x,y) result(res) implicit none class(psb_z_base_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res complex(psb_dpk_), external :: zdotc @@ -428,7 +478,7 @@ contains implicit none class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res complex(psb_dpk_), external :: zdotc @@ -442,11 +492,11 @@ contains subroutine z_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info select type(xx => x) type is (psb_z_base_vect_type) @@ -460,11 +510,11 @@ contains subroutine z_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_geaxpby(m,alpha,x,beta,y%v,info) @@ -485,8 +535,8 @@ contains implicit none class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 select type(xx => x) @@ -506,8 +556,8 @@ contains implicit none complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(y%v), size(x)) @@ -525,8 +575,8 @@ contains complex(psb_dpk_), intent(in) :: y(:) complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 n = min(size(z%v), size(x), size(y)) @@ -594,9 +644,9 @@ contains class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y class(psb_z_base_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ info = 0 @@ -622,8 +672,8 @@ contains complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y class(psb_z_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -638,8 +688,8 @@ contains complex(psb_dpk_), intent(in) :: y(:) class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -669,7 +719,7 @@ contains function z_base_nrm2(n,x) result(res) implicit none class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: dznrm2 @@ -680,7 +730,7 @@ contains function z_base_amax(n,x) result(res) implicit none class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = maxval(abs(x%v(1:n))) @@ -690,7 +740,7 @@ contains function z_base_asum(n,x) result(res) implicit none class(psb_z_base_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res res = sum(abs(x%v(1:n))) @@ -704,7 +754,7 @@ contains subroutine z_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: alpha, beta, y(:) class(psb_z_base_vect_type) :: x @@ -717,7 +767,7 @@ contains ! subroutine z_base_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: y(:) class(psb_z_base_vect_type) :: x @@ -733,12 +783,13 @@ contains subroutine z_base_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:) class(psb_z_base_vect_type) :: y call y%sync() call psi_sct(n,idx,x,beta,y%v) + call y%set_host() end subroutine z_base_sctb diff --git a/base/modules/psb_z_comm_mod.f90 b/base/modules/psb_z_comm_mod.f90 index fece872ab..80453a95b 100644 --- a/base/modules/psb_z_comm_mod.f90 +++ b/base/modules/psb_z_comm_mod.f90 @@ -36,26 +36,26 @@ module psb_z_comm_mod use psb_descriptor_type complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,jx,ik,mode + integer(psb_ipk_), intent(in), optional :: update,jx,ik,mode end subroutine psb_zovrlm subroutine psb_zovrlv(x,desc_a,info,work,update,mode) use psb_descriptor_type complex(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_zovrlv subroutine psb_zovrl_vect(x,desc_a,info,work,update,mode) use psb_descriptor_type use psb_z_vect_mod type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(inout), optional, target :: work(:) - integer, intent(in), optional :: update,mode + integer(psb_ipk_), intent(in), optional :: update,mode end subroutine psb_zovrl_vect end interface psb_ovrl @@ -64,20 +64,20 @@ module psb_z_comm_mod use psb_descriptor_type complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,jx,ik,data + integer(psb_ipk_), intent(in), optional :: mode,jx,ik,data character, intent(in), optional :: tran end subroutine psb_zhalom subroutine psb_zhalov(x,desc_a,info,alpha,work,tran,mode,data) use psb_descriptor_type complex(psb_dpk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_zhalov subroutine psb_zhalo_vect(x,desc_a,info,alpha,work,tran,mode,data) @@ -85,10 +85,10 @@ module psb_z_comm_mod use psb_z_vect_mod type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional :: alpha complex(psb_dpk_), target, optional, intent(inout) :: work(:) - integer, intent(in), optional :: mode,data + integer(psb_ipk_), intent(in), optional :: mode,data character, intent(in), optional :: tran end subroutine psb_zhalo_vect end interface psb_halo @@ -100,16 +100,16 @@ module psb_z_comm_mod complex(psb_dpk_), intent(out) :: locx(:,:) complex(psb_dpk_), intent(in) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_zscatterm subroutine psb_zscatterv(globx, locx, desc_a, info, root) use psb_descriptor_type complex(psb_dpk_), intent(out) :: locx(:) complex(psb_dpk_), intent(in) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_zscatterv end interface @@ -121,8 +121,8 @@ module psb_z_comm_mod type(psb_zspmat_type), intent(inout) :: loca type(psb_zspmat_type), intent(out) :: globa type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root,dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root,dupl logical, intent(in), optional :: keepnum,keeploc end subroutine psb_zsp_allgather subroutine psb_zgatherm(globx, locx, desc_a, info, root) @@ -130,16 +130,16 @@ module psb_z_comm_mod complex(psb_dpk_), intent(in) :: locx(:,:) complex(psb_dpk_), intent(out) :: globx(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_zgatherm subroutine psb_zgatherv(globx, locx, desc_a, info, root) use psb_descriptor_type complex(psb_dpk_), intent(in) :: locx(:) complex(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_zgatherv subroutine psb_zgather_vect(globx, locx, desc_a, info, root) use psb_descriptor_type @@ -147,8 +147,8 @@ module psb_z_comm_mod type(psb_z_vect_type), intent(inout) :: locx complex(psb_dpk_), intent(out) :: globx(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, intent(in), optional :: root + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: root end subroutine psb_zgather_vect end interface psb_gather diff --git a/base/modules/psb_z_csc_mat_mod.f90 b/base/modules/psb_z_csc_mat_mod.f90 index 5d092bf4c..cf7c10322 100644 --- a/base/modules/psb_z_csc_mat_mod.f90 +++ b/base/modules/psb_z_csc_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_z_csc_mat_mod type, extends(psb_z_base_sparse_mat) :: psb_z_csc_sparse_mat - integer, allocatable :: icp(:), ia(:) + integer(psb_ipk_), allocatable :: icp(:), ia(:) complex(psb_dpk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_reallocate_nz(nz,a) - import :: psb_z_csc_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_z_csc_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_reallocate_nz end interface interface subroutine psb_z_csc_reinit(a,clear) - import :: psb_z_csc_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csc_reinit @@ -116,115 +116,115 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_trim(a) - import :: psb_z_csc_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_trim end interface interface subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) - import :: psb_z_csc_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_z_csc_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_z_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_csc_allocate_mnnz end interface interface subroutine psb_z_csc_mold(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_mold end interface interface subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) - import :: psb_z_csc_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_z_csc_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_csc_print end interface interface subroutine psb_z_cp_csc_to_coo(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_csc_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_csc_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_to_coo end interface interface subroutine psb_z_cp_csc_from_coo(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_from_coo end interface interface subroutine psb_z_cp_csc_to_fmt(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_to_fmt end interface interface subroutine psb_z_cp_csc_from_fmt(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_from_fmt end interface interface subroutine psb_z_mv_csc_to_coo(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_to_coo end interface interface subroutine psb_z_mv_csc_from_coo(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_from_coo end interface interface subroutine psb_z_mv_csc_to_fmt(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_to_fmt end interface interface subroutine psb_z_mv_csc_from_fmt(a,b,info) - import :: psb_z_csc_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_z_base_sparse_mat class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_from_fmt end interface interface subroutine psb_z_csc_cp_from(a,b) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(in) :: b end subroutine psb_z_csc_cp_from @@ -232,7 +232,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_mv_from(a,b) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(inout) :: b end subroutine psb_z_csc_mv_from @@ -241,28 +241,28 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_z_csc_csput end interface interface subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csc_csgetptn end interface @@ -270,16 +270,16 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csc_csgetrow end interface @@ -287,52 +287,52 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_z_csc_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csc_csgetblk end interface interface subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csc_cssv subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csc_cssm end interface interface subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csc_csmv subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csc_csmm end interface @@ -340,7 +340,7 @@ module psb_z_csc_mat_mod interface function psb_z_csc_maxval(a) result(res) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csc_maxval @@ -348,7 +348,7 @@ module psb_z_csc_mat_mod interface function psb_z_csc_csnmi(a) result(res) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csc_csnmi @@ -356,7 +356,7 @@ module psb_z_csc_mat_mod interface function psb_z_csc_csnm1(a) result(res) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csc_csnm1 @@ -364,7 +364,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_rowsum(d,a) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_rowsum @@ -372,7 +372,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_arwsum(d,a) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_arwsum @@ -380,7 +380,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_colsum(d,a) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_colsum @@ -388,7 +388,7 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_aclsum(d,a) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_aclsum @@ -396,28 +396,28 @@ module psb_z_csc_mat_mod interface subroutine psb_z_csc_get_diag(a,d,info) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_get_diag end interface interface subroutine psb_z_csc_scal(d,a,info) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_scal end interface interface subroutine psb_z_csc_scals(d,a,info) - import :: psb_z_csc_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_scals end interface @@ -457,14 +457,14 @@ contains function z_csc_get_nzeros(a) result(res) implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function z_csc_get_nzeros function z_csc_get_size(a) result(res) implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -492,8 +492,8 @@ contains implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_z_csr_mat_mod.f90 b/base/modules/psb_z_csr_mat_mod.f90 index b2b9256f8..1cbb1d338 100644 --- a/base/modules/psb_z_csr_mat_mod.f90 +++ b/base/modules/psb_z_csr_mat_mod.f90 @@ -47,7 +47,7 @@ module psb_z_csr_mat_mod type, extends(psb_z_base_sparse_mat) :: psb_z_csr_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) complex(psb_dpk_), allocatable :: val(:) contains @@ -100,15 +100,15 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_reallocate_nz(nz,a) - import :: psb_z_csr_sparse_mat - integer, intent(in) :: nz + import :: psb_ipk_, psb_z_csr_sparse_mat + integer(psb_ipk_), intent(in) :: nz class(psb_z_csr_sparse_mat), intent(inout) :: a end subroutine psb_z_csr_reallocate_nz end interface interface subroutine psb_z_csr_reinit(a,clear) - import :: psb_z_csr_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csr_reinit @@ -116,115 +116,115 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_trim(a) - import :: psb_z_csr_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a end subroutine psb_z_csr_trim end interface interface subroutine psb_z_csr_mold(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_base_sparse_mat, psb_long_int_k_ class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_mold end interface interface subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) - import :: psb_z_csr_sparse_mat - integer, intent(in) :: m,n + import :: psb_ipk_, psb_z_csr_sparse_mat + integer(psb_ipk_), intent(in) :: m,n class(psb_z_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_csr_allocate_mnnz end interface interface subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) - import :: psb_z_csr_sparse_mat - integer, intent(in) :: iout + import :: psb_ipk_, psb_z_csr_sparse_mat + integer(psb_ipk_), intent(in) :: iout class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_csr_print end interface interface subroutine psb_z_cp_csr_to_coo(a,b,info) - import :: psb_z_coo_sparse_mat, psb_z_csr_sparse_mat + import :: psb_ipk_, psb_z_coo_sparse_mat, psb_z_csr_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_to_coo end interface interface subroutine psb_z_cp_csr_from_coo(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_from_coo end interface interface subroutine psb_z_cp_csr_to_fmt(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_to_fmt end interface interface subroutine psb_z_cp_csr_from_fmt(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_from_fmt end interface interface subroutine psb_z_mv_csr_to_coo(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_to_coo end interface interface subroutine psb_z_mv_csr_from_coo(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_from_coo end interface interface subroutine psb_z_mv_csr_to_fmt(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_to_fmt end interface interface subroutine psb_z_mv_csr_from_fmt(a,b,info) - import :: psb_z_csr_sparse_mat, psb_z_base_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_z_base_sparse_mat class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_from_fmt end interface interface subroutine psb_z_csr_cp_from(a,b) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(in) :: b end subroutine psb_z_csr_cp_from @@ -232,7 +232,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_mv_from(a,b) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(inout) :: b end subroutine psb_z_csr_mv_from @@ -241,28 +241,28 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_z_csr_csput end interface interface subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csr_csgetptn end interface @@ -270,16 +270,16 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csr_csgetrow end interface @@ -287,52 +287,52 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_z_csr_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_, psb_z_coo_sparse_mat class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csr_csgetblk end interface interface subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csr_cssv subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csr_cssm end interface interface subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csr_csmv subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csr_csmm end interface @@ -340,7 +340,7 @@ module psb_z_csr_mat_mod interface function psb_z_csr_maxval(a) result(res) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_maxval @@ -348,7 +348,7 @@ module psb_z_csr_mat_mod interface function psb_z_csr_csnmi(a) result(res) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_csnmi @@ -356,7 +356,7 @@ module psb_z_csr_mat_mod interface function psb_z_csr_csnm1(a) result(res) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_csnm1 @@ -364,7 +364,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_rowsum(d,a) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_rowsum @@ -372,7 +372,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_arwsum(d,a) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_arwsum @@ -380,7 +380,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_colsum(d,a) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_colsum @@ -388,7 +388,7 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_aclsum(d,a) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_aclsum @@ -396,28 +396,28 @@ module psb_z_csr_mat_mod interface subroutine psb_z_csr_get_diag(a,d,info) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_get_diag end interface interface subroutine psb_z_csr_scal(d,a,info) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_scal end interface interface subroutine psb_z_csr_scals(d,a,info) - import :: psb_z_csr_sparse_mat, psb_dpk_ + import :: psb_ipk_, psb_z_csr_sparse_mat, psb_dpk_ class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_scals end interface @@ -458,14 +458,14 @@ contains function z_csr_get_nzeros(a) result(res) implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function z_csr_get_nzeros function z_csr_get_size(a) result(res) implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -493,8 +493,8 @@ contains implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_z_linmap_mod.f90 b/base/modules/psb_z_linmap_mod.f90 index 6ff6fa11e..74fd6d718 100644 --- a/base/modules/psb_z_linmap_mod.f90 +++ b/base/modules/psb_z_linmap_mod.f90 @@ -55,24 +55,24 @@ module psb_z_linmap_mod interface psb_map_X2Y subroutine psb_z_map_X2Y(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_zlinmap_type + import :: psb_ipk_, psb_zlinmap_type implicit none type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) end subroutine psb_z_map_X2Y subroutine psb_z_map_X2Y_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_z_vect_mod - import :: psb_zlinmap_type + import :: psb_ipk_, psb_zlinmap_type implicit none type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta type(psb_z_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) end subroutine psb_z_map_X2Y_vect end interface @@ -80,24 +80,24 @@ module psb_z_linmap_mod interface psb_map_Y2X subroutine psb_z_map_Y2X(alpha,x,beta,y,map,info,work) use psb_const_mod - import :: psb_zlinmap_type + import :: psb_ipk_, psb_zlinmap_type implicit none type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) end subroutine psb_z_map_Y2X subroutine psb_z_map_Y2X_vect(alpha,x,beta,y,map,info,work) use psb_const_mod use psb_z_vect_mod - import :: psb_zlinmap_type + import :: psb_ipk_, psb_zlinmap_type implicit none type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta type(psb_z_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) end subroutine psb_z_map_Y2X_vect end interface @@ -118,13 +118,13 @@ module psb_z_linmap_mod interface psb_linmap function psb_z_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) use psb_z_mat_mod, only : psb_zspmat_type - import :: psb_zlinmap_type, psb_desc_type + import :: psb_ipk_, psb_zlinmap_type, psb_desc_type implicit none type(psb_zlinmap_type) :: psb_z_linmap type(psb_desc_type), target :: desc_X, desc_Y type(psb_zspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) end function psb_z_linmap end interface @@ -166,7 +166,7 @@ contains use psb_z_mat_mod implicit none type(psb_zlinmap_type), intent(inout) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: type class(psb_z_base_sparse_mat), intent(in), optional :: mold @@ -183,8 +183,8 @@ contains type(psb_zlinmap_type), intent(out) :: out_map type(psb_desc_type), target :: desc_X, desc_Y type(psb_zspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr) end subroutine psb_z_linmap_sub @@ -194,7 +194,7 @@ contains use psb_mat_mod, only : psb_move_alloc implicit none type(psb_zlinmap_type) :: mapin,mapout - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call psb_move_alloc(mapin%psb_base_linmap_type, & & mapout%psb_base_linmap_type,info) @@ -207,7 +207,7 @@ contains use psb_descriptor_type implicit none class(psb_zlinmap_type) :: map - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info call map%psb_base_linmap_type%free(info) diff --git a/base/modules/psb_z_mat_mod.f90 b/base/modules/psb_z_mat_mod.f90 index 1c1fb6c2d..d75066779 100644 --- a/base/modules/psb_z_mat_mod.f90 +++ b/base/modules/psb_z_mat_mod.f90 @@ -205,59 +205,59 @@ module psb_z_mat_mod interface subroutine psb_z_set_nrows(m,a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m end subroutine psb_z_set_nrows end interface interface subroutine psb_z_set_ncols(n,a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_z_set_ncols end interface interface subroutine psb_z_set_dupl(n,a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n end subroutine psb_z_set_dupl end interface interface subroutine psb_z_set_null(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_null end interface interface subroutine psb_z_set_bld(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_bld end interface interface subroutine psb_z_set_upd(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_upd end interface interface subroutine psb_z_set_asb(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_asb end interface interface subroutine psb_z_set_sorted(a,val) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_sorted @@ -265,7 +265,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_triangle(a,val) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_triangle @@ -273,7 +273,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_unit(a,val) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_unit @@ -281,7 +281,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_lower(a,val) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_lower @@ -289,7 +289,7 @@ module psb_z_mat_mod interface subroutine psb_z_set_upper(a,val) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_upper @@ -297,93 +297,93 @@ module psb_z_mat_mod interface subroutine psb_z_sparse_print(iout,a,iv,head,ivr,ivc) - import :: psb_zspmat_type - integer, intent(in) :: iout + import :: psb_ipk_, psb_zspmat_type + integer(psb_ipk_), intent(in) :: iout class(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_sparse_print end interface interface subroutine psb_z_n_sparse_print(fname,a,iv,head,ivr,ivc) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type character(len=*), intent(in) :: fname class(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_n_sparse_print end interface interface subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_z_get_neigh end interface interface subroutine psb_z_csall(nr,nc,a,info,nz) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_csall end interface interface subroutine psb_z_reallocate_nz(nz,a) - import :: psb_zspmat_type - integer, intent(in) :: nz + import :: psb_ipk_, psb_zspmat_type + integer(psb_ipk_), intent(in) :: nz class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_reallocate_nz end interface interface subroutine psb_z_free(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_free end interface interface subroutine psb_z_trim(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_trim end interface interface subroutine psb_z_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_z_csput end interface interface subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetptn end interface @@ -391,16 +391,16 @@ module psb_z_mat_mod interface subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetrow end interface @@ -408,14 +408,14 @@ module psb_z_mat_mod interface subroutine psb_z_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetblk end interface @@ -423,11 +423,11 @@ module psb_z_mat_mod interface subroutine psb_z_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csclip end interface @@ -435,18 +435,18 @@ module psb_z_mat_mod interface subroutine psb_z_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import :: psb_zspmat_type, psb_dpk_, psb_z_coo_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_coo_sparse_mat class(psb_zspmat_type), intent(in) :: a type(psb_z_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_z_b_csclip end interface interface subroutine psb_z_mold(a,b) - import :: psb_zspmat_type, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_z_mold @@ -454,14 +454,14 @@ module psb_z_mat_mod interface subroutine psb_z_transp_1mat(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_transp_1mat end interface interface subroutine psb_z_transp_2mat(a,b) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b end subroutine psb_z_transp_2mat @@ -469,14 +469,14 @@ module psb_z_mat_mod interface subroutine psb_z_transc_1mat(a) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_transc_1mat end interface interface subroutine psb_z_transc_2mat(a,b) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b end subroutine psb_z_transc_2mat @@ -484,7 +484,7 @@ module psb_z_mat_mod interface subroutine psb_z_reinit(a,clear) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_reinit @@ -507,11 +507,11 @@ module psb_z_mat_mod ! interface subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_z_cscnv @@ -520,10 +520,10 @@ module psb_z_mat_mod interface subroutine psb_z_cscnv_ip(a,iinfo,type,mold,dupl) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: iinfo - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: iinfo + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_z_cscnv_ip @@ -532,11 +532,11 @@ module psb_z_mat_mod interface subroutine psb_z_cscnv_base(a,b,info,dupl) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_z_cscnv_base end interface @@ -546,18 +546,18 @@ module psb_z_mat_mod ! interface subroutine psb_z_clip_d(a,b,info) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_z_clip_d end interface interface subroutine psb_z_clip_d_ip(a,info) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info end subroutine psb_z_clip_d_ip end interface @@ -567,7 +567,7 @@ module psb_z_mat_mod ! interface subroutine psb_z_mv_from(a,b) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_from @@ -575,7 +575,7 @@ module psb_z_mat_mod interface subroutine psb_z_cp_from(a,b) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(in) :: b end subroutine psb_z_cp_from @@ -583,7 +583,7 @@ module psb_z_mat_mod interface subroutine psb_z_mv_to(a,b) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(out) :: b end subroutine psb_z_mv_to @@ -591,7 +591,7 @@ module psb_z_mat_mod interface subroutine psb_z_cp_to(a,b) - import :: psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b end subroutine psb_z_cp_to @@ -602,19 +602,19 @@ module psb_z_mat_mod ! interface psb_move_alloc subroutine psb_zspmat_type_move(a,b,info) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmat_type_move end interface interface subroutine psb_zspmat_clone(a,b,info) - import :: psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmat_clone end interface @@ -636,60 +636,60 @@ module psb_z_mat_mod interface psb_csmm subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csmm subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csmv subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_z_vect_mod, only : psb_z_vect_type - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csmv_vect end interface interface psb_cssm subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_cssm subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_cssv subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_z_vect_mod, only : psb_z_vect_type - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_z_vect_type), optional, intent(inout) :: d end subroutine psb_z_cssv_vect @@ -697,7 +697,7 @@ module psb_z_mat_mod interface function psb_z_maxval(a) result(res) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_z_maxval @@ -705,7 +705,7 @@ module psb_z_mat_mod interface function psb_z_csnmi(a) result(res) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csnmi @@ -713,7 +713,7 @@ module psb_z_mat_mod interface function psb_z_csnm1(a) result(res) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csnm1 @@ -721,62 +721,62 @@ module psb_z_mat_mod interface subroutine psb_z_rowsum(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_rowsum end interface interface subroutine psb_z_arwsum(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_arwsum end interface interface subroutine psb_z_colsum(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_colsum end interface interface subroutine psb_z_aclsum(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_aclsum end interface interface subroutine psb_z_get_diag(a,d,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_get_diag end interface interface psb_scal subroutine psb_z_scal(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_scal subroutine psb_z_scals(d,a,info) - import :: psb_zspmat_type, psb_dpk_ + import :: psb_ipk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_scals end interface @@ -827,7 +827,7 @@ contains function psb_z_get_dupl(a) result(res) implicit none class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_dupl() @@ -839,7 +839,7 @@ contains function psb_z_get_nrows(a) result(res) implicit none class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_nrows() @@ -852,7 +852,7 @@ contains function psb_z_get_ncols(a) result(res) implicit none class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res if (allocated(a%a)) then res = a%a%get_ncols() @@ -984,7 +984,7 @@ contains function psb_z_get_nzeros(a) result(res) implicit none class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(a%a)) then @@ -997,7 +997,7 @@ contains implicit none class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 @@ -1010,9 +1010,9 @@ contains function psb_z_get_nz_row(idx,a) result(res) implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx class(psb_zspmat_type), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 diff --git a/base/modules/psb_z_psblas_mod.f90 b/base/modules/psb_z_psblas_mod.f90 index bcd21928f..bbe397001 100644 --- a/base/modules/psb_z_psblas_mod.f90 +++ b/base/modules/psb_z_psblas_mod.f90 @@ -30,235 +30,255 @@ !!$ !!$ module psb_z_psblas_mod + use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_z_vect_mod, only : psb_z_vect_type + use psb_z_mat_mod, only : psb_zspmat_type interface psb_gedot function psb_zdot_vect(x, y, desc_a,info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_) :: res type(psb_z_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zdot_vect function psb_zdotv(x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_) :: psb_zdotv complex(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zdotv function psb_zdot(x, y, desc_a, info, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_) :: psb_zdot complex(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, optional, intent(in) :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx, jy + integer(psb_ipk_), intent(out) :: info end function psb_zdot end interface interface psb_gedots - subroutine psb_zdotvs(res,x, y, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + subroutine psb_zdotvs(res,x, y, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent(out) :: res complex(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zdotvs - subroutine psb_zmdots(res,x, y, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + subroutine psb_zmdots(res,x, y, desc_a,info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent(out) :: res(:) complex(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zmdots end interface interface psb_geaxpby subroutine psb_zaxpby_vect(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_z_vect_type), intent (inout) :: x type(psb_z_vect_type), intent (inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zaxpby_vect subroutine psb_zaxpbyv(alpha, x, beta, y,& & desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zaxpbyv subroutine psb_zaxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (inout) :: y(:,:) complex(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent(in) :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), intent(out) :: info end subroutine psb_zaxpby end interface interface psb_geamax function psb_zamax(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_zamax complex(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_zamax function psb_zamaxv(x, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_zamaxv complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zamaxv function psb_zamax_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zamax_vect end interface interface psb_geamaxs subroutine psb_zamaxvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_), intent (out) :: res complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zamaxvs subroutine psb_zmamaxs(res,x,desc_a,info,jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_), intent (out) :: res(:) complex(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx end subroutine psb_zmamaxs end interface interface psb_geasum function psb_zasum_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zasum_vect function psb_zasum(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_zasum complex(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_zasum function psb_zasumv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_zasumv complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zasumv end interface interface psb_geasums subroutine psb_zasumvs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_), intent (out) :: res complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zasumvs subroutine psb_zmasum(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_), intent (out) :: res(:) complex(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zmasum end interface interface psb_genrm2 function psb_znrm2(x, desc_a, info, jx) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_znrm2 complex(psb_dpk_), intent (in) :: x(:,:) type(psb_desc_type), intent (in) :: desc_a - integer, optional, intent (in) :: jx - integer, intent(out) :: info + integer(psb_ipk_), optional, intent (in) :: jx + integer(psb_ipk_), intent(out) :: info end function psb_znrm2 function psb_znrm2v(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) psb_znrm2v complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_znrm2v function psb_znrm2_vect(x, desc_a, info) result(res) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_znrm2_vect end interface interface psb_genrm2s subroutine psb_znrm2vs(res,x,desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_), intent (out) :: res complex(psb_dpk_), intent (in) :: x(:) type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_znrm2vs end interface interface psb_spnrmi function psb_znrmi(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) :: psb_znrmi type(psb_zspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_znrmi end interface interface psb_spnrm1 function psb_zspnrm1(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type real(psb_dpk_) :: psb_zspnrm1 type(psb_zspmat_type), intent (in) :: a type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end function psb_zspnrm1 end interface interface psb_spmm subroutine psb_zspmm(alpha, a, x, beta, y, desc_a, info,& &trans, k, jx, jy,work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(inout), target :: x(:,:) complex(psb_dpk_), intent(inout), target :: y(:,:) @@ -266,14 +286,14 @@ module psb_z_psblas_mod type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans complex(psb_dpk_), optional, intent(inout),target :: work(:) - integer, optional, intent(in) :: k, jx, jy + integer(psb_ipk_), optional, intent(in) :: k, jx, jy logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmm subroutine psb_zspmv(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(inout), target :: x(:) complex(psb_dpk_), intent(inout), target :: y(:) @@ -282,13 +302,12 @@ module psb_z_psblas_mod character, optional, intent(in) :: trans complex(psb_dpk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmv subroutine psb_zspmv_vect(alpha, a, x, beta, y,& & desc_a, info, trans, work,doswap) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(in) :: a type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y @@ -297,7 +316,7 @@ module psb_z_psblas_mod character, optional, intent(in) :: trans complex(psb_dpk_), optional, intent(inout),target :: work(:) logical, optional, intent(in) :: doswap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmv_vect end interface @@ -305,52 +324,51 @@ module psb_z_psblas_mod subroutine psb_zspsm(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(in) :: t complex(psb_dpk_), intent(in), target :: x(:,:) complex(psb_dpk_), intent(inout), target :: y(:,:) complex(psb_dpk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: n, jx, jy - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: n, jx, jy + integer(psb_ipk_), optional, intent(in) :: choice complex(psb_dpk_), optional, intent(in), target :: diag(:) complex(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspsm subroutine psb_zspsv(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(in) :: t complex(psb_dpk_), intent(in), target :: x(:) complex(psb_dpk_), intent(inout), target :: y(:) complex(psb_dpk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice complex(psb_dpk_), optional, intent(in), target :: diag(:) complex(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspsv subroutine psb_zspsv_vect(alpha, t, x, beta, y,& & desc_a, info, trans, scale, choice,& & diag, work) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod, only : psb_z_vect_type - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type type(psb_zspmat_type), intent(inout) :: t type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y complex(psb_dpk_), intent(in) :: alpha, beta type(psb_desc_type), intent(in) :: desc_a character, optional, intent(in) :: trans, scale - integer, optional, intent(in) :: choice + integer(psb_ipk_), optional, intent(in) :: choice type(psb_z_vect_type), intent(inout), optional :: diag complex(psb_dpk_), optional, intent(inout), target :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspsv_vect end interface diff --git a/base/modules/psb_z_tools_mod.f90 b/base/modules/psb_z_tools_mod.f90 index 370927eb3..078e2927f 100644 --- a/base/modules/psb_z_tools_mod.f90 +++ b/base/modules/psb_z_tools_mod.f90 @@ -30,70 +30,85 @@ !!$ !!$ Module psb_z_tools_mod + use psb_descriptor_type, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_z_vect_mod, only : psb_z_base_vect_type, psb_z_vect_type + use psb_z_mat_mod, only : psb_zspmat_type, psb_z_base_sparse_mat interface psb_geall subroutine psb_zalloc(x, desc_a, info, n, lb) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat implicit none complex(psb_dpk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_zalloc subroutine psb_zallocv(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat complex(psb_dpk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_zallocv subroutine psb_zalloc_vect(x, desc_a,info,n) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_z_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n end subroutine psb_zalloc_vect subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_z_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb end subroutine psb_zalloc_vect_r2 end interface interface psb_geasb subroutine psb_zasb(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zasb subroutine psb_zasbv(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zasbv subroutine psb_zasb_vect(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_zasb_vect subroutine psb_zasb_vect_r2(x, desc_a, info,mold, scratch) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch end subroutine psb_zasb_vect_r2 @@ -102,125 +117,141 @@ Module psb_z_tools_mod interface psb_sphalo Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& & rowscale,colscale,outfmt,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat Type(psb_zspmat_type),Intent(in) :: a Type(psb_zspmat_type),Intent(inout) :: blk Type(psb_desc_type),Intent(in), target :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale character(len=5), optional :: outfmt - integer, intent(in), optional :: data + integer(psb_ipk_), intent(in), optional :: data end Subroutine psb_zsphalo end interface interface psb_gefree subroutine psb_zfree(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat complex(psb_dpk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zfree subroutine psb_zfreev(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat complex(psb_dpk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zfreev subroutine psb_zfree_vect(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zfree_vect subroutine psb_zfree_vect_r2(x, desc_a, info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zfree_vect_r2 end interface interface psb_geins subroutine psb_zinsi(m,irw,val, x, desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_),intent(inout) :: x(:,:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_zinsi subroutine psb_zinsvi(m, irw,val, x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_),intent(inout) :: x(:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_zinsvi subroutine psb_zins_vect(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_zins_vect subroutine psb_zins_vect_r2(m,irw,val,x,desc_a,info,dupl) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_vect_mod - integer, intent(in) :: m + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat + integer(psb_ipk_), intent(in) :: m type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x(:) - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_zins_vect_r2 end interface interface psb_cdbldext Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info,extype) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - Use psb_mat_mod, only : psb_zspmat_type - integer, intent(in) :: novr + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat + integer(psb_ipk_), intent(in) :: novr Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype end Subroutine psb_zcdbldext end interface interface psb_spall subroutine psb_zspalloc(a, desc_a, info, nnz) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz end subroutine psb_zspalloc end interface interface psb_spasb subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl,mold) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type, psb_z_base_sparse_mat + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_zspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_zspasb @@ -228,46 +259,50 @@ Module psb_z_tools_mod interface psb_spfree subroutine psb_zspfree(a, desc_a,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_zspmat_type), intent(inout) ::a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspfree end interface interface psb_spins subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(inout) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild end subroutine psb_zspins subroutine psb_zspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zspins_2desc end interface interface psb_sprn subroutine psb_zsprn(a, desc_a,info,clear) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_mat_mod, only : psb_zspmat_type + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_base_vect_type, psb_z_vect_type, & + & psb_zspmat_type, psb_z_base_sparse_mat type(psb_desc_type), intent(in) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear end subroutine psb_zsprn end interface diff --git a/base/modules/psb_z_vect_mod.f90 b/base/modules/psb_z_vect_mod.f90 index 07daf41d4..4a9da1a46 100644 --- a/base/modules/psb_z_vect_mod.f90 +++ b/base/modules/psb_z_vect_mod.f90 @@ -97,7 +97,7 @@ contains complex(psb_dpk_), intent(in) :: invect(:) class(psb_z_vect_type), intent(out) :: x class(psb_z_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -111,10 +111,10 @@ contains subroutine z_vect_bld_n(x,n,mold) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(out) :: x class(psb_z_base_vect_type), intent(in), optional :: mold - integer :: info + integer(psb_ipk_) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -128,7 +128,7 @@ contains function z_vect_get_vect(x) result(res) class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), allocatable :: res(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) then res = x%v%get_vect() @@ -139,7 +139,7 @@ contains class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine z_vect_set_scal @@ -148,7 +148,7 @@ contains class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val(:) - integer :: info + integer(psb_ipk_) :: info if (allocated(x%v)) call x%v%set(val) end subroutine z_vect_set_vect @@ -157,7 +157,7 @@ contains function constructor(x) result(this) complex(psb_dpk_) :: x(:) type(psb_z_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_z_base_vect_type :: this%v, stat=info) @@ -169,9 +169,9 @@ contains function size_const(n) result(this) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n type(psb_z_vect_type) :: this - integer :: info + integer(psb_ipk_) :: info allocate(psb_z_base_vect_type :: this%v, stat=info) call this%asb(n,info) @@ -181,7 +181,7 @@ contains function z_vect_get_nrows(x) result(res) implicit none class(psb_z_vect_type), intent(in) :: x - integer :: res + integer(psb_ipk_) :: res res = 0 if (allocated(x%v)) res = x%v%get_nrows() end function z_vect_get_nrows @@ -197,7 +197,7 @@ contains function z_vect_dot_v(n,x,y) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x, y - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res res = zzero @@ -210,7 +210,7 @@ contains implicit none class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: y(:) - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res res = zzero @@ -222,11 +222,11 @@ contains subroutine z_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) @@ -239,11 +239,11 @@ contains subroutine z_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(y%v)) & & call y%v%axpby(m,alpha,x,beta,info) @@ -256,8 +256,8 @@ contains implicit none class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v)) & @@ -270,8 +270,8 @@ contains implicit none complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -288,8 +288,8 @@ contains complex(psb_dpk_), intent(in) :: y(:) complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v)) & @@ -304,10 +304,10 @@ contains class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y class(psb_z_vect_type), intent(inout) :: z - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy - integer :: i, n + integer(psb_ipk_) :: i, n info = 0 if (allocated(x%v).and.allocated(y%v).and.& @@ -323,8 +323,8 @@ contains complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y class(psb_z_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 if (allocated(z%v).and.allocated(y%v)) & @@ -339,8 +339,8 @@ contains complex(psb_dpk_), intent(in) :: y(:) class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: z - integer, intent(out) :: info - integer :: i, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n info = 0 @@ -363,7 +363,7 @@ contains function z_vect_nrm2(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -377,7 +377,7 @@ contains function z_vect_amax(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -391,7 +391,7 @@ contains function z_vect_asum(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res if (allocated(x%v)) then @@ -405,10 +405,10 @@ contains subroutine z_vect_all(n, x, info, mold) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(out) :: x class(psb_z_base_vect_type), intent(in), optional :: mold - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (present(mold)) then allocate(x%v,stat=info,mold=mold) @@ -436,9 +436,9 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info if (allocated(x%v)) & & call x%v%asb(n,info) @@ -456,7 +456,7 @@ contains subroutine z_vect_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: alpha, beta, y(:) class(psb_z_vect_type) :: x @@ -467,7 +467,7 @@ contains subroutine z_vect_gthzv(n,idx,x,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: y(:) class(psb_z_vect_type) :: x @@ -478,7 +478,7 @@ contains subroutine z_vect_sctb(n,idx,x,beta,y) use psi_serial_mod - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:) class(psb_z_vect_type) :: y @@ -492,7 +492,7 @@ contains use psb_realloc_mod implicit none class(psb_z_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) then @@ -506,12 +506,12 @@ contains use psi_serial_mod implicit none class(psb_z_vect_type), intent(inout) :: x - integer, intent(in) :: n, dupl - integer, intent(in) :: irl(:) + integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: irl(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i + integer(psb_ipk_) :: i info = 0 if (.not.allocated(x%v)) then @@ -529,7 +529,7 @@ contains class(psb_z_base_vect_type), intent(in) :: mold class(psb_z_base_vect_type), allocatable :: tmp complex(psb_dpk_), allocatable :: invect(:) - integer :: info + integer(psb_ipk_) :: info allocate(tmp,stat=info,mold=mold) call x%v%sync() diff --git a/base/modules/psi_bcast_mod.F90 b/base/modules/psi_bcast_mod.F90 index ba86d3526..e3ad2b63c 100644 --- a/base/modules/psi_bcast_mod.F90 +++ b/base/modules/psi_bcast_mod.F90 @@ -29,11 +29,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -55,11 +55,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then root_ = root @@ -80,11 +80,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -107,11 +107,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -134,11 +134,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -161,11 +161,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -189,11 +189,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -216,11 +216,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -242,11 +242,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -268,11 +268,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -294,11 +294,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -320,11 +320,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -346,11 +346,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -372,11 +372,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -398,11 +398,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_, info + integer(psb_ipk_) :: iam, np, root_, info #if !defined(SERIAL_MPI) if (present(root)) then @@ -425,11 +425,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt character(len=*), intent(inout) :: dat - integer, intent(in), optional :: root,length + integer(psb_ipk_), intent(in), optional :: root,length - integer :: iam, np, root_,length_,info + integer(psb_ipk_) :: iam, np, root_,length_,info #if !defined(SERIAL_MPI) if (present(root)) then @@ -458,11 +458,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt character(len=*), intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_,length_,info, size_ + integer(psb_ipk_) :: iam, np, root_,length_,info, size_ #if !defined(SERIAL_MPI) if (present(root)) then @@ -488,11 +488,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(inout) :: dat - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_,info + integer(psb_ipk_) :: iam, np, root_,info #if !defined(SERIAL_MPI) if (present(root)) then @@ -516,11 +516,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(inout) :: dat(:) - integer, intent(in), optional :: root + integer(psb_ipk_), intent(in), optional :: root - integer :: iam, np, root_,info + integer(psb_ipk_) :: iam, np, root_,info #if !defined(SERIAL_MPI) if (present(root)) then diff --git a/base/modules/psi_c_mod.f90 b/base/modules/psi_c_mod.f90 index 9deee7975..8dff4ebf9 100644 --- a/base/modules/psi_c_mod.f90 +++ b/base/modules/psi_c_mod.f90 @@ -30,211 +30,197 @@ !!$ !!$ module psi_c_mod + use psb_descriptor_type, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_c_vect_mod, only : psb_c_base_vect_type interface psi_swapdata subroutine psi_cswapdatam(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswapdatam subroutine psi_cswapdatav(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswapdatav subroutine psi_cswapdata_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswapdata_vect subroutine psi_cswapidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_cswapidxm subroutine psi_cswapidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_cswapidxv subroutine psi_cswapidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_c_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_cswapidx_vect end interface interface psi_swaptran subroutine psi_cswaptranm(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswaptranm subroutine psi_cswaptranv(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswaptranv subroutine psi_cswaptran_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_c_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_cswaptran_vect subroutine psi_ctranidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:,:), beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ctranidxm subroutine psi_ctranidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: y(:), beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ctranidxv subroutine psi_ctranidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_c_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type) :: y complex(psb_spk_) :: beta complex(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ctranidx_vect end interface interface psi_ovrl_upd subroutine psi_covrl_updr1(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_updr1 subroutine psi_covrl_updr2(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_updr2 subroutine psi_covrl_upd_vect(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_c_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type class(psb_c_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_upd_vect end interface interface psi_ovrl_save subroutine psi_covrl_saver1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_saver1 subroutine psi_covrl_saver2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout) :: x(:,:) complex(psb_spk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_saver2 subroutine psi_covrl_save_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_c_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type class(psb_c_base_vect_type) :: x complex(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_save_vect end interface interface psi_ovrl_restore subroutine psi_covrl_restrr1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_restrr1 subroutine psi_covrl_restrr2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type complex(psb_spk_), intent(inout) :: x(:,:) complex(psb_spk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_restrr2 subroutine psi_covrl_restr_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_c_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_c_base_vect_type class(psb_c_base_vect_type) :: x complex(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_covrl_restr_vect end interface diff --git a/base/modules/psi_comm_buffers_mod.F90 b/base/modules/psi_comm_buffers_mod.F90 index 9668ee706..3528dab60 100644 --- a/base/modules/psi_comm_buffers_mod.F90 +++ b/base/modules/psi_comm_buffers_mod.F90 @@ -2,20 +2,20 @@ ! Provide a fake mpi module just to keep the compiler(s) happy. module mpi use psb_const_mod - integer, parameter :: mpi_success=0 - integer, parameter :: mpi_request_null=0 - integer, parameter :: mpi_status_size=1 - integer, parameter :: mpi_integer = 1 - integer, parameter :: mpi_integer8 = 2 - integer, parameter :: mpi_real = 3 - integer, parameter :: mpi_double_precision = 4 - integer, parameter :: mpi_complex = 5 - integer, parameter :: mpi_double_complex = 6 - integer, parameter :: mpi_character = 7 - integer, parameter :: mpi_logical = 8 - integer, parameter :: mpi_integer2 = 9 - integer, parameter :: mpi_comm_null = -1 - integer, parameter :: mpi_comm_world = 1 + integer(psb_ipk_), parameter :: mpi_success=0 + integer(psb_ipk_), parameter :: mpi_request_null=0 + integer(psb_ipk_), parameter :: mpi_status_size=1 + integer(psb_ipk_), parameter :: mpi_integer = 1 + integer(psb_ipk_), parameter :: mpi_integer8 = 2 + integer(psb_ipk_), parameter :: mpi_real = 3 + integer(psb_ipk_), parameter :: mpi_double_precision = 4 + integer(psb_ipk_), parameter :: mpi_complex = 5 + integer(psb_ipk_), parameter :: mpi_double_complex = 6 + integer(psb_ipk_), parameter :: mpi_character = 7 + integer(psb_ipk_), parameter :: mpi_logical = 8 + integer(psb_ipk_), parameter :: mpi_integer2 = 9 + integer(psb_ipk_), parameter :: mpi_comm_null = -1 + integer(psb_ipk_), parameter :: mpi_comm_world = 1 real(psb_dpk_), external :: mpi_wtime end module mpi @@ -24,22 +24,22 @@ end module mpi module psi_comm_buffers_mod use psb_const_mod - integer, private, parameter:: psb_int_type = 987543 - integer, private, parameter:: psb_real_type = psb_int_type + 1 - integer, private, parameter:: psb_double_type = psb_real_type + 1 - integer, private, parameter:: psb_complex_type = psb_double_type + 1 - integer, private, parameter:: psb_dcomplex_type = psb_complex_type + 1 - integer, private, parameter:: psb_logical_type = psb_dcomplex_type + 1 - integer, private, parameter:: psb_char_type = psb_logical_type + 1 - integer, private, parameter:: psb_int8_type = psb_char_type + 1 - integer, private, parameter:: psb_int2_type = psb_int8_type + 1 + integer(psb_ipk_), private, parameter:: psb_int_type = 987543 + integer(psb_ipk_), private, parameter:: psb_real_type = psb_int_type + 1 + integer(psb_ipk_), private, parameter:: psb_double_type = psb_real_type + 1 + integer(psb_ipk_), private, parameter:: psb_complex_type = psb_double_type + 1 + integer(psb_ipk_), private, parameter:: psb_dcomplex_type = psb_complex_type + 1 + integer(psb_ipk_), private, parameter:: psb_logical_type = psb_dcomplex_type + 1 + integer(psb_ipk_), private, parameter:: psb_char_type = psb_logical_type + 1 + integer(psb_ipk_), private, parameter:: psb_int8_type = psb_char_type + 1 + integer(psb_ipk_), private, parameter:: psb_int2_type = psb_int8_type + 1 type psb_buffer_node - integer :: request - integer :: icontxt - integer :: buffer_type - integer(psb_int_k_), allocatable :: intbuf(:) + integer(psb_ipk_) :: request + integer(psb_ipk_) :: icontxt + integer(psb_ipk_) :: buffer_type + integer(psb_ipk_), allocatable :: intbuf(:) integer(psb_long_int_k_), allocatable :: int8buf(:) integer(2), allocatable :: int2buf(:) real(psb_spk_), allocatable :: realbuf(:) @@ -78,7 +78,7 @@ contains subroutine psb_init_queue(mesg_queue,info) implicit none type(psb_buffer_queue), intent(inout) :: mesg_queue - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if ((.not.associated(mesg_queue%head)).and.& @@ -107,8 +107,8 @@ contains include 'mpif.h' #endif type(psb_buffer_node), intent(inout) :: node - integer, intent(out) :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: status(mpi_status_size) call mpi_wait(node%request,status,info) end subroutine psb_wait_buffer @@ -123,8 +123,8 @@ contains #endif type(psb_buffer_node), intent(inout) :: node logical, intent(out) :: flag - integer, intent(out) :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: status(mpi_status_size) call mpi_test(node%request,flag,status,info) end subroutine psb_test_buffer @@ -132,8 +132,8 @@ contains subroutine psb_close_context(mesg_queue,icontxt) type(psb_buffer_queue), intent(inout) :: mesg_queue - integer, intent(in) :: icontxt - integer :: info + integer(psb_ipk_), intent(in) :: icontxt + integer(psb_ipk_) :: info type(psb_buffer_node), pointer :: node, nextnode node => mesg_queue%head @@ -151,7 +151,7 @@ contains subroutine psb_close_all_context(mesg_queue) type(psb_buffer_queue), intent(inout) :: mesg_queue type(psb_buffer_node), pointer :: node, nextnode - integer :: info + integer(psb_ipk_) :: info node => mesg_queue%head do @@ -202,7 +202,7 @@ contains subroutine psb_test_nodes(mesg_queue) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node, nextnode - integer :: info + integer(psb_ipk_) :: info logical :: flag node => mesg_queue%head @@ -235,11 +235,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest - integer(psb_int_k_), allocatable, intent(inout) :: buffer(:) + integer(psb_ipk_) :: icontxt, tag, dest + integer(psb_ipk_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -270,11 +270,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest integer(psb_long_int_k_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -306,11 +306,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest integer(2), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -342,11 +342,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest real(psb_spk_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -376,11 +376,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest real(psb_dpk_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -410,11 +410,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest complex(psb_spk_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -444,11 +444,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest complex(psb_dpk_), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -479,11 +479,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest logical, allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then @@ -514,11 +514,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer :: icontxt, tag, dest + integer(psb_ipk_) :: icontxt, tag, dest character(len=1), allocatable, intent(inout) :: buffer(:) type(psb_buffer_queue) :: mesg_queue type(psb_buffer_node), pointer :: node - integer :: info + integer(psb_ipk_) :: info allocate(node, stat=info) if (info /= 0) then diff --git a/base/modules/psi_d_mod.f90 b/base/modules/psi_d_mod.f90 index f0eec1e47..04c29e1cc 100644 --- a/base/modules/psi_d_mod.f90 +++ b/base/modules/psi_d_mod.f90 @@ -30,211 +30,196 @@ !!$ !!$ module psi_d_mod - + use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_dpk_ + use psb_d_vect_mod, only : psb_d_base_vect_type interface psi_swapdata subroutine psi_dswapdatam(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswapdatam subroutine psi_dswapdatav(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswapdatav subroutine psi_dswapdata_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswapdata_vect subroutine psi_dswapidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dswapidxm subroutine psi_dswapidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dswapidxv subroutine psi_dswapidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_d_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dswapidx_vect end interface interface psi_swaptran subroutine psi_dswaptranm(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswaptranm subroutine psi_dswaptranv(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswaptranv subroutine psi_dswaptran_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_d_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_dswaptran_vect subroutine psi_dtranidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:,:), beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dtranidxm subroutine psi_dtranidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: y(:), beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dtranidxv subroutine psi_dtranidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_d_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type) :: y real(psb_dpk_) :: beta real(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_dtranidx_vect end interface interface psi_ovrl_upd subroutine psi_dovrl_updr1(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_updr1 subroutine psi_dovrl_updr2(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_updr2 subroutine psi_dovrl_upd_vect(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_d_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type class(psb_d_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_upd_vect end interface interface psi_ovrl_save subroutine psi_dovrl_saver1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_saver1 subroutine psi_dovrl_saver2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout) :: x(:,:) real(psb_dpk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_saver2 subroutine psi_dovrl_save_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_d_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type class(psb_d_base_vect_type) :: x real(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_save_vect end interface interface psi_ovrl_restore subroutine psi_dovrl_restrr1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_restrr1 subroutine psi_dovrl_restrr2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type real(psb_dpk_), intent(inout) :: x(:,:) real(psb_dpk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_restrr2 subroutine psi_dovrl_restr_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_d_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_d_base_vect_type class(psb_d_base_vect_type) :: x real(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_dovrl_restr_vect end interface diff --git a/base/modules/psi_i_mod.f90 b/base/modules/psi_i_mod.f90 index fa479f0db..827deb16d 100644 --- a/base/modules/psi_i_mod.f90 +++ b/base/modules/psi_i_mod.f90 @@ -30,149 +30,155 @@ !!$ !!$ module psi_i_mod + use psb_descriptor_type, only : psb_desc_type, psb_ipk_ interface subroutine psi_compute_size(desc_data,& & index_in, dl_lda, info) - integer :: info, dl_lda - integer :: desc_data(:), index_in(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_) :: info, dl_lda + integer(psb_ipk_) :: desc_data(:), index_in(:) end subroutine psi_compute_size end interface interface subroutine psi_crea_bnd_elem(bndel,desc_a,info) - use psb_descriptor_type, only : psb_desc_type - integer, allocatable :: bndel(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), allocatable :: bndel(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_crea_bnd_elem end interface interface subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,nxch,nsnd,nrcv,info) - use psb_descriptor_type, only : psb_desc_type + import :: psb_desc_type, psb_ipk_ type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info,nxch,nsnd,nrcv - integer, intent(in) :: index_in(:) - integer, allocatable, intent(inout) :: index_out(:) + integer(psb_ipk_), intent(out) :: info,nxch,nsnd,nrcv + integer(psb_ipk_), intent(in) :: index_in(:) + integer(psb_ipk_), allocatable, intent(inout) :: index_out(:) logical :: glob_idx end subroutine psi_crea_index end interface interface subroutine psi_crea_ovr_elem(me,desc_overlap,ovr_elem,info) - integer, intent(in) :: me, desc_overlap(:) - integer, allocatable, intent(out) :: ovr_elem(:,:) - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: me, desc_overlap(:) + integer(psb_ipk_), allocatable, intent(out) :: ovr_elem(:,:) + integer(psb_ipk_), intent(out) :: info end subroutine psi_crea_ovr_elem end interface interface subroutine psi_desc_index(desc,index_in,dep_list,& & length_dl,nsnd,nrcv,desc_index,isglob_in,info) - use psb_descriptor_type, only : psb_desc_type + import :: psb_desc_type, psb_ipk_ type(psb_desc_type) :: desc - integer :: index_in(:),dep_list(:) - integer,allocatable :: desc_index(:) - integer :: length_dl,nsnd,nrcv,info + integer(psb_ipk_) :: index_in(:),dep_list(:) + integer(psb_ipk_),allocatable :: desc_index(:) + integer(psb_ipk_) :: length_dl,nsnd,nrcv,info logical :: isglob_in end subroutine psi_desc_index end interface interface subroutine psi_dl_check(dep_list,dl_lda,np,length_dl) - integer :: np,dl_lda,length_dl(0:np) - integer :: dep_list(dl_lda,0:np) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_) :: np,dl_lda,length_dl(0:np) + integer(psb_ipk_) :: dep_list(dl_lda,0:np) end subroutine psi_dl_check end interface interface subroutine psi_sort_dl(dep_list,l_dep_list,np,info) - integer :: np,dep_list(:,:), l_dep_list(:), info + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_) :: np,dep_list(:,:), l_dep_list(:), info end subroutine psi_sort_dl end interface interface subroutine psi_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,& & length_dl,np,dl_lda,mode,info) + import :: psb_desc_type, psb_ipk_ logical :: is_bld, is_upd - integer :: ictxt,np,dl_lda,mode, info - integer :: desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np) + integer(psb_ipk_) :: ictxt,np,dl_lda,mode, info + integer(psb_ipk_) :: desc_str(*),dep_list(dl_lda,0:np),length_dl(0:np) end subroutine psi_extract_dep_list end interface interface psi_fnd_owner subroutine psi_fnd_owner(nv,idx,iprc,desc,info) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: nv - integer, intent(in) :: idx(:) - integer, allocatable, intent(out) :: iprc(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(in) :: idx(:) + integer(psb_ipk_), allocatable, intent(out) :: iprc(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_fnd_owner end interface psi_fnd_owner interface psi_ldsc_pre_halo subroutine psi_ldsc_pre_halo(desc,ext_hv,info) - use psb_descriptor_type, only : psb_desc_type + import :: psb_desc_type, psb_ipk_ type(psb_desc_type), intent(inout) :: desc logical, intent(in) :: ext_hv - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_ldsc_pre_halo end interface psi_ldsc_pre_halo interface psi_bld_tmphalo subroutine psi_bld_tmphalo(desc,info) - use psb_descriptor_type, only : psb_desc_type + import :: psb_desc_type, psb_ipk_ type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_bld_tmphalo end interface psi_bld_tmphalo interface psi_bld_tmpovrl subroutine psi_bld_tmpovrl(iv,desc,info) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: iv(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: iv(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_bld_tmpovrl end interface psi_bld_tmpovrl interface psi_idx_cnv subroutine psi_idx_cnv1(nv,idxin,desc,info,mask,owned) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: nv - integer, intent(inout) :: idxin(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(inout) :: idxin(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned end subroutine psi_idx_cnv1 subroutine psi_idx_cnv2(nv,idxin,idxout,desc,info,mask,owned) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: nv, idxin(:) - integer, intent(out) :: idxout(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: nv, idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) logical, intent(in), optional :: owned end subroutine psi_idx_cnv2 subroutine psi_idx_cnvs(idxin,idxout,desc,info,mask,owned) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: idxin - integer, intent(out) :: idxout + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned end subroutine psi_idx_cnvs subroutine psi_idx_cnvs1(idxin,desc,info,mask,owned) - use psb_descriptor_type, only : psb_desc_type - integer, intent(inout) :: idxin + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: idxin type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask logical, intent(in), optional :: owned end subroutine psi_idx_cnvs1 @@ -180,220 +186,220 @@ module psi_i_mod interface psi_idx_ins_cnv subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: nv - integer, intent(inout) :: idxin(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: nv + integer(psb_ipk_), intent(inout) :: idxin(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) end subroutine psi_idx_ins_cnv1 subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: nv, idxin(:) - integer, intent(out) :: idxout(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: nv, idxin(:) + integer(psb_ipk_), intent(out) :: idxout(:) type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask(:) end subroutine psi_idx_ins_cnv2 subroutine psi_idx_ins_cnvs2(idxin,idxout,desc,info,mask) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: idxin - integer, intent(out) :: idxout + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: idxin + integer(psb_ipk_), intent(out) :: idxout type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask end subroutine psi_idx_ins_cnvs2 subroutine psi_idx_ins_cnvs1(idxin,desc,info,mask) - use psb_descriptor_type, only : psb_desc_type - integer, intent(inout) :: idxin + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: idxin type(psb_desc_type), intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: mask end subroutine psi_idx_ins_cnvs1 end interface psi_idx_ins_cnv interface psi_cnv_dsc subroutine psi_cnv_dsc(halo_in,ovrlap_in,ext_in,cdesc, info) - use psb_descriptor_type, only: psb_desc_type - integer, intent(in) :: halo_in(:), ovrlap_in(:),ext_in(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: halo_in(:), ovrlap_in(:),ext_in(:) type(psb_desc_type), intent(inout) :: cdesc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_cnv_dsc end interface psi_cnv_dsc interface psi_renum_index subroutine psi_renum_index(iperm,idx,info) - integer, intent(out) :: info - integer, intent(in) :: iperm(:) - integer, intent(inout) :: idx(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(inout) :: idx(:) end subroutine psi_renum_index end interface psi_renum_index interface psi_inner_cnv subroutine psi_inner_cnvs(x,hashmask,hashv,glb_lc) - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(inout) :: x + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(inout) :: x end subroutine psi_inner_cnvs subroutine psi_inner_cnvs2(x,y,hashmask,hashv,glb_lc) - integer, intent(in) :: hashmask,hashv(0:),glb_lc(:,:) - integer, intent(in) :: x - integer, intent(out) :: y + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: hashmask,hashv(0:),glb_lc(:,:) + integer(psb_ipk_), intent(in) :: x + integer(psb_ipk_), intent(out) :: y end subroutine psi_inner_cnvs2 subroutine psi_inner_cnv1(n,x,hashmask,hashv,glb_lc,mask) - integer, intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: n,hashmask,hashv(0:),glb_lc(:,:) logical, intent(in), optional :: mask(:) - integer, intent(inout) :: x(:) + integer(psb_ipk_), intent(inout) :: x(:) end subroutine psi_inner_cnv1 subroutine psi_inner_cnv2(n,x,y,hashmask,hashv,glb_lc,mask) - integer, intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: n, hashmask,hashv(0:),glb_lc(:,:) logical, intent(in),optional :: mask(:) - integer, intent(in) :: x(:) - integer, intent(out) :: y(:) + integer(psb_ipk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: y(:) end subroutine psi_inner_cnv2 end interface psi_inner_cnv interface subroutine psi_bld_ovr_mst(me,ovrlap_elem,mst_idx,info) - integer, intent(in) :: me, ovrlap_elem(:,:) - integer, allocatable, intent(out) :: mst_idx(:) - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: me, ovrlap_elem(:,:) + integer(psb_ipk_), allocatable, intent(out) :: mst_idx(:) + integer(psb_ipk_), intent(out) :: info end subroutine psi_bld_ovr_mst end interface interface psi_swapdata subroutine psi_iswapdatam(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_iswapdatam subroutine psi_iswapdatav(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_iswapdatav subroutine psi_iswapidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer,target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_),target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_iswapidxm subroutine psi_iswapidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info - integer :: y(:), beta - integer,target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_),target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_iswapidxv end interface psi_swapdata interface psi_swaptran subroutine psi_iswaptranm(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer,target :: work(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_iswaptranm subroutine psi_iswaptranv(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type - integer, intent(in) :: flag - integer, intent(out) :: info - integer :: y(:), beta - integer,target :: work(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_iswaptranv subroutine psi_itranidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info - integer :: y(:,:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:,:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_itranidxm subroutine psi_itranidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info - integer :: y(:), beta - integer, target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: y(:), beta + integer(psb_ipk_), target :: work(:) + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_itranidxv end interface psi_swaptran interface psi_ovrl_upd subroutine psi_iovrl_updr1(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout), target :: x(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_updr1 subroutine psi_iovrl_updr2(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout), target :: x(:,:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_updr2 end interface psi_ovrl_upd interface psi_ovrl_save subroutine psi_iovrl_saver1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout) :: x(:) - integer, allocatable :: xs(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_saver1 subroutine psi_iovrl_saver2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout) :: x(:,:) - integer, allocatable :: xs(:,:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: x(:,:) + integer(psb_ipk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_saver2 end interface psi_ovrl_save interface psi_ovrl_restore subroutine psi_iovrl_restrr1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout) :: x(:) - integer :: xs(:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_restrr1 subroutine psi_iovrl_restrr2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - integer, intent(inout) :: x(:,:) - integer :: xs(:,:) + import :: psb_desc_type, psb_ipk_ + integer(psb_ipk_), intent(inout) :: x(:,:) + integer(psb_ipk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_iovrl_restrr2 end interface psi_ovrl_restore diff --git a/base/modules/psi_p2p_mod.F90 b/base/modules/psi_p2p_mod.F90 index 250f7df0a..39da59181 100644 --- a/base/modules/psi_p2p_mod.F90 +++ b/base/modules/psi_p2p_mod.F90 @@ -46,25 +46,25 @@ module psi_p2p_mod - integer, private, parameter:: psb_int_tag = 543987 - integer, private, parameter:: psb_real_tag = psb_int_tag + 1 - integer, private, parameter:: psb_double_tag = psb_real_tag + 1 - integer, private, parameter:: psb_complex_tag = psb_double_tag + 1 - integer, private, parameter:: psb_dcomplex_tag = psb_complex_tag + 1 - integer, private, parameter:: psb_logical_tag = psb_dcomplex_tag + 1 - integer, private, parameter:: psb_char_tag = psb_logical_tag + 1 - integer, private, parameter:: psb_int8_tag = psb_char_tag + 1 - integer, private, parameter:: psb_int2_tag = psb_int8_tag + 1 + integer(psb_ipk_), private, parameter:: psb_int_tag = 543987 + integer(psb_ipk_), private, parameter:: psb_real_tag = psb_int_tag + 1 + integer(psb_ipk_), private, parameter:: psb_double_tag = psb_real_tag + 1 + integer(psb_ipk_), private, parameter:: psb_complex_tag = psb_double_tag + 1 + integer(psb_ipk_), private, parameter:: psb_dcomplex_tag = psb_complex_tag + 1 + integer(psb_ipk_), private, parameter:: psb_logical_tag = psb_dcomplex_tag + 1 + integer(psb_ipk_), private, parameter:: psb_char_tag = psb_logical_tag + 1 + integer(psb_ipk_), private, parameter:: psb_int8_tag = psb_char_tag + 1 + integer(psb_ipk_), private, parameter:: psb_int2_tag = psb_int8_tag + 1 - integer, parameter:: psb_int_swap_tag = psb_int_tag + psb_int_tag - integer, parameter:: psb_real_swap_tag = psb_real_tag + psb_int_tag - integer, parameter:: psb_double_swap_tag = psb_double_tag + psb_int_tag - integer, parameter:: psb_complex_swap_tag = psb_complex_tag + psb_int_tag - integer, parameter:: psb_dcomplex_swap_tag = psb_dcomplex_tag + psb_int_tag - integer, parameter:: psb_logical_swap_tag = psb_logical_tag + psb_int_tag - integer, parameter:: psb_char_swap_tag = psb_char_tag + psb_int_tag - integer, parameter:: psb_int8_swap_tag = psb_int8_tag + psb_int_tag - integer, parameter:: psb_int2_swap_tag = psb_int2_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_int_swap_tag = psb_int_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_real_swap_tag = psb_real_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_double_swap_tag = psb_double_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_complex_swap_tag = psb_complex_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_dcomplex_swap_tag = psb_dcomplex_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_logical_swap_tag = psb_logical_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_char_swap_tag = psb_char_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_int8_swap_tag = psb_int8_tag + psb_int_tag + integer(psb_ipk_), parameter:: psb_int2_swap_tag = psb_int2_tag + psb_int_tag contains @@ -85,11 +85,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(in) :: dat - integer, intent(in) :: dst - integer(psb_int_k_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: dat + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -109,11 +109,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(in) :: dat(:) - integer, intent(in) :: dst - integer(psb_int_k_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: dat(:) + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -134,12 +134,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m - integer(psb_int_k_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: dat(:,:) + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -170,11 +170,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst real(psb_spk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -194,11 +194,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst real(psb_spk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -219,12 +219,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m real(psb_spk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -256,11 +256,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst real(psb_dpk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -280,11 +280,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst real(psb_dpk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -305,12 +305,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m real(psb_dpk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -342,11 +342,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst complex(psb_spk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -366,11 +366,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst complex(psb_spk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -391,12 +391,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m complex(psb_spk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -428,11 +428,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst complex(psb_dpk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -452,11 +452,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst complex(psb_dpk_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -477,12 +477,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m complex(psb_dpk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -514,11 +514,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst logical, allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -538,11 +538,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst logical, allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -563,12 +563,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m logical, allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -600,11 +600,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt character(len=*), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst character(len=1), allocatable :: dat_(:) - integer :: info, l, i + integer(psb_ipk_) :: info, l, i #if defined(SERIAL_MPI) ! do nothing #else @@ -627,11 +627,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -651,11 +651,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -676,12 +676,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -716,11 +716,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(in) :: dat - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst integer(2), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) ! do nothing #else @@ -740,11 +740,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(in) :: dat(:) - integer, intent(in) :: dst + integer(psb_ipk_), intent(in) :: dst integer(2), allocatable :: dat_(:) - integer :: info + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) #else @@ -765,12 +765,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(in) :: dat(:,:) - integer, intent(in) :: dst - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: dst + integer(psb_ipk_), intent(in), optional :: m integer(2), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_ + integer(psb_ipk_) :: info ,i,j,k,m_,n_ #if defined(SERIAL_MPI) #else @@ -809,11 +809,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(out) :: dat + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -832,12 +832,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(out) :: dat(:) - integer, intent(in) :: src - integer(psb_int_k_), allocatable :: dat_(:) - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(out) :: dat(:) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),psb_mpi_integer,src,psb_int_tag,ictxt,status,info) @@ -856,13 +856,13 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer(psb_int_k_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m - integer(psb_int_k_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(out) :: dat(:,:) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -895,11 +895,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -918,12 +918,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(out) :: dat(:) - integer, intent(in) :: src + integer(psb_ipk_), intent(in) :: src real(psb_spk_), allocatable :: dat_(:) - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_real,src,psb_real_tag,ictxt,status,info) @@ -942,13 +942,13 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m real(psb_spk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -981,11 +981,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1004,12 +1004,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(out) :: dat(:) - integer, intent(in) :: src + integer(psb_ipk_), intent(in) :: src real(psb_dpk_), allocatable :: dat_(:) - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_double_precision,src,psb_double_tag,ictxt,status,info) @@ -1028,13 +1028,13 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m real(psb_dpk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -1068,11 +1068,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1091,12 +1091,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(out) :: dat(:) - integer, intent(in) :: src + integer(psb_ipk_), intent(in) :: src complex(psb_spk_), allocatable :: dat_(:) - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_complex,src,psb_complex_tag,ictxt,status,info) @@ -1115,13 +1115,13 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m complex(psb_spk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -1155,11 +1155,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1178,12 +1178,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(out) :: dat(:) - integer, intent(in) :: src + integer(psb_ipk_), intent(in) :: src complex(psb_dpk_), allocatable :: dat_(:) - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_double_complex,src,psb_dcomplex_tag,ictxt,status,info) @@ -1202,13 +1202,13 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m complex(psb_dpk_), allocatable :: dat_(:) - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -1242,11 +1242,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1265,11 +1265,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(out) :: dat(:) - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_logical,src,psb_logical_tag,ictxt,status,info) @@ -1288,12 +1288,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt logical, intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -1327,12 +1327,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt character(len=*), intent(out) :: dat - integer, intent(in) :: src + integer(psb_ipk_), intent(in) :: src character(len=1), allocatable :: dat_(:) - integer :: info, l, i - integer :: status(mpi_status_size) + integer(psb_ipk_) :: info, l, i + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1359,11 +1359,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1382,11 +1382,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(out) :: dat(:) - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_integer8,src,psb_int8_tag,ictxt,status,info) @@ -1405,12 +1405,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else @@ -1447,11 +1447,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(out) :: dat - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! do nothing #else @@ -1470,11 +1470,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(out) :: dat(:) - integer, intent(in) :: src - integer :: info - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_) :: info + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) #else call mpi_recv(dat,size(dat),mpi_integer2,src,psb_int2_tag,ictxt,status,info) @@ -1493,12 +1493,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(out) :: dat(:,:) - integer, intent(in) :: src - integer, intent(in), optional :: m - integer :: info ,i,j,k,m_,n_, ld, mp_rcv_type - integer :: status(mpi_status_size) + integer(psb_ipk_), intent(in) :: src + integer(psb_ipk_), intent(in), optional :: m + integer(psb_ipk_) :: info ,i,j,k,m_,n_, ld, mp_rcv_type + integer(psb_ipk_) :: status(mpi_status_size) #if defined(SERIAL_MPI) ! What should we do here?? #else diff --git a/base/modules/psi_penv_mod.F90 b/base/modules/psi_penv_mod.F90 index 633fc5df1..a3c3003e9 100644 --- a/base/modules/psi_penv_mod.F90 +++ b/base/modules/psi_penv_mod.F90 @@ -28,17 +28,17 @@ module psi_penv_mod #if defined(SERIAL_MPI) - integer, private, save :: nctxt=0 + integer(psb_ipk_), private, save :: nctxt=0 #else - integer, save :: mpi_iamx_op, mpi_iamn_op - integer, save :: mpi_i8amx_op, mpi_i8amn_op - integer, save :: mpi_samx_op, mpi_samn_op - integer, save :: mpi_damx_op, mpi_damn_op - integer, save :: mpi_camx_op, mpi_camn_op - integer, save :: mpi_zamx_op, mpi_zamn_op - integer, save :: mpi_snrm2_op, mpi_dnrm2_op + integer(psb_ipk_), save :: mpi_iamx_op, mpi_iamn_op + integer(psb_ipk_), save :: mpi_i8amx_op, mpi_i8amn_op + integer(psb_ipk_), save :: mpi_samx_op, mpi_samn_op + integer(psb_ipk_), save :: mpi_damx_op, mpi_damn_op + integer(psb_ipk_), save :: mpi_camx_op, mpi_camn_op + integer(psb_ipk_), save :: mpi_zamx_op, mpi_zamn_op + integer(psb_ipk_), save :: mpi_snrm2_op, mpi_dnrm2_op type(psb_buffer_queue), save :: psb_mesg_queue @@ -65,7 +65,7 @@ contains use psb_const_mod real(psb_dpk_) :: dv(2) real(psb_spk_) :: sv(2) - integer :: iv(2) + integer(psb_ipk_) :: iv(2) integer(psb_long_int_k_) :: ilv(2) call psi_c_diffadd(sv(1),sv(2),psb_sizeof_sp) @@ -83,7 +83,7 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer info + integer(psb_ipk_) :: info info = 0 #if defined(LONG_INTEGERS) @@ -124,14 +124,14 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(out) :: ictxt - integer, intent(in), optional :: np, basectxt, ids(:) + integer(psb_ipk_), intent(out) :: ictxt + integer(psb_ipk_), intent(in), optional :: np, basectxt, ids(:) - integer :: i, isnullcomm - integer, allocatable :: iids(:) + integer(psb_ipk_) :: i, isnullcomm + integer(psb_ipk_), allocatable :: iids(:) logical :: initialized - integer :: np_, npavail, iam, info, basecomm, basegroup, newgroup + integer(psb_ipk_) :: np_, npavail, iam, info, basecomm, basegroup, newgroup character(len=20), parameter :: name='psb_init' call psb_set_debug_unit(psb_err_unit) @@ -249,10 +249,10 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(inout) :: ictxt + integer(psb_ipk_), intent(inout) :: ictxt logical, intent(in), optional :: close logical :: close_ - integer :: info + integer(psb_ipk_) :: info character(len=20), parameter :: name='psb_exit' info = 0 @@ -300,9 +300,9 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt - integer :: info + integer(psb_ipk_) :: info #if !defined(SERIAL_MPI) if (ictxt /= mpi_comm_null) then call mpi_barrier(ictxt, info) @@ -328,10 +328,10 @@ contains subroutine psb_abort(ictxt,errc) use psi_comm_buffers_mod - integer, intent(in) :: ictxt - integer, intent(in), optional :: errc + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(in), optional :: errc - integer :: code, info + integer(psb_ipk_) :: code, info #if defined(SERIAL_MPI) stop @@ -358,9 +358,9 @@ contains include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(out) :: iam, np - integer :: info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(out) :: iam, np + integer(psb_ipk_) :: info #if defined(SERIAL_MPI) iam = 0 @@ -381,26 +381,26 @@ contains subroutine psb_set_coher(ictxt,isvch) - integer :: ictxt, isvch + integer(psb_ipk_) :: ictxt, isvch ! Ensure global repeatability for convergence checks. ! Do nothing. Obsolete. end subroutine psb_set_coher subroutine psb_restore_coher(ictxt,isvch) - integer :: ictxt, isvch + integer(psb_ipk_) :: ictxt, isvch ! Ensure global coherence for convergence checks. ! Do nothing. Obsolete. end subroutine psb_restore_coher subroutine psb_get_mpicomm(ictxt,comm) - integer :: ictxt, comm + integer(psb_ipk_) :: ictxt, comm comm = ictxt end subroutine psb_get_mpicomm subroutine psb_get_rank(rank,ictxt,id) - integer :: rank,ictxt,id + integer(psb_ipk_) :: rank,ictxt,id rank = id end subroutine psb_get_rank @@ -412,9 +412,9 @@ contains ! ! !!!!!!!!!!!!!!!!!!!!!! subroutine psi_iamx_op(inv, outv,len,type) - integer :: inv(*),outv(*) - integer :: len,type - integer :: i + integer(psb_ipk_) :: inv(*),outv(*) + integer(psb_ipk_) :: len,type + integer(psb_ipk_) :: i do i=1, len if (abs(inv(i)) > abs(outv(i))) outv(i) = inv(i) @@ -422,9 +422,9 @@ contains end subroutine psi_iamx_op subroutine psi_iamn_op(inv, outv,len,type) - integer :: inv(*),outv(*) - integer :: len,type - integer :: i + integer(psb_ipk_) :: inv(*),outv(*) + integer(psb_ipk_) :: len,type + integer(psb_ipk_) :: i do i=1, len if (abs(inv(i)) < abs(outv(i))) outv(i) = inv(i) end do @@ -432,8 +432,8 @@ contains subroutine psi_i8amx_op(inv, outv,len,type) integer(psb_long_int_k_) :: inv(*),outv(*) - integer :: len,type - integer :: i + integer(psb_ipk_) :: len,type + integer(psb_ipk_) :: i do i=1, len if (abs(inv(i)) > abs(outv(i))) outv(i) = inv(i) @@ -449,8 +449,8 @@ contains include 'mpif.h' #endif integer(psb_long_int_k_) :: inv(*),outv(*) - integer :: len,type - integer :: i + integer(psb_ipk_) :: len,type + integer(psb_ipk_) :: i if (type /= mpi_integer8) then write(psb_err_unit,*) 'Invalid type !!!' end if @@ -460,88 +460,88 @@ contains end subroutine psi_i8amn_op subroutine psi_samx_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_spk_), intent(in) :: vin(len) real(psb_spk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) < abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_samx_op subroutine psi_samn_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_spk_), intent(in) :: vin(len) real(psb_spk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) > abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_samn_op subroutine psi_damx_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_dpk_), intent(in) :: vin(len) real(psb_dpk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) < abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_damx_op subroutine psi_damn_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_dpk_), intent(in) :: vin(len) real(psb_dpk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) > abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_damn_op subroutine psi_camx_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype complex(psb_spk_), intent(in) :: vin(len) complex(psb_spk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) < abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_camx_op subroutine psi_camn_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype complex(psb_spk_), intent(in) :: vin(len) complex(psb_spk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) > abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_camn_op subroutine psi_zamx_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype complex(psb_dpk_), intent(in) :: vin(len) complex(psb_dpk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) < abs(vin(i))) vinout(i) = vin(i) end do end subroutine psi_zamx_op subroutine psi_zamn_op(vin,vinout,len,itype) - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype complex(psb_dpk_), intent(in) :: vin(len) complex(psb_dpk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i do i=1, len if (abs(vinout(i)) > abs(vin(i))) vinout(i) = vin(i) end do @@ -549,11 +549,11 @@ contains subroutine psi_snrm2_op(vin,vinout,len,itype) implicit none - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_spk_), intent(in) :: vin(len) real(psb_spk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i real(psb_spk_) :: w, z do i=1, len w = max( vin(i), vinout(i) ) @@ -568,11 +568,11 @@ contains subroutine psi_dnrm2_op(vin,vinout,len,itype) implicit none - integer, intent(in) :: len, itype + integer(psb_ipk_), intent(in) :: len, itype real(psb_dpk_), intent(in) :: vin(len) real(psb_dpk_), intent(inout) :: vinout(len) - integer :: i + integer(psb_ipk_) :: i real(psb_dpk_) :: w, z do i=1, len w = max( vin(i), vinout(i) ) diff --git a/base/modules/psi_reduce_mod.F90 b/base/modules/psi_reduce_mod.F90 index cca9b4e4d..58be31195 100644 --- a/base/modules/psi_reduce_mod.F90 +++ b/base/modules/psi_reduce_mod.F90 @@ -98,11 +98,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_, dat_ - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_, dat_ + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -132,12 +132,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -175,12 +175,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:,:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -218,12 +218,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -253,12 +253,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -296,12 +296,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -342,12 +342,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -377,12 +377,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -420,12 +420,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -462,12 +462,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -497,12 +497,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -541,12 +541,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -590,11 +590,11 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_, dat_ - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_, dat_ + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -624,12 +624,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -667,12 +667,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:,:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -710,12 +710,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -745,12 +745,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -788,12 +788,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -834,12 +834,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -869,12 +869,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -912,12 +912,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -954,12 +954,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -989,12 +989,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1033,12 +1033,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1084,12 +1084,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1120,12 +1120,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1163,12 +1163,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:,:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1208,12 +1208,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1244,12 +1244,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1287,12 +1287,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1333,12 +1333,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1368,12 +1368,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1411,12 +1411,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1453,12 +1453,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1488,12 +1488,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1532,12 +1532,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1575,12 +1575,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1610,12 +1610,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1653,12 +1653,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1695,12 +1695,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1730,12 +1730,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1774,12 +1774,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1825,12 +1825,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1861,12 +1861,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1904,12 +1904,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:,:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1949,12 +1949,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -1985,12 +1985,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2028,12 +2028,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2074,12 +2074,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2109,12 +2109,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2152,12 +2152,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2194,12 +2194,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2229,12 +2229,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2273,12 +2273,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2316,12 +2316,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2351,12 +2351,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2394,12 +2394,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2436,12 +2436,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2471,12 +2471,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2515,12 +2515,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2565,12 +2565,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ - integer :: dat_ - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_) :: dat_ + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2601,12 +2601,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2644,12 +2644,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt - integer, intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ - integer, allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_), intent(in) :: ictxt + integer(psb_ipk_), intent(inout) :: dat(:,:) + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ + integer(psb_ipk_), allocatable :: dat_(:,:) + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2689,12 +2689,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(2) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2725,12 +2725,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(2), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2767,12 +2767,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(2), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(2), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2813,12 +2813,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2849,12 +2849,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2892,12 +2892,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt integer(psb_long_int_k_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ integer(psb_long_int_k_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2938,12 +2938,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -2973,12 +2973,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3016,12 +3016,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3058,12 +3058,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3093,12 +3093,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3137,12 +3137,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3180,12 +3180,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3215,12 +3215,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3258,12 +3258,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_spk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_spk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3300,12 +3300,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3335,12 +3335,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3379,12 +3379,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt complex(psb_dpk_), intent(inout) :: dat(:,:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ complex(psb_dpk_), allocatable :: dat_(:,:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3426,12 +3426,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3460,12 +3460,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_) :: dat_ - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3495,12 +3495,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_spk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_spk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) @@ -3541,12 +3541,12 @@ contains #ifdef MPI_H include 'mpif.h' #endif - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt real(psb_dpk_), intent(inout) :: dat(:) - integer, intent(in), optional :: root - integer :: root_ + integer(psb_ipk_), intent(in), optional :: root + integer(psb_ipk_) :: root_ real(psb_dpk_), allocatable :: dat_(:) - integer :: iam, np, info + integer(psb_ipk_) :: iam, np, info #if !defined(SERIAL_MPI) diff --git a/base/modules/psi_s_mod.f90 b/base/modules/psi_s_mod.f90 index 738cbbde2..6bd5bf447 100644 --- a/base/modules/psi_s_mod.f90 +++ b/base/modules/psi_s_mod.f90 @@ -30,211 +30,197 @@ !!$ !!$ module psi_s_mod + use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_spk_ + use psb_s_vect_mod, only : psb_s_base_vect_type interface psi_swapdata subroutine psi_sswapdatam(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswapdatam subroutine psi_sswapdatav(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswapdatav subroutine psi_sswapdata_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswapdata_vect subroutine psi_sswapidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_sswapidxm subroutine psi_sswapidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_sswapidxv subroutine psi_sswapidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_s_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_sswapidx_vect end interface interface psi_swaptran subroutine psi_sswaptranm(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswaptranm subroutine psi_sswaptranv(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswaptranv subroutine psi_sswaptran_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_spk_ - use psb_s_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_sswaptran_vect subroutine psi_stranidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:,:), beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_stranidxm subroutine psi_stranidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: y(:), beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_stranidxv subroutine psi_stranidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_s_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type) :: y real(psb_spk_) :: beta real(psb_spk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_stranidx_vect end interface interface psi_ovrl_upd subroutine psi_sovrl_updr1(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_updr1 subroutine psi_sovrl_updr2(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_updr2 subroutine psi_sovrl_upd_vect(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_s_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type class(psb_s_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_upd_vect end interface interface psi_ovrl_save subroutine psi_sovrl_saver1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_saver1 subroutine psi_sovrl_saver2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout) :: x(:,:) real(psb_spk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_saver2 subroutine psi_sovrl_save_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_s_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type class(psb_s_base_vect_type) :: x real(psb_spk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_save_vect end interface interface psi_ovrl_restore subroutine psi_sovrl_restrr1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout) :: x(:) real(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_restrr1 subroutine psi_sovrl_restrr2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type real(psb_spk_), intent(inout) :: x(:,:) real(psb_spk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_restrr2 subroutine psi_sovrl_restr_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_s_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_spk_, psb_s_base_vect_type class(psb_s_base_vect_type) :: x real(psb_spk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_sovrl_restr_vect end interface diff --git a/base/modules/psi_serial_mod.f90 b/base/modules/psi_serial_mod.f90 index e6dcb4e73..bb24f51fe 100644 --- a/base/modules/psi_serial_mod.f90 +++ b/base/modules/psi_serial_mod.f90 @@ -30,69 +30,69 @@ !!$ !!$ module psi_serial_mod - + use psb_const_mod, only : psb_ipk_, psb_spk_, psb_dpk_ interface psb_gelp ! 2-D version subroutine psb_sgelp(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_spk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_sgelp ! 1-D version subroutine psb_sgelpv(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_spk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_sgelpv subroutine psb_dgelp(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_dgelp ! 1-D version subroutine psb_dgelpv(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_dgelpv ! 2-D version subroutine psb_cgelp(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_spk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_cgelp ! 1-D version subroutine psb_cgelpv(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_spk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_cgelpv ! 2-D version subroutine psb_zgelp(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_dpk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_zgelp ! 1-D version subroutine psb_zgelpv(trans,iperm,x,info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ complex(psb_dpk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_zgelpv end interface @@ -101,77 +101,78 @@ module psi_serial_mod interface psi_gth subroutine psi_igthv(n,idx,alpha,x,beta,y) - integer :: n, idx(:) - integer :: x(:), y(:), alpha, beta + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: x(:), y(:), alpha, beta end subroutine psi_igthv subroutine psi_sgthv(n,idx,alpha,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: x(:), y(:), alpha, beta end subroutine psi_sgthv subroutine psi_dgthv(n,idx,alpha,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: x(:), y(:), alpha, beta end subroutine psi_dgthv subroutine psi_cgthv(n,idx,alpha,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: x(:), y(:),alpha,beta end subroutine psi_cgthv subroutine psi_zgthv(n,idx,alpha,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: x(:), y(:),alpha,beta end subroutine psi_zgthv subroutine psi_sgthzmv(n,k,idx,x,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: x(:,:), y(:) end subroutine psi_sgthzmv subroutine psi_dgthzmv(n,k,idx,x,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: x(:,:), y(:) end subroutine psi_dgthzmv subroutine psi_igthzmv(n,k,idx,x,y) - use psb_const_mod - integer :: n, k, idx(:) - integer :: x(:,:), y(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) + integer(psb_ipk_) :: x(:,:), y(:) end subroutine psi_igthzmv subroutine psi_cgthzmv(n,k,idx,x,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: x(:,:), y(:) end subroutine psi_cgthzmv subroutine psi_zgthzmv(n,k,idx,x,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: x(:,:), y(:) end subroutine psi_zgthzmv subroutine psi_sgthzv(n,idx,x,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: x(:), y(:) end subroutine psi_sgthzv subroutine psi_dgthzv(n,idx,x,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: x(:), y(:) end subroutine psi_dgthzv subroutine psi_igthzv(n,idx,x,y) - use psb_const_mod - integer :: n, idx(:) - integer :: x(:), y(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: x(:), y(:) end subroutine psi_igthzv subroutine psi_cgthzv(n,idx,x,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: x(:), y(:) end subroutine psi_cgthzv subroutine psi_zgthzv(n,idx,x,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: x(:), y(:) end subroutine psi_zgthzv end interface @@ -179,53 +180,53 @@ module psi_serial_mod interface psi_sct subroutine psi_ssctmv(n,k,idx,x,beta,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: beta, x(:), y(:,:) end subroutine psi_ssctmv subroutine psi_ssctv(n,idx,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:), y(:) end subroutine psi_ssctv subroutine psi_dsctmv(n,k,idx,x,beta,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: beta, x(:), y(:,:) end subroutine psi_dsctmv subroutine psi_dsctv(n,idx,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:), y(:) end subroutine psi_dsctv subroutine psi_isctmv(n,k,idx,x,beta,y) - use psb_const_mod - integer :: n, k, idx(:) - integer :: beta, x(:), y(:,:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) + integer(psb_ipk_) :: beta, x(:), y(:,:) end subroutine psi_isctmv subroutine psi_isctv(n,idx,x,beta,y) - use psb_const_mod - integer :: n, idx(:) - integer :: beta, x(:), y(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: beta, x(:), y(:) end subroutine psi_isctv subroutine psi_csctmv(n,k,idx,x,beta,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: beta, x(:), y(:,:) end subroutine psi_csctmv subroutine psi_csctv(n,idx,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:), y(:) end subroutine psi_csctv subroutine psi_zsctmv(n,k,idx,x,beta,y) - use psb_const_mod - integer :: n, k, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: beta, x(:), y(:,:) end subroutine psi_zsctmv subroutine psi_zsctv(n,idx,x,beta,y) - use psb_const_mod - integer :: n, idx(:) + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:), y(:) end subroutine psi_zsctv end interface @@ -233,69 +234,69 @@ module psi_serial_mod interface psb_geaxpby subroutine psi_saxpbyv(m,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_saxpbyv subroutine psi_saxpby(m,n,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m, n + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m, n real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (inout) :: y(:,:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_saxpby subroutine psi_daxpbyv(m,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_daxpbyv subroutine psi_daxpby(m,n,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m, n + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m, n real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (inout) :: y(:,:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_daxpby subroutine psi_caxpbyv(m,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_caxpbyv subroutine psi_caxpby(m,n,alpha, x, beta, y, info) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ implicit none - integer, intent(in) :: m, n + integer(psb_ipk_), intent(in) :: m, n complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (inout) :: y(:,:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_caxpby subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zaxpbyv subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) - use psb_const_mod - integer, intent(in) :: m, n + import :: psb_ipk_, psb_spk_, psb_dpk_ + integer(psb_ipk_), intent(in) :: m, n complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (inout) :: y(:,:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zaxpby end interface diff --git a/base/modules/psi_z_mod.f90 b/base/modules/psi_z_mod.f90 index 57fd3917b..d13acf03c 100644 --- a/base/modules/psi_z_mod.f90 +++ b/base/modules/psi_z_mod.f90 @@ -30,211 +30,197 @@ !!$ !!$ module psi_z_mod + use psb_descriptor_type, only : psb_desc_type, psb_ipk_, psb_dpk_ + use psb_z_vect_mod, only : psb_z_base_vect_type interface psi_swapdata subroutine psi_zswapdatam(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswapdatam subroutine psi_zswapdatav(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswapdatav subroutine psi_zswapdata_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswapdata_vect subroutine psi_zswapidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_zswapidxm subroutine psi_zswapidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_zswapidxv subroutine psi_zswapidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_z_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_zswapidx_vect end interface interface psi_swaptran subroutine psi_zswaptranm(flag,n,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswaptranm subroutine psi_zswaptranv(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswaptranv subroutine psi_zswaptran_vect(flag,beta,y,desc_a,work,info,data) - use psb_descriptor_type, only : psb_desc_type, psb_dpk_ - use psb_z_base_vect_mod - integer, intent(in) :: flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_),target :: work(:) type(psb_desc_type), target :: desc_a - integer, optional :: data + integer(psb_ipk_), optional :: data end subroutine psi_zswaptran_vect subroutine psi_ztranidxm(ictxt,icomm,flag,n,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag, n - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag, n + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:,:), beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ztranidxm subroutine psi_ztranidxv(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: y(:), beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ztranidxv subroutine psi_ztranidx_vect(ictxt,icomm,flag,beta,y,idx,& & totxch,totsnd,totrcv,work,info) - use psb_const_mod - use psb_z_base_vect_mod - integer, intent(in) :: ictxt,icomm,flag - integer, intent(out) :: info + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type + integer(psb_ipk_), intent(in) :: ictxt,icomm,flag + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type) :: y complex(psb_dpk_) :: beta complex(psb_dpk_),target :: work(:) - integer, intent(in) :: idx(:),totxch,totsnd,totrcv + integer(psb_ipk_), intent(in) :: idx(:),totxch,totsnd,totrcv end subroutine psi_ztranidx_vect end interface interface psi_ovrl_upd subroutine psi_zovrl_updr1(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout), target :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_updr1 subroutine psi_zovrl_updr2(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout), target :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_updr2 subroutine psi_zovrl_upd_vect(x,desc_a,update,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_z_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type class(psb_z_base_vect_type) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: update - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: update + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_upd_vect end interface interface psi_ovrl_save subroutine psi_zovrl_saver1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_saver1 subroutine psi_zovrl_saver2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout) :: x(:,:) complex(psb_dpk_), allocatable :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_saver2 subroutine psi_zovrl_save_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_z_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type class(psb_z_base_vect_type) :: x complex(psb_dpk_), allocatable :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_save_vect end interface interface psi_ovrl_restore subroutine psi_zovrl_restrr1(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_restrr1 subroutine psi_zovrl_restrr2(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type complex(psb_dpk_), intent(inout) :: x(:,:) complex(psb_dpk_) :: xs(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_restrr2 subroutine psi_zovrl_restr_vect(x,xs,desc_a,info) - use psb_const_mod - use psb_descriptor_type, only: psb_desc_type - use psb_z_base_vect_mod + import :: psb_desc_type, psb_ipk_, psb_dpk_, psb_z_base_vect_type class(psb_z_base_vect_type) :: x complex(psb_dpk_) :: xs(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psi_zovrl_restr_vect end interface diff --git a/base/psblas/psb_camax.f90 b/base/psblas/psb_camax.f90 index 0b4154814..88b670472 100644 --- a/base/psblas/psb_camax.f90 +++ b/base/psblas/psb_camax.f90 @@ -51,12 +51,12 @@ function psb_camax(x,desc_a, info, jx) complex(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_) :: psb_camax ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, icamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -181,11 +181,11 @@ function psb_camaxv (x,desc_a, info) complex(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_camaxv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, icamax real(psb_spk_) :: amax complex(psb_spk_) :: cmax @@ -269,10 +269,10 @@ function psb_camax_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -397,11 +397,11 @@ subroutine psb_camaxvs(res,x,desc_a, info) complex(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(out) :: res ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, icamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -522,12 +522,12 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx) complex(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_), intent(out) :: res(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, i, k, icamax real(psb_spk_) :: amax character(len=20) :: name, ch_err diff --git a/base/psblas/psb_casum.f90 b/base/psblas/psb_casum.f90 index 4923bd08d..0af133c32 100644 --- a/base/psblas/psb_casum.f90 +++ b/base/psblas/psb_casum.f90 @@ -51,12 +51,12 @@ function psb_casum (x,desc_a, info, jx) complex(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_) :: psb_casum ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ix, ijx, m, i, idx, ndm real(psb_spk_) :: asum, scasum character(len=20) :: name, ch_err @@ -156,10 +156,10 @@ function psb_casum_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax real(psb_spk_) :: asum character(len=20) :: name, ch_err @@ -283,11 +283,11 @@ function psb_casumv(x,desc_a, info) complex(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_casumv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, i, idx, ndm real(psb_spk_) :: asum, scasum character(len=20) :: name, ch_err @@ -422,10 +422,10 @@ subroutine psb_casumvs(res,x,desc_a, info) complex(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, jx, m, i, idx, ndm real(psb_spk_) :: asum, scasum character(len=20) :: name, ch_err diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 02a54d392..d907096df 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -39,10 +39,10 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,& type(psb_c_vect_type), intent (inout) :: y complex(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err @@ -141,15 +141,15 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) implicit none - integer, intent(in), optional :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: n, jx, jy + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, ijx, ijy, m, iiy, in, jjy character(len=20) :: name, ch_err @@ -291,14 +291,14 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_caxpbyv implicit none - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: alpha, beta complex(psb_spk_), intent(in) :: x(:) complex(psb_spk_), intent(inout) :: y(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err logical, parameter :: debug=.false. diff --git a/base/psblas/psb_cdot.f90 b/base/psblas/psb_cdot.f90 index cd7a95726..79ef21867 100644 --- a/base/psblas/psb_cdot.f90 +++ b/base/psblas/psb_cdot.f90 @@ -60,10 +60,10 @@ function psb_cdot_vect(x, y, desc_a,info) result(res) complex(psb_spk_) :: res type(psb_c_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr complex(psb_spk_) :: dot_local character(len=20) :: name, ch_err @@ -160,12 +160,12 @@ function psb_cdot(x, y,desc_a, info, jx, jy) complex(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx, jy + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: psb_cdot ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr complex(psb_spk_) :: dot_local complex(psb_spk_) :: cdotc @@ -310,11 +310,11 @@ function psb_cdotv(x, y,desc_a, info) complex(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_) :: psb_cdotv ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m, nr complex(psb_spk_) :: dot_local complex(psb_spk_) :: cdotc @@ -445,10 +445,10 @@ subroutine psb_cdotvs(res, x, y,desc_a, info) complex(psb_spk_), intent(in) :: x(:), y(:) complex(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m,nr complex(psb_spk_) :: dot_local complex(psb_spk_) :: cdotc @@ -577,10 +577,10 @@ subroutine psb_cmdots(res, x, y, desc_a, info) complex(psb_spk_), intent(in) :: x(:,:), y(:,:) complex(psb_spk_), intent(out) :: res(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k, nr complex(psb_spk_),allocatable :: dot_local(:) complex(psb_spk_) :: cdotc diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index 670774ec1..cc58b3b16 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/base/psblas/psb_cnrm2.f90 @@ -53,12 +53,12 @@ function psb_cnrm2(x, desc_a, info, jx) complex(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_cnrm2 ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, scnrm2, dd @@ -190,11 +190,11 @@ function psb_cnrm2v(x, desc_a, info) complex(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_cnrm2v ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, scnrm2, dd @@ -281,10 +281,10 @@ function psb_cnrm2_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_c_vect_type), intent (inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, snrm2, dd !!$ external dcombnrm2 @@ -419,10 +419,10 @@ subroutine psb_cnrm2vs(res, x, desc_a, info) complex(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, scnrm2, dd diff --git a/base/psblas/psb_cnrmi.f90 b/base/psblas/psb_cnrmi.f90 index ad2b2ec0d..19757e665 100644 --- a/base/psblas/psb_cnrmi.f90 +++ b/base/psblas/psb_cnrmi.f90 @@ -46,12 +46,12 @@ function psb_cnrmi(a,desc_a,info) implicit none type(psb_cspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_spk_) :: psb_cnrmi ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iia, jja, ia, ja, mdim, ndim, m real(psb_spk_) :: nrmi character(len=20) :: name, ch_err diff --git a/base/psblas/psb_cspmm.f90 b/base/psblas/psb_cspmm.f90 index 95fff3ab4..f1cb60e01 100644 --- a/base/psblas/psb_cspmm.f90 +++ b/base/psblas/psb_cspmm.f90 @@ -73,24 +73,24 @@ subroutine psb_cspmm(alpha,a,x,beta,y,desc_a,info,& complex(psb_spk_), intent(inout), target :: y(:,:) type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: k, jx, jy logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, ijx, ijy,& & m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,& & i, ib, ib1, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_), pointer :: xp(:,:), yp(:,:), iwork(:) complex(psb_spk_), allocatable :: xvsave(:,:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmm' if(psb_get_errstatus() /= 0) return @@ -425,23 +425,23 @@ subroutine psb_cspmv(alpha,a,x,beta,y,desc_a,info,& complex(psb_spk_), intent(inout), target :: y(:) type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_), pointer :: iwork(:), xp(:), yp(:) complex(psb_spk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmv' if(psb_get_errstatus() /= 0) return @@ -686,23 +686,23 @@ subroutine psb_cspmv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_c_vect_type), intent(inout) :: y type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_), pointer :: iwork(:), xp(:), yp(:) complex(psb_spk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_cspmv' if (psb_errstatus_fatal()) return diff --git a/base/psblas/psb_cspsm.f90 b/base/psblas/psb_cspsm.f90 index 5ff943efd..7beb1baa2 100644 --- a/base/psblas/psb_cspsm.f90 +++ b/base/psblas/psb_cspsm.f90 @@ -84,21 +84,21 @@ subroutine psb_cspsm(alpha,a,x,beta,y,desc_a,info,& complex(psb_spk_), intent(inout), target :: y(:,:) type (psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional, target :: diag(:) complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: k, jx, jy ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, ijx, ijy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -363,20 +363,20 @@ subroutine psb_cspsv(alpha,a,x,beta,y,desc_a,info,& complex(psb_spk_), intent(inout), target :: y(:) type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), intent(in), optional, target :: diag(:) complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_),pointer :: iwork(:), xp(:), yp(:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -561,20 +561,20 @@ subroutine psb_cspsv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_c_vect_type), intent(inout) :: y type(psb_cspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_c_vect_type), intent(inout), optional :: diag complex(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_spk_),pointer :: iwork(:), xp(:), yp(:) character :: itrans character(len=20) :: name, ch_err diff --git a/base/psblas/psb_damax.f90 b/base/psblas/psb_damax.f90 index 65332f348..220c672ac 100644 --- a/base/psblas/psb_damax.f90 +++ b/base/psblas/psb_damax.f90 @@ -54,12 +54,12 @@ function psb_damax (x,desc_a, info, jx) real(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_) :: psb_damax ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, idamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -184,11 +184,11 @@ function psb_damaxv (x,desc_a, info) real(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_damaxv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, idamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -266,10 +266,10 @@ function psb_damax_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_d_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, idamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -393,11 +393,11 @@ subroutine psb_damaxvs (res,x,desc_a, info) real(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(out) :: res ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, idamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -513,12 +513,12 @@ subroutine psb_dmamaxs (res,x,desc_a, info,jx) real(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_), intent(out) :: res(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, i, k, idamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err diff --git a/base/psblas/psb_dasum.f90 b/base/psblas/psb_dasum.f90 index 0203df8a3..d43afa25d 100644 --- a/base/psblas/psb_dasum.f90 +++ b/base/psblas/psb_dasum.f90 @@ -55,12 +55,12 @@ function psb_dasum (x,desc_a, info, jx) real(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_) :: psb_dasum ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & iix, jjx, ix, ijx, m, i, idx, ndm real(psb_dpk_) :: asum, dasum character(len=20) :: name, ch_err @@ -199,11 +199,11 @@ function psb_dasumv (x,desc_a, info) real(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_dasumv ! locals - integer :: ictxt, np, me, err_act, iix, jjx, jx, ix, m, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, iix, jjx, jx, ix, m, i, idx, ndm real(psb_dpk_) :: asum, dasum character(len=20) :: name, ch_err @@ -294,10 +294,10 @@ function psb_dasum_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_d_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax real(psb_dpk_) :: asum character(len=20) :: name, ch_err @@ -423,10 +423,10 @@ subroutine psb_dasumvs(res,x,desc_a, info) real(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, iix, jjx, ix, jx, m, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, iix, jjx, ix, jx, m, i, idx, ndm real(psb_dpk_) :: asum, dasum character(len=20) :: name, ch_err diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 1c40a75de..d6d21a20a 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -40,10 +40,10 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,& type(psb_d_vect_type), intent (inout) :: y real(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err @@ -141,15 +141,15 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_daxpby implicit none - integer, intent(in), optional :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: n, jx, jy + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, ijx, ijy, m, iiy, in, jjy character(len=20) :: name, ch_err @@ -292,14 +292,14 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_daxpbyv implicit none - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_), intent(in) :: alpha, beta real(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(inout) :: y(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err diff --git a/base/psblas/psb_ddot.f90 b/base/psblas/psb_ddot.f90 index 5d05cf320..e6feedf53 100644 --- a/base/psblas/psb_ddot.f90 +++ b/base/psblas/psb_ddot.f90 @@ -60,10 +60,10 @@ function psb_ddot_vect(x, y, desc_a,info) result(res) real(psb_dpk_) :: res type(psb_d_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr real(psb_dpk_) :: dot_local real(psb_dpk_) :: ddot @@ -164,12 +164,12 @@ function psb_ddot(x, y,desc_a, info, jx, jy) real(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx, jy + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_ddot ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr real(psb_dpk_) :: dot_local real(psb_dpk_) :: ddot @@ -317,11 +317,11 @@ function psb_ddotv(x, y,desc_a, info) real(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_ddotv ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m, nr real(psb_dpk_) :: dot_local real(psb_dpk_) :: ddot @@ -453,10 +453,10 @@ subroutine psb_ddotvs(res, x, y,desc_a, info) real(psb_dpk_), intent(in) :: x(:), y(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, nr real(psb_dpk_) :: dot_local real(psb_dpk_) :: ddot @@ -585,10 +585,10 @@ subroutine psb_dmdots(res, x, y, desc_a, info) real(psb_dpk_), intent(in) :: x(:,:), y(:,:) real(psb_dpk_), intent(out) :: res(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k, nr real(psb_dpk_),allocatable :: dot_local(:) real(psb_dpk_) :: ddot diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index 264dedb4e..e1920bf30 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/base/psblas/psb_dnrm2.f90 @@ -53,12 +53,12 @@ function psb_dnrm2(x, desc_a, info, jx) real(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_dnrm2 ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dnrm2, dd !!$ external dcombnrm2 @@ -189,11 +189,11 @@ function psb_dnrm2v(x, desc_a, info) real(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_dnrm2v ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dnrm2, dd !!$ external dcombnrm2 @@ -278,10 +278,10 @@ function psb_dnrm2_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_d_vect_type), intent (inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dnrm2, dd !!$ external dcombnrm2 @@ -418,10 +418,10 @@ subroutine psb_dnrm2vs(res, x, desc_a, info) real(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dnrm2, dd !!$ external dcombnrm2 diff --git a/base/psblas/psb_dnrmi.f90 b/base/psblas/psb_dnrmi.f90 index 6d6d3adff..e85c4f5eb 100644 --- a/base/psblas/psb_dnrmi.f90 +++ b/base/psblas/psb_dnrmi.f90 @@ -51,12 +51,12 @@ function psb_dnrmi(a,desc_a,info) implicit none type(psb_dspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_) :: psb_dnrmi ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iia, jja, ia, ja, mdim, ndim, m real(psb_dpk_) :: nrmi character(len=20) :: name, ch_err diff --git a/base/psblas/psb_dspmm.f90 b/base/psblas/psb_dspmm.f90 index cd1a0b598..c3c38a88d 100644 --- a/base/psblas/psb_dspmm.f90 +++ b/base/psblas/psb_dspmm.f90 @@ -73,24 +73,24 @@ subroutine psb_dspmm(alpha,a,x,beta,y,desc_a,info,& real(psb_dpk_), intent(inout), target :: y(:,:) type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: k, jx, jy logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, ijx, ijy,& & m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,& & i, ib, ib1, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_), pointer :: xp(:,:), yp(:,:), iwork(:) real(psb_dpk_), allocatable :: xvsave(:,:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmm' if (psb_errstatus_fatal()) return @@ -426,23 +426,23 @@ subroutine psb_dspmv(alpha,a,x,beta,y,desc_a,info,& real(psb_dpk_), intent(inout), target :: y(:) type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_), pointer :: iwork(:), xp(:), yp(:) real(psb_dpk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmv' if (psb_errstatus_fatal()) return @@ -687,23 +687,23 @@ subroutine psb_dspmv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_d_vect_type), intent(inout) :: y type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_), pointer :: iwork(:), xp(:), yp(:) real(psb_dpk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_dspmv' if (psb_errstatus_fatal()) return diff --git a/base/psblas/psb_dspnrm1.f90 b/base/psblas/psb_dspnrm1.f90 index 6e8a81dc6..55e0fd6eb 100644 --- a/base/psblas/psb_dspnrm1.f90 +++ b/base/psblas/psb_dspnrm1.f90 @@ -53,12 +53,12 @@ function psb_dspnrm1(a,desc_a,info) implicit none type(psb_dspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_) :: psb_dspnrm1 ! locals - integer :: ictxt, np, me, nr,nc,& + integer(psb_ipk_) :: ictxt, np, me, nr,nc,& & err_act, n, iia, jja, ia, ja, mdim, ndim, m real(psb_dpk_) :: nrm1 character(len=20) :: name, ch_err diff --git a/base/psblas/psb_dspsm.f90 b/base/psblas/psb_dspsm.f90 index 8317196f3..089bc90fd 100644 --- a/base/psblas/psb_dspsm.f90 +++ b/base/psblas/psb_dspsm.f90 @@ -85,21 +85,21 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,& real(psb_dpk_), intent(inout), target :: y(:,:) type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional, target :: diag(:) real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: k, jx, jy ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, ijx, ijy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -364,20 +364,20 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,& real(psb_dpk_), intent(inout), target :: y(:) type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(in), optional, target :: diag(:) real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_),pointer :: iwork(:), xp(:), yp(:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -561,20 +561,20 @@ subroutine psb_dspsv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_d_vect_type), intent(inout) :: y type(psb_dspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_vect_type), intent(inout), optional :: diag real(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_dpk_),pointer :: iwork(:), xp(:), yp(:) character :: itrans character(len=20) :: name, ch_err diff --git a/base/psblas/psb_samax.f90 b/base/psblas/psb_samax.f90 index 53b420fd6..9388fb390 100644 --- a/base/psblas/psb_samax.f90 +++ b/base/psblas/psb_samax.f90 @@ -54,12 +54,12 @@ function psb_samax (x,desc_a, info, jx) real(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_) :: psb_samax ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -184,11 +184,11 @@ function psb_samaxv (x,desc_a, info) real(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_samaxv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -267,10 +267,10 @@ function psb_samax_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -394,11 +394,11 @@ subroutine psb_samaxvs (res,x,desc_a, info) real(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(out) :: res ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err @@ -514,12 +514,12 @@ subroutine psb_smamaxs (res,x,desc_a, info,jx) real(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_), intent(out) :: res(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, i, k, isamax real(psb_spk_) :: amax character(len=20) :: name, ch_err diff --git a/base/psblas/psb_sasum.f90 b/base/psblas/psb_sasum.f90 index 23d1310be..3469beaf7 100644 --- a/base/psblas/psb_sasum.f90 +++ b/base/psblas/psb_sasum.f90 @@ -55,12 +55,12 @@ function psb_sasum (x,desc_a, info, jx) real(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_spk_) :: psb_sasum ! locals - integer :: ictxt, np, me, err_act, & + integer(psb_ipk_) :: ictxt, np, me, err_act, & & iix, jjx, ix, ijx, m, i, idx, ndm real(psb_spk_) :: asum, sasum character(len=20) :: name, ch_err @@ -199,11 +199,11 @@ function psb_sasumv (x,desc_a, info) real(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_sasumv ! locals - integer :: ictxt, np, me, err_act, iix, jjx, jx, ix, m, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, iix, jjx, jx, ix, m, i, idx, ndm real(psb_spk_) :: asum, sasum character(len=20) :: name, ch_err @@ -294,10 +294,10 @@ function psb_sasum_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax real(psb_spk_) :: asum character(len=20) :: name, ch_err @@ -423,10 +423,10 @@ subroutine psb_sasumvs(res,x,desc_a, info) real(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, err_act, iix, jjx, ix, jx, m, i, idx, ndm + integer(psb_ipk_) :: ictxt, np, me, err_act, iix, jjx, ix, jx, m, i, idx, ndm real(psb_spk_) :: asum, sasum character(len=20) :: name, ch_err diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 0837cbcfc..71fed2278 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -39,10 +39,10 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,& type(psb_s_vect_type), intent (inout) :: y real(psb_spk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err @@ -139,15 +139,15 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_saxpby implicit none - integer, intent(in), optional :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: n, jx, jy + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: x(:,:) real(psb_spk_), intent(inout) :: y(:,:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, ijx, ijy, m, iiy, in, jjy character(len=20) :: name, ch_err @@ -290,14 +290,14 @@ subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_saxpbyv implicit none - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), intent(in) :: alpha, beta real(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(inout) :: y(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err diff --git a/base/psblas/psb_sdot.f90 b/base/psblas/psb_sdot.f90 index 268f91cd9..a3ecacfbd 100644 --- a/base/psblas/psb_sdot.f90 +++ b/base/psblas/psb_sdot.f90 @@ -60,10 +60,10 @@ function psb_sdot_vect(x, y, desc_a,info) result(res) real(psb_spk_) :: res type(psb_s_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr real(psb_spk_) :: dot_local real(psb_spk_) :: sdot @@ -164,12 +164,12 @@ function psb_sdot(x, y,desc_a, info, jx, jy) real(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx, jy + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_sdot ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m real(psb_spk_) :: dot_local real(psb_spk_) :: sdot @@ -317,11 +317,11 @@ function psb_sdotv(x, y,desc_a, info) real(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_sdotv ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m real(psb_spk_) :: dot_local real(psb_spk_) :: sdot @@ -452,10 +452,10 @@ subroutine psb_sdotvs(res, x, y,desc_a, info) real(psb_spk_), intent(in) :: x(:), y(:) real(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m real(psb_spk_) :: dot_local real(psb_spk_) :: sdot @@ -584,10 +584,10 @@ subroutine psb_smdots(res, x, y, desc_a, info) real(psb_spk_), intent(in) :: x(:,:), y(:,:) real(psb_spk_), intent(out) :: res(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k real(psb_spk_),allocatable :: dot_local(:) real(psb_spk_) :: sdot diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index 74c3a0821..14f642933 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/base/psblas/psb_snrm2.f90 @@ -53,12 +53,12 @@ function psb_snrm2(x, desc_a, info, jx) real(psb_spk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_snrm2 ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, snrm2, dd !!$ external scombnrm2 @@ -189,11 +189,11 @@ function psb_snrm2v(x, desc_a, info) real(psb_spk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_) :: psb_snrm2v ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, snrm2, dd !!$ external scombnrm2 @@ -278,10 +278,10 @@ function psb_snrm2_vect(x, desc_a, info) result(res) real(psb_spk_) :: res type(psb_s_vect_type), intent (inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, snrm2, dd !!$ external dcombnrm2 @@ -417,10 +417,10 @@ subroutine psb_snrm2vs(res, x, desc_a, info) real(psb_spk_), intent(in) :: x(:) real(psb_spk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_spk_) :: nrm2, snrm2, dd !!$ external scombnrm2 diff --git a/base/psblas/psb_snrmi.f90 b/base/psblas/psb_snrmi.f90 index 71942f743..697385f96 100644 --- a/base/psblas/psb_snrmi.f90 +++ b/base/psblas/psb_snrmi.f90 @@ -51,12 +51,12 @@ function psb_snrmi(a,desc_a,info) implicit none type(psb_sspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_spk_) :: psb_snrmi ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iia, jja, ia, ja, mdim, ndim, m real(psb_spk_) :: nrmi character(len=20) :: name, ch_err diff --git a/base/psblas/psb_sspmm.f90 b/base/psblas/psb_sspmm.f90 index 05f34a287..c9b7be145 100644 --- a/base/psblas/psb_sspmm.f90 +++ b/base/psblas/psb_sspmm.f90 @@ -73,24 +73,24 @@ subroutine psb_sspmm(alpha,a,x,beta,y,desc_a,info,& real(psb_spk_), intent(inout), target :: y(:,:) type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: k, jx, jy logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, ijx, ijy,& & m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,& & i, ib, ib1, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_), pointer :: xp(:,:), yp(:,:), iwork(:) real(psb_spk_), allocatable :: xvsave(:,:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmm' if(psb_get_errstatus() /= 0) return @@ -425,23 +425,23 @@ subroutine psb_sspmv(alpha,a,x,beta,y,desc_a,info,& real(psb_spk_), intent(inout), target :: y(:) type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_), pointer :: iwork(:), xp(:), yp(:) real(psb_spk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmv' if(psb_get_errstatus() /= 0) return @@ -685,23 +685,23 @@ subroutine psb_sspmv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_s_vect_type), intent(inout) :: y type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_), pointer :: iwork(:), xp(:), yp(:) real(psb_spk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_sspmv' if (psb_errstatus_fatal()) return diff --git a/base/psblas/psb_sspsm.f90 b/base/psblas/psb_sspsm.f90 index 08d1d6d22..09fc23f12 100644 --- a/base/psblas/psb_sspsm.f90 +++ b/base/psblas/psb_sspsm.f90 @@ -85,21 +85,21 @@ subroutine psb_sspsm(alpha,a,x,beta,y,desc_a,info,& real(psb_spk_), intent(inout), target :: y(:,:) type (psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional, target :: diag(:) real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: k, jx, jy ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, ijx, ijy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -364,20 +364,20 @@ subroutine psb_sspsv(alpha,a,x,beta,y,desc_a,info,& real(psb_spk_), intent(inout), target :: y(:) type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), intent(in), optional, target :: diag(:) real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_),pointer :: iwork(:), xp(:), yp(:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -561,20 +561,20 @@ subroutine psb_sspsv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_s_vect_type), intent(inout) :: y type(psb_sspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_s_vect_type), intent(inout), optional :: diag real(psb_spk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 real(psb_spk_),pointer :: iwork(:), xp(:), yp(:) character :: itrans character(len=20) :: name, ch_err diff --git a/base/psblas/psb_sxdot.f90 b/base/psblas/psb_sxdot.f90 index ce9f24042..98f88fa1f 100644 --- a/base/psblas/psb_sxdot.f90 +++ b/base/psblas/psb_sxdot.f90 @@ -57,12 +57,12 @@ function psb_sxdot(x, y,desc_a, info, jx, jy) real(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx, jy + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_sxdot ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m real(psb_dpk_) :: dot_local real(psb_dpk_) :: sxdot @@ -210,11 +210,11 @@ function psb_sxdotv(x, y,desc_a, info) real(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_sxdotv ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m real(psb_dpk_) :: dot_local real(psb_dpk_) :: sxdot @@ -295,10 +295,10 @@ end function psb_sxdotv function sxdot(n,x,ix,y,iy) use psb_const_mod real(psb_dpk_) :: sxdot - integer :: n,ix,iy + integer(psb_ipk_) :: n,ix,iy real(psb_spk_) :: x(*),y(*) real(psb_dpk_) :: tmp - integer :: i + integer(psb_ipk_) :: i if ((ix /= 1).or.(iy /= 1)) then write(psb_err_unit,*) 'WARNING unimplemented case in SXDOT' @@ -366,10 +366,10 @@ subroutine psb_sxdotvs(res, x, y,desc_a, info) real(psb_spk_), intent(in) :: x(:), y(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m real(psb_dpk_) :: dot_local real(psb_dpk_) :: sxdot @@ -498,10 +498,10 @@ subroutine psb_sxmdots(res, x, y, desc_a, info) real(psb_spk_), intent(in) :: x(:,:), y(:,:) real(psb_dpk_), intent(out) :: res(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k real(psb_dpk_),allocatable :: dot_local(:) real(psb_dpk_) :: sxdot diff --git a/base/psblas/psb_zamax.f90 b/base/psblas/psb_zamax.f90 index 466792e2e..5bf7cf8c6 100644 --- a/base/psblas/psb_zamax.f90 +++ b/base/psblas/psb_zamax.f90 @@ -54,12 +54,12 @@ function psb_zamax (x,desc_a, info, jx) complex(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_) :: psb_zamax ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, izamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -145,10 +145,10 @@ function psb_zamax_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, isamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -274,11 +274,11 @@ function psb_zamaxv (x,desc_a, info) complex(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_zamaxv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax, izamax real(psb_dpk_) :: amax complex(psb_dpk_) :: cmax @@ -401,11 +401,11 @@ subroutine psb_zamaxvs(res,x,desc_a, info) complex(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), intent(out) :: res ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, izamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err @@ -525,12 +525,12 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx) complex(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_), intent(out) :: res(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, ijx, m, imax, i, k, izamax real(psb_dpk_) :: amax character(len=20) :: name, ch_err diff --git a/base/psblas/psb_zasum.f90 b/base/psblas/psb_zasum.f90 index ff8986d08..777d9a032 100644 --- a/base/psblas/psb_zasum.f90 +++ b/base/psblas/psb_zasum.f90 @@ -55,12 +55,12 @@ function psb_zasum (x,desc_a, info, jx) complex(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: jx + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: jx real(psb_dpk_) :: psb_zasum ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ix, ijx, m, i, idx, ndm real(psb_dpk_) :: asum, dzasum character(len=20) :: name, ch_err @@ -160,10 +160,10 @@ function psb_zasum_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, imax real(psb_dpk_) :: asum character(len=20) :: name, ch_err @@ -291,11 +291,11 @@ function psb_zasumv(x,desc_a, info) complex(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_zasumv ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, jx, ix, m, i, idx, ndm real(psb_dpk_) :: asum, dzasum character(len=20) :: name, ch_err @@ -431,10 +431,10 @@ subroutine psb_zasumvs(res,x,desc_a, info) complex(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, jx, m, i, idx, ndm real(psb_dpk_) :: asum, dzasum character(len=20) :: name, ch_err diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index 6973e7689..fc7ec2110 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -39,10 +39,10 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,& type(psb_z_vect_type), intent (inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta type(psb_desc_type), intent (in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err @@ -140,15 +140,15 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_zaxpby implicit none - integer, intent(in), optional :: n, jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: n, jx, jy + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, ijx, ijy, m, iiy, in, jjy character(len=20) :: name, ch_err @@ -290,14 +290,14 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_zaxpbyv implicit none - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: alpha, beta complex(psb_dpk_), intent(in) :: x(:) complex(psb_dpk_), intent(inout) :: y(:) ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ix, iy, m, iiy, jjy character(len=20) :: name, ch_err logical, parameter :: debug=.false. diff --git a/base/psblas/psb_zdot.f90 b/base/psblas/psb_zdot.f90 index d1b28a865..cd2682573 100644 --- a/base/psblas/psb_zdot.f90 +++ b/base/psblas/psb_zdot.f90 @@ -60,10 +60,10 @@ function psb_zdot_vect(x, y, desc_a,info) result(res) complex(psb_dpk_) :: res type(psb_z_vect_type), intent(inout) :: x, y type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m, nr complex(psb_dpk_) :: dot_local character(len=20) :: name, ch_err @@ -163,12 +163,12 @@ function psb_zdot(x, y,desc_a, info, jx, jy) complex(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx, jy - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx, jy + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: psb_zdot ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, ijx, iy, ijy, iiy, jjy, i, m complex(psb_dpk_) :: dot_local complex(psb_dpk_) :: zdotc @@ -316,11 +316,11 @@ function psb_zdotv(x, y,desc_a, info) complex(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_) :: psb_zdotv ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, jx, iy, jy, iiy, jjy, i, m complex(psb_dpk_) :: dot_local complex(psb_dpk_) :: zdotc @@ -451,10 +451,10 @@ subroutine psb_zdotvs(res, x, y,desc_a, info) complex(psb_dpk_), intent(in) :: x(:), y(:) complex(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m complex(psb_dpk_) :: dot_local complex(psb_dpk_) :: zdotc @@ -583,10 +583,10 @@ subroutine psb_zmdots(res, x, y, desc_a, info) complex(psb_dpk_), intent(in) :: x(:,:), y(:,:) complex(psb_dpk_), intent(out) :: res(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me, idx, ndm,& + integer(psb_ipk_) :: ictxt, np, me, idx, ndm,& & err_act, iix, jjx, ix, iy, iiy, jjy, i, m, j, k complex(psb_dpk_),allocatable :: dot_local(:) complex(psb_dpk_) :: zdotc diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index 9eba9484d..8938136df 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/base/psblas/psb_znrm2.f90 @@ -53,12 +53,12 @@ function psb_znrm2(x, desc_a, info, jx) complex(psb_dpk_), intent(in) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(in), optional :: jx - integer, intent(out) :: info + integer(psb_ipk_), intent(in), optional :: jx + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_znrm2 ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, ijx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dznrm2, dd @@ -190,11 +190,11 @@ function psb_znrm2v(x, desc_a, info) complex(psb_dpk_), intent(in) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_) :: psb_znrm2v ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dznrm2, dd @@ -280,10 +280,10 @@ function psb_znrm2_vect(x, desc_a, info) result(res) real(psb_dpk_) :: res type(psb_z_vect_type), intent (inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2 character(len=20) :: name, ch_err @@ -417,10 +417,10 @@ subroutine psb_znrm2vs(res, x, desc_a, info) complex(psb_dpk_), intent(in) :: x(:) real(psb_dpk_), intent(out) :: res type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ndim, ix, jx, i, m, id, idx, ndm real(psb_dpk_) :: nrm2, dznrm2, dd diff --git a/base/psblas/psb_znrmi.f90 b/base/psblas/psb_znrmi.f90 index 84e12791e..0cd5186df 100644 --- a/base/psblas/psb_znrmi.f90 +++ b/base/psblas/psb_znrmi.f90 @@ -51,12 +51,12 @@ function psb_znrmi(a,desc_a,info) implicit none type(psb_zspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_) :: psb_znrmi ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iia, jja, ia, ja, mdim, ndim, m real(psb_dpk_) :: nrmi character(len=20) :: name, ch_err diff --git a/base/psblas/psb_zspmm.f90 b/base/psblas/psb_zspmm.f90 index f1c818cc2..f62c707c7 100644 --- a/base/psblas/psb_zspmm.f90 +++ b/base/psblas/psb_zspmm.f90 @@ -73,24 +73,24 @@ subroutine psb_zspmm(alpha,a,x,beta,y,desc_a,info,& complex(psb_dpk_), intent(inout), target :: y(:,:) type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: k, jx, jy logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, ijx, ijy,& & m, nrow, ncol, lldx, lldy, liwork, iiy, jjy,& & i, ib, ib1, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_), pointer :: xp(:,:), yp(:,:), iwork(:) complex(psb_dpk_), allocatable :: xvsave(:,:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmm' if(psb_get_errstatus() /= 0) return @@ -425,23 +425,23 @@ subroutine psb_zspmv(alpha,a,x,beta,y,desc_a,info,& complex(psb_dpk_), intent(inout), target :: y(:) type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_), pointer :: iwork(:), xp(:), yp(:) complex(psb_dpk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmv' if(psb_get_errstatus() /= 0) return @@ -685,23 +685,23 @@ subroutine psb_zspmv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_z_vect_type), intent(inout) :: y type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans logical, intent(in), optional :: doswap ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, n, iix, jjx, ia, ja, iia, jja, ix, iy, ik, & & m, nrow, ncol, lldx, lldy, liwork, jx, jy, iiy, jjy,& & ib, ip, idx - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_), pointer :: iwork(:), xp(:), yp(:) complex(psb_dpk_), allocatable :: xvsave(:) character :: trans_ character(len=20) :: name, ch_err logical :: aliw, doswap_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit name='psb_zspmv' if (psb_errstatus_fatal()) return diff --git a/base/psblas/psb_zspsm.f90 b/base/psblas/psb_zspsm.f90 index 10855016c..d622547bf 100644 --- a/base/psblas/psb_zspsm.f90 +++ b/base/psblas/psb_zspsm.f90 @@ -84,21 +84,21 @@ subroutine psb_zspsm(alpha,a,x,beta,y,desc_a,info,& complex(psb_dpk_), intent(inout), target :: y(:,:) type (psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional, target :: diag(:) complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice - integer, intent(in), optional :: k, jx, jy + integer(psb_ipk_), intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: k, jx, jy ! locals - integer :: ictxt, np, me,& + integer(psb_ipk_) :: ictxt, np, me,& & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, ijx, ijy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_),pointer :: iwork(:), xp(:,:), yp(:,:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -363,20 +363,20 @@ subroutine psb_zspsv(alpha,a,x,beta,y,desc_a,info,& complex(psb_dpk_), intent(inout), target :: y(:) type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), intent(in), optional, target :: diag(:) complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_),pointer :: iwork(:), xp(:), yp(:), id(:) character :: itrans character(len=20) :: name, ch_err @@ -561,20 +561,20 @@ subroutine psb_zspsv_vect(alpha,a,x,beta,y,desc_a,info,& type(psb_z_vect_type), intent(inout) :: y type(psb_zspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_z_vect_type), intent(inout), optional :: diag complex(psb_dpk_), optional, target, intent(inout) :: work(:) character, intent(in), optional :: trans, scale - integer, intent(in), optional :: choice + integer(psb_ipk_), intent(in), optional :: choice ! locals - integer :: ictxt, np, me, & + integer(psb_ipk_) :: ictxt, np, me, & & err_act, iix, jjx, ia, ja, iia, jja, lldx,lldy, choice_,& & ix, iy, ik, jx, jy, i, lld,& & m, nrow, ncol, liwork, llwork, iiy, jjy, idx, ndm character :: lscale - integer, parameter :: nb=4 + integer(psb_ipk_), parameter :: nb=4 complex(psb_dpk_),pointer :: iwork(:), xp(:), yp(:) character :: itrans character(len=20) :: name, ch_err diff --git a/base/serial/aux/calsr.f90 b/base/serial/aux/calsr.f90 index 607e1c9a2..e9dc7cfe0 100644 --- a/base/serial/aux/calsr.f90 +++ b/base/serial/aux/calsr.f90 @@ -39,16 +39,16 @@ subroutine calsr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_spk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine icalsr_up(n,x) use calcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine icalsr_dw(n,x) use calcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/calsrx.f90 b/base/serial/aux/calsrx.f90 index 52c8f0576..57340d9a2 100644 --- a/base/serial/aux/calsrx.f90 +++ b/base/serial/aux/calsrx.f90 @@ -38,17 +38,17 @@ subroutine calsrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine icalsrx_up(n,x,indx) use calcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine icalsrx_dw(n,x,indx) use calcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/camsort_dw.f90 b/base/serial/aux/camsort_dw.f90 index 92e52b81d..9bb075bc0 100644 --- a/base/serial/aux/camsort_dw.f90 +++ b/base/serial/aux/camsort_dw.f90 @@ -71,11 +71,11 @@ subroutine camsort_dw(n,k,l,iret) use cacmp_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret complex(psb_spk_) :: k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/camsort_up.f90 b/base/serial/aux/camsort_up.f90 index 798867e1f..7a7c3c1ea 100644 --- a/base/serial/aux/camsort_up.f90 +++ b/base/serial/aux/camsort_up.f90 @@ -71,11 +71,11 @@ subroutine camsort_up(n,k,l,iret) use cacmp_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret complex(psb_spk_) k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/camsr.f90 b/base/serial/aux/camsr.f90 index 82a90b38d..b2b788b76 100644 --- a/base/serial/aux/camsr.f90 +++ b/base/serial/aux/camsr.f90 @@ -37,13 +37,13 @@ subroutine camsr(n,x,idir) use psb_ip_reord_mod implicit none - integer :: n, idir + integer(psb_ipk_) :: n, idir complex(psb_spk_) :: x(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: lswap, iret, info, lp, k + integer(psb_ipk_) :: lswap, iret, info, lp, k complex(psb_spk_) :: swap if (n<0) then diff --git a/base/serial/aux/camsrx.f90 b/base/serial/aux/camsrx.f90 index edb53f409..f0d696529 100644 --- a/base/serial/aux/camsrx.f90 +++ b/base/serial/aux/camsrx.f90 @@ -36,13 +36,13 @@ subroutine camsrx(n,x,indx,idir,flag) use psb_serial_mod use psb_ip_reord_mod implicit none - integer :: n,idir,flag + integer(psb_ipk_) :: n,idir,flag complex(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iret, info, lp, k,lswap, ixswap + integer(psb_ipk_) :: iret, info, lp, k,lswap, ixswap complex(psb_spk_) :: swap if (n<0) then diff --git a/base/serial/aux/casr.f90 b/base/serial/aux/casr.f90 index 4efdeb538..18b368110 100644 --- a/base/serial/aux/casr.f90 +++ b/base/serial/aux/casr.f90 @@ -39,16 +39,16 @@ subroutine casr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_spk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine icasr_up(n,x) use cacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine icasr_dw(n,x) use cacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/casrx.f90 b/base/serial/aux/casrx.f90 index 88b92c8c4..30bdf5fc2 100644 --- a/base/serial/aux/casrx.f90 +++ b/base/serial/aux/casrx.f90 @@ -38,17 +38,17 @@ subroutine casrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine icasrx_up(n,x,indx) use cacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine icasrx_dw(n,x,indx) use cacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/clsr.f90 b/base/serial/aux/clsr.f90 index 0f7818058..d8622b72f 100644 --- a/base/serial/aux/clsr.f90 +++ b/base/serial/aux/clsr.f90 @@ -39,16 +39,16 @@ subroutine clsr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_spk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine iclsr_up(n,x) use clcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine iclsr_dw(n,x) use clcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/clsrx.f90 b/base/serial/aux/clsrx.f90 index 648fbafd6..16ff26ae4 100644 --- a/base/serial/aux/clsrx.f90 +++ b/base/serial/aux/clsrx.f90 @@ -38,17 +38,17 @@ subroutine clsrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_spk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine iclsrx_up(n,x,indx) use clcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine iclsrx_dw(n,x,indx) use clcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/dasr.f90 b/base/serial/aux/dasr.f90 index 9060a4a85..e47576711 100644 --- a/base/serial/aux/dasr.f90 +++ b/base/serial/aux/dasr.f90 @@ -38,16 +38,16 @@ subroutine dasr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir real(psb_dpk_) :: x(n) ! .. ! .. Local Scalars .. real(psb_dpk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -314,9 +314,9 @@ contains subroutine disr_up(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_dpk_) :: xx,xax do j=n-1,1,-1 @@ -337,9 +337,9 @@ contains subroutine disr_dw(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_dpk_) :: xx,xax do j=n-1,1,-1 diff --git a/base/serial/aux/dasrx.f90 b/base/serial/aux/dasrx.f90 index 2fa37cd70..d9d96aa48 100644 --- a/base/serial/aux/dasrx.f90 +++ b/base/serial/aux/dasrx.f90 @@ -37,17 +37,17 @@ subroutine dasrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag real(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. real(psb_dpk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -354,10 +354,10 @@ contains subroutine idasrx_up(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_dpk_) :: xx,xax do j=n-1,1,-1 @@ -381,10 +381,10 @@ contains subroutine idasrx_dw(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_dpk_) :: xx,xax do j=n-1,1,-1 diff --git a/base/serial/aux/dmsort_dw.f90 b/base/serial/aux/dmsort_dw.f90 index 4d741149f..522dea92d 100644 --- a/base/serial/aux/dmsort_dw.f90 +++ b/base/serial/aux/dmsort_dw.f90 @@ -71,11 +71,11 @@ subroutine dmsort_dw(n,k,l,iret) use psb_const_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret real(psb_dpk_) :: k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/dmsort_up.f90 b/base/serial/aux/dmsort_up.f90 index 8a0800721..e5a143de6 100644 --- a/base/serial/aux/dmsort_up.f90 +++ b/base/serial/aux/dmsort_up.f90 @@ -71,11 +71,11 @@ subroutine dmsort_up(n,k,l,iret) use psb_const_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret real(psb_dpk_) k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/dmsr.f90 b/base/serial/aux/dmsr.f90 index 9cca22c51..04d64a448 100644 --- a/base/serial/aux/dmsr.f90 +++ b/base/serial/aux/dmsr.f90 @@ -37,13 +37,13 @@ subroutine dmsr(n,x,idir) use psb_ip_reord_mod implicit none - integer :: n, idir + integer(psb_ipk_) :: n, idir real(psb_dpk_) :: x(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: lswap, iret, info, lp, k + integer(psb_ipk_) :: lswap, iret, info, lp, k real(psb_dpk_) :: swap if (n<0) then diff --git a/base/serial/aux/dmsrx.f90 b/base/serial/aux/dmsrx.f90 index f4eff016d..ed5ca133d 100644 --- a/base/serial/aux/dmsrx.f90 +++ b/base/serial/aux/dmsrx.f90 @@ -36,13 +36,13 @@ subroutine dmsrx(n,x,indx,idir,flag) use psb_serial_mod use psb_ip_reord_mod implicit none - integer :: n,idir,flag + integer(psb_ipk_) :: n,idir,flag real(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iret, info, lp, k,lswap, ixswap + integer(psb_ipk_) :: iret, info, lp, k,lswap, ixswap real(psb_dpk_) :: swap if (n<0) then diff --git a/base/serial/aux/dsr.f90 b/base/serial/aux/dsr.f90 index 0e01752cd..92f17f10e 100644 --- a/base/serial/aux/dsr.f90 +++ b/base/serial/aux/dsr.f90 @@ -38,16 +38,16 @@ subroutine dsr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir real(psb_dpk_) :: x(n) ! .. ! .. Local Scalars .. real(psb_dpk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -314,9 +314,9 @@ contains subroutine disr_up(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_dpk_) :: xx do j=n-1,1,-1 @@ -336,9 +336,9 @@ contains subroutine disr_dw(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/dsrx.f90 b/base/serial/aux/dsrx.f90 index 864054424..02f582cf1 100644 --- a/base/serial/aux/dsrx.f90 +++ b/base/serial/aux/dsrx.f90 @@ -37,17 +37,17 @@ subroutine dsrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag real(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. real(psb_dpk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -357,10 +357,10 @@ contains subroutine idsrx_up(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_dpk_) :: xx do j=n-1,1,-1 @@ -383,10 +383,10 @@ contains subroutine idsrx_dw(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/iasr.f90 b/base/serial/aux/iasr.f90 index 347a032cc..dd45383bd 100644 --- a/base/serial/aux/iasr.f90 +++ b/base/serial/aux/iasr.f90 @@ -38,16 +38,16 @@ subroutine iasr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir - integer :: x(n) + integer(psb_ipk_), intent(in) :: n, dir + integer(psb_ipk_) :: x(n) ! .. ! .. Local Scalars .. - integer :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: piv, xt, xk + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -314,10 +314,10 @@ contains subroutine iaisr_up(n,x) implicit none - integer :: n - integer :: x(n) - integer :: i,j - integer :: xx,xax + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: i,j + integer(psb_ipk_) :: xx,xax do j=n-1,1,-1 if (abs(x(j+1)) < abs(x(j))) then @@ -337,10 +337,10 @@ contains subroutine iaisr_dw(n,x) implicit none - integer :: n - integer :: x(n) - integer :: i,j - integer :: xx,xax + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: i,j + integer(psb_ipk_) :: xx,xax do j=n-1,1,-1 if (abs(x(j+1)) > abs(x(j))) then diff --git a/base/serial/aux/iasrx.f90 b/base/serial/aux/iasrx.f90 index 5f1167534..9fc3ad5d5 100644 --- a/base/serial/aux/iasrx.f90 +++ b/base/serial/aux/iasrx.f90 @@ -37,17 +37,17 @@ subroutine iasrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag - integer :: x(n) - integer :: indx(n) + integer(psb_ipk_), intent(in) :: n, dir, flag + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. - integer :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: piv, xt, xk + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -355,11 +355,11 @@ contains subroutine iiasrx_up(n,x,indx) implicit none - integer :: n - integer :: x(n) - integer :: indx(n) - integer :: i,j,ix - integer :: xx,xax + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix + integer(psb_ipk_) :: xx,xax do j=n-1,1,-1 if (abs(x(j+1)) < abs(x(j))) then @@ -382,11 +382,11 @@ contains subroutine iiasrx_dw(n,x,indx) implicit none - integer :: n - integer :: x(n) - integer :: indx(n) - integer :: i,j,ix - integer :: xx,xax + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix + integer(psb_ipk_) :: xx,xax do j=n-1,1,-1 if (abs(x(j+1)) > abs(x(j))) then diff --git a/base/serial/aux/ibsrch.f b/base/serial/aux/ibsrch.f index 3f0892521..81138ef86 100644 --- a/base/serial/aux/ibsrch.f +++ b/base/serial/aux/ibsrch.f @@ -30,11 +30,12 @@ C POSSIBILITY OF SUCH DAMAGE. C C subroutine ibsrch(ipos,key,n,v) + use psb_serial_mod implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) - integer lb, ub, m + integer(psb_ipk_) :: lb, ub, m lb = 1 diff --git a/base/serial/aux/imsr.f90 b/base/serial/aux/imsr.f90 index 2da2c1e33..cf6ddcfdf 100644 --- a/base/serial/aux/imsr.f90 +++ b/base/serial/aux/imsr.f90 @@ -37,14 +37,14 @@ subroutine imsr(n,x,idir) use psb_ip_reord_mod implicit none - integer :: n, idir - integer :: x(n) + integer(psb_ipk_) :: n, idir + integer(psb_ipk_) :: x(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iswap, iret, info, lp, k - integer :: lswap + integer(psb_ipk_) :: iswap, iret, info, lp, k + integer(psb_ipk_) :: lswap if (n<0) then return diff --git a/base/serial/aux/imsru.f90 b/base/serial/aux/imsru.f90 index 3464a08b4..356f7c93a 100644 --- a/base/serial/aux/imsru.f90 +++ b/base/serial/aux/imsru.f90 @@ -35,11 +35,11 @@ subroutine imsru(n,x,idir,nout) use psb_serial_mod implicit none - integer :: n, idir,nout - integer :: x(n) + integer(psb_ipk_) :: n, idir,nout + integer(psb_ipk_) :: x(n) - integer :: k + integer(psb_ipk_) :: k nout = 0 if (n<0) then diff --git a/base/serial/aux/imsrx.f90 b/base/serial/aux/imsrx.f90 index 3f7504f8e..58970783e 100644 --- a/base/serial/aux/imsrx.f90 +++ b/base/serial/aux/imsrx.f90 @@ -36,14 +36,14 @@ subroutine imsrx(n,x,indx,idir,flag) use psb_serial_mod use psb_ip_reord_mod implicit none - integer :: n,idir,flag - integer :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: n,idir,flag + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iswap, iret, info, lp, k - integer :: lswap, ixswap + integer(psb_ipk_) :: iswap, iret, info, lp, k + integer(psb_ipk_) :: lswap, ixswap if (n<0) then return diff --git a/base/serial/aux/isaperm.f b/base/serial/aux/isaperm.f index 3cdd29384..65488ab1e 100644 --- a/base/serial/aux/isaperm.f +++ b/base/serial/aux/isaperm.f @@ -46,16 +46,18 @@ C * * *********************************************************************** LOGICAL FUNCTION ISAPERM(N,IP) + use psb_serial_mod + implicit none C .. Scalar Arguments .. - INTEGER N -C .. -C .. Array Arguments .. - INTEGER IP(N) -C .. -C .. Local Scalars .. - INTEGER I,J,M + integer(psb_ipk_) :: n +c .. +c .. array arguments .. + integer(psb_ipk_) :: ip(n) +c .. +c .. local scalars .. + integer(psb_ipk_) :: i,J,M C .. ISAPERM = .TRUE. diff --git a/base/serial/aux/isr.f90 b/base/serial/aux/isr.f90 index 625d0aaaf..40c65ba58 100644 --- a/base/serial/aux/isr.f90 +++ b/base/serial/aux/isr.f90 @@ -38,16 +38,16 @@ subroutine isr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir - integer :: x(n) + integer(psb_ipk_), intent(in) :: n, dir + integer(psb_ipk_) :: x(n) ! .. ! .. Local Scalars .. - integer :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: xk, piv, xt + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -315,10 +315,10 @@ contains subroutine iisr_up(n,x) implicit none - integer :: n - integer :: x(n) - integer :: i,j - integer :: xx + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: i,j + integer(psb_ipk_) :: xx do j=n-1,1,-1 if (x(j+1) < x(j)) then @@ -337,10 +337,10 @@ contains subroutine iisr_dw(n,x) implicit none - integer :: n - integer :: x(n) - integer :: i,j - integer :: xx + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: i,j + integer(psb_ipk_) :: xx do j=n-1,1,-1 if (x(j+1) > x(j)) then diff --git a/base/serial/aux/isrx.f90 b/base/serial/aux/isrx.f90 index baa2e2e16..5e5ba4135 100644 --- a/base/serial/aux/isrx.f90 +++ b/base/serial/aux/isrx.f90 @@ -37,16 +37,16 @@ subroutine isrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag - integer :: x(n), indx(n) + integer(psb_ipk_), intent(in) :: n, dir, flag + integer(psb_ipk_) :: x(n), indx(n) ! .. ! .. Local Scalars .. - integer :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: piv, xk, xt + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -357,11 +357,11 @@ contains subroutine iisrx_up(n,x,indx) implicit none - integer :: n - integer :: x(n) - integer :: indx(n) - integer :: i,j,ix - integer :: xx + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix + integer(psb_ipk_) :: xx do j=n-1,1,-1 if (x(j+1) < x(j)) then @@ -383,11 +383,11 @@ contains subroutine iisrx_dw(n,x,indx) implicit none - integer :: n - integer :: x(n) - integer :: indx(n) - integer :: i,j,ix - integer :: xx + integer(psb_ipk_) :: n + integer(psb_ipk_) :: x(n) + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix + integer(psb_ipk_) :: xx do j=n-1,1,-1 if (x(j+1) > x(j)) then diff --git a/base/serial/aux/issrch.f b/base/serial/aux/issrch.f index c6b5abf53..26c934f14 100644 --- a/base/serial/aux/issrch.f +++ b/base/serial/aux/issrch.f @@ -30,11 +30,13 @@ C POSSIBILITY OF SUCH DAMAGE. C C subroutine issrch(ipos,key,n,v) + use psb_serial_mod + implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) - integer i + integer(psb_ipk_) :: i ipos = -1 diff --git a/base/serial/aux/msort_dw.f90 b/base/serial/aux/msort_dw.f90 index 8d84b3461..3419229a8 100644 --- a/base/serial/aux/msort_dw.f90 +++ b/base/serial/aux/msort_dw.f90 @@ -69,11 +69,12 @@ ! ! subroutine msort_dw(n,k,l,iret) + use psb_serial_mod implicit none - integer n, iret - integer k(n),l(0:n+1) + integer(psb_ipk_) :: n, iret + integer(psb_ipk_) :: k(n),l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/msort_up.f90 b/base/serial/aux/msort_up.f90 index 332487270..0b878e17b 100644 --- a/base/serial/aux/msort_up.f90 +++ b/base/serial/aux/msort_up.f90 @@ -69,11 +69,12 @@ ! ! subroutine msort_up(n,k,l,iret) + use psb_serial_mod implicit none - integer n, iret - integer k(n),l(0:n+1) + integer(psb_ipk_) :: n, iret + integer(psb_ipk_) :: k(n),l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/sasr.f90 b/base/serial/aux/sasr.f90 index dad106936..43ef7721e 100644 --- a/base/serial/aux/sasr.f90 +++ b/base/serial/aux/sasr.f90 @@ -38,16 +38,16 @@ subroutine sasr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir real(psb_spk_) :: x(n) ! .. ! .. Local Scalars .. real(psb_spk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -314,9 +314,9 @@ contains subroutine sisr_up(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_spk_) :: xx,xax do j=n-1,1,-1 @@ -337,9 +337,9 @@ contains subroutine sisr_dw(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_spk_) :: xx,xax do j=n-1,1,-1 diff --git a/base/serial/aux/sasrx.f90 b/base/serial/aux/sasrx.f90 index ac7488e1e..a933eeb5a 100644 --- a/base/serial/aux/sasrx.f90 +++ b/base/serial/aux/sasrx.f90 @@ -37,17 +37,17 @@ subroutine sasrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag real(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. real(psb_spk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -355,10 +355,10 @@ contains subroutine isasrx_up(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_spk_) :: xx,xax do j=n-1,1,-1 @@ -382,10 +382,10 @@ contains subroutine isasrx_dw(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_spk_) :: xx,xax do j=n-1,1,-1 diff --git a/base/serial/aux/smsort_dw.f90 b/base/serial/aux/smsort_dw.f90 index b72b765cc..338b2597a 100644 --- a/base/serial/aux/smsort_dw.f90 +++ b/base/serial/aux/smsort_dw.f90 @@ -71,11 +71,11 @@ subroutine smsort_dw(n,k,l,iret) use psb_const_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret real(psb_spk_) :: k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/smsort_up.f90 b/base/serial/aux/smsort_up.f90 index 0c94e0937..f56ec37fa 100644 --- a/base/serial/aux/smsort_up.f90 +++ b/base/serial/aux/smsort_up.f90 @@ -71,11 +71,11 @@ subroutine smsort_up(n,k,l,iret) use psb_const_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret real(psb_spk_) k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/smsr.f90 b/base/serial/aux/smsr.f90 index 690226edc..48235cecd 100644 --- a/base/serial/aux/smsr.f90 +++ b/base/serial/aux/smsr.f90 @@ -37,13 +37,13 @@ subroutine smsr(n,x,idir) use psb_ip_reord_mod implicit none - integer :: n, idir + integer(psb_ipk_) :: n, idir real(psb_spk_) :: x(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: lswap, iret, info, lp, k + integer(psb_ipk_) :: lswap, iret, info, lp, k real(psb_spk_) :: swap if (n<0) then diff --git a/base/serial/aux/smsrx.f90 b/base/serial/aux/smsrx.f90 index 4b46c585c..8b231bbe4 100644 --- a/base/serial/aux/smsrx.f90 +++ b/base/serial/aux/smsrx.f90 @@ -36,13 +36,13 @@ subroutine smsrx(n,x,indx,idir,flag) use psb_serial_mod use psb_ip_reord_mod implicit none - integer :: n,idir,flag + integer(psb_ipk_) :: n,idir,flag real(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iret, info, lp, k,lswap, ixswap + integer(psb_ipk_) :: iret, info, lp, k,lswap, ixswap real(psb_spk_) :: swap if (n<0) then diff --git a/base/serial/aux/ssr.f90 b/base/serial/aux/ssr.f90 index 4c299bf93..b45f32b36 100644 --- a/base/serial/aux/ssr.f90 +++ b/base/serial/aux/ssr.f90 @@ -38,16 +38,16 @@ subroutine ssr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir real(psb_spk_) :: x(n) ! .. ! .. Local Scalars .. real(psb_spk_) :: piv, xt, xk - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -314,9 +314,9 @@ contains subroutine sisr_up(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_spk_) :: xx do j=n-1,1,-1 @@ -336,9 +336,9 @@ contains subroutine sisr_dw(n,x) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j real(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/ssrx.f90 b/base/serial/aux/ssrx.f90 index b2178b519..d202d0fab 100644 --- a/base/serial/aux/ssrx.f90 +++ b/base/serial/aux/ssrx.f90 @@ -37,17 +37,17 @@ subroutine ssrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag real(psb_spk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. real(psb_spk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -357,10 +357,10 @@ contains subroutine issrx_up(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_spk_) :: xx do j=n-1,1,-1 @@ -383,10 +383,10 @@ contains subroutine issrx_dw(n,x,indx) implicit none - integer :: n + integer(psb_ipk_) :: n real(psb_spk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix real(psb_spk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zalsr.f90 b/base/serial/aux/zalsr.f90 index 715539a6f..6a38f36fa 100644 --- a/base/serial/aux/zalsr.f90 +++ b/base/serial/aux/zalsr.f90 @@ -39,16 +39,16 @@ subroutine zalsr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_dpk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine izalsr_up(n,x) use zalcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine izalsr_dw(n,x) use zalcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zalsrx.f90 b/base/serial/aux/zalsrx.f90 index ba5f97630..fc2b75fa6 100644 --- a/base/serial/aux/zalsrx.f90 +++ b/base/serial/aux/zalsrx.f90 @@ -38,17 +38,17 @@ subroutine zalsrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine izalsrx_up(n,x,indx) use zalcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine izalsrx_dw(n,x,indx) use zalcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zamsort_dw.f90 b/base/serial/aux/zamsort_dw.f90 index 4a2075337..cefba1e3d 100644 --- a/base/serial/aux/zamsort_dw.f90 +++ b/base/serial/aux/zamsort_dw.f90 @@ -71,11 +71,11 @@ subroutine zamsort_dw(n,k,l,iret) use zacmp_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret complex(psb_dpk_) :: k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/zamsort_up.f90 b/base/serial/aux/zamsort_up.f90 index 6dda56b82..0e26f42a4 100644 --- a/base/serial/aux/zamsort_up.f90 +++ b/base/serial/aux/zamsort_up.f90 @@ -71,11 +71,11 @@ subroutine zamsort_up(n,k,l,iret) use zacmp_mod implicit none - integer n, iret + integer(psb_ipk_) :: n, iret complex(psb_dpk_) k(n) - integer l(0:n+1) + integer(psb_ipk_) :: l(0:n+1) ! - integer p,q,s,t + integer(psb_ipk_) :: p,q,s,t intrinsic iabs,isign ! .. iret = 0 diff --git a/base/serial/aux/zamsr.f90 b/base/serial/aux/zamsr.f90 index 3f62f20d3..46dadc2d5 100644 --- a/base/serial/aux/zamsr.f90 +++ b/base/serial/aux/zamsr.f90 @@ -37,13 +37,13 @@ subroutine zamsr(n,x,idir) use psb_ip_reord_mod implicit none - integer :: n, idir + integer(psb_ipk_) :: n, idir complex(psb_dpk_) :: x(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: lswap, iret, info, lp, k + integer(psb_ipk_) :: lswap, iret, info, lp, k complex(psb_dpk_) :: swap if (n<0) then diff --git a/base/serial/aux/zamsrx.f90 b/base/serial/aux/zamsrx.f90 index ad320a703..92bad495e 100644 --- a/base/serial/aux/zamsrx.f90 +++ b/base/serial/aux/zamsrx.f90 @@ -36,13 +36,13 @@ subroutine zamsrx(n,x,indx,idir,flag) use psb_serial_mod use psb_ip_reord_mod implicit none - integer :: n,idir,flag + integer(psb_ipk_) :: n,idir,flag complex(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) - integer, allocatable :: iaux(:) + integer(psb_ipk_), allocatable :: iaux(:) - integer :: iret, info, lp, k,lswap, ixswap + integer(psb_ipk_) :: iret, info, lp, k,lswap, ixswap complex(psb_dpk_) :: swap if (n<0) then diff --git a/base/serial/aux/zasr.f90 b/base/serial/aux/zasr.f90 index 95a05b1ee..1cc52f222 100644 --- a/base/serial/aux/zasr.f90 +++ b/base/serial/aux/zasr.f90 @@ -39,16 +39,16 @@ subroutine zasr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_dpk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine izasr_up(n,x) use zacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine izasr_dw(n,x) use zacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zasrx.f90 b/base/serial/aux/zasrx.f90 index ed871f0c5..f3b53391f 100644 --- a/base/serial/aux/zasrx.f90 +++ b/base/serial/aux/zasrx.f90 @@ -38,17 +38,17 @@ subroutine zasrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine izasrx_up(n,x,indx) use zacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine izasrx_dw(n,x,indx) use zacmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zlsr.f90 b/base/serial/aux/zlsr.f90 index e579f38f5..b0e044fd8 100644 --- a/base/serial/aux/zlsr.f90 +++ b/base/serial/aux/zlsr.f90 @@ -39,16 +39,16 @@ subroutine zlsr(n,x,dir) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir + integer(psb_ipk_), intent(in) :: n, dir complex(psb_dpk_) :: x(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: xk, piv, xt - integer i, j, ilx, iux, istp, lpiv - integer n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. ! @@ -316,9 +316,9 @@ contains subroutine izlsr_up(n,x) use zlcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -339,9 +339,9 @@ contains subroutine izlsr_dw(n,x) use zlcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: i,j + integer(psb_ipk_) :: i,j complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/aux/zlsrx.f90 b/base/serial/aux/zlsrx.f90 index 197e22a7c..fc886586f 100644 --- a/base/serial/aux/zlsrx.f90 +++ b/base/serial/aux/zlsrx.f90 @@ -38,17 +38,17 @@ subroutine zlsrx(n,x,indx,dir,flag) ! Adapted from a number of sources, including Don Knuth's TAOCP. ! ! .. Scalar Arguments .. - integer, intent(in) :: n, dir, flag + integer(psb_ipk_), intent(in) :: n, dir, flag complex(psb_dpk_) :: x(n) - integer :: indx(n) + integer(psb_ipk_) :: indx(n) ! .. ! .. Local Scalars .. complex(psb_dpk_) :: piv, xk, xt - integer i, j, ilx, iux, istp, lpiv - integer ixt, n1, n2 + integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv + integer(psb_ipk_) :: ixt, n1, n2 - integer, parameter :: maxstack=64,nparms=3,ithrs=16 - integer :: istack(nparms,maxstack) + integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=16 + integer(psb_ipk_) :: istack(nparms,maxstack) ! .. select case(flag) @@ -360,10 +360,10 @@ contains subroutine izlsrx_up(n,x,indx) use zlcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 @@ -387,10 +387,10 @@ contains subroutine izlsrx_dw(n,x,indx) use zlcmp_mod implicit none - integer :: n + integer(psb_ipk_) :: n complex(psb_dpk_) :: x(n) - integer :: indx(n) - integer :: i,j,ix + integer(psb_ipk_) :: indx(n) + integer(psb_ipk_) :: i,j,ix complex(psb_dpk_) :: xx do j=n-1,1,-1 diff --git a/base/serial/f77/caxpby.f b/base/serial/f77/caxpby.f index 60ae264ef..2f255e58b 100644 --- a/base/serial/f77/caxpby.f +++ b/base/serial/f77/caxpby.f @@ -33,11 +33,11 @@ C use psb_const_mod complex(psb_spk_), parameter :: one=(1.0,0.0) complex(psb_spk_), parameter :: zero=(0.0,0.0) - integer n, m, lldx, lldy, info + integer(psb_ipk_) :: n, m, lldx, lldy, info complex(psb_spk_) X(lldx,*), Y(lldy,*) complex(psb_spk_) alpha, beta - integer i, j - integer int_err(5) + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) character name*20 name='caxpby' diff --git a/base/serial/f77/daxpby.f b/base/serial/f77/daxpby.f index 5d5131b89..1707885db 100644 --- a/base/serial/f77/daxpby.f +++ b/base/serial/f77/daxpby.f @@ -31,11 +31,11 @@ C C subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod - integer n, m, lldx, lldy, info + integer(psb_ipk_) :: n, m, lldx, lldy, info real(psb_dpk_) X(lldx,*), Y(lldy,*) real(psb_dpk_) alpha, beta - integer i, j - integer int_err(5) + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) character name*20 name='daxpby' diff --git a/base/serial/f77/saxpby.f b/base/serial/f77/saxpby.f index 2ad0345da..a2d789ae9 100644 --- a/base/serial/f77/saxpby.f +++ b/base/serial/f77/saxpby.f @@ -31,12 +31,11 @@ C C subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod - integer n, m, lldx, lldy, info real(psb_spk_) X(lldx,*), Y(lldy,*) real(psb_spk_) alpha, beta - integer i, j - integer int_err(5) + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) character name*20 name='saxpby' diff --git a/base/serial/f77/smmp.f b/base/serial/f77/smmp.f index 4acf6f411..be64737df 100644 --- a/base/serial/f77/smmp.f +++ b/base/serial/f77/smmp.f @@ -20,13 +20,12 @@ c == ===================================================================== use psb_realloc_mod use psb_sort_mod, only: psb_msort c - integer ia(*), ja(*), diaga, + integer(psb_ipk_) :: ia(*), ja(*), diaga, * ib(*), jb(*), diagb, * diagc, * index(*) - integer, allocatable :: ic(:),jc(:) - integer :: nze, info -c$$$ integer, save :: iunit=11 + integer(psb_ipk_), allocatable :: ic(:),jc(:) + integer(psb_ipk_) :: nze, info c c symbolic matrix multiply c=a*b c @@ -144,11 +143,11 @@ c$$$ 'SYMBMM: on exit',ic(n+1)-1,jc(ic(n+1)-1) * temp) use psb_const_mod c - integer ia(*), ja(*), diaga, + integer(psb_ipk_) :: ia(*), ja(*), diaga, * ib(*), jb(*), diagb, * ic(*), jc(*), diagc c - real(psb_spk_) a(*), b(*), c(*), temp(*),ajj + real(psb_spk_) :: a(*), b(*), c(*), temp(*),ajj c c numeric matrix multiply c=a*b c @@ -217,11 +216,11 @@ c$$$ ' NUMBMM: Fixing row ',i,ic(i),ic(i+1)-1 * temp) use psb_const_mod c - integer ia(*), ja(*), diaga, + integer(psb_ipk_) :: ia(*), ja(*), diaga, * ib(*), jb(*), diagb, * ic(*), jc(*), diagc c - real(psb_dpk_) a(*), b(*), c(*), temp(*),ajj + real(psb_dpk_) :: a(*), b(*), c(*), temp(*),ajj c c numeric matrix multiply c=a*b c @@ -290,11 +289,11 @@ c$$$ ' NUMBMM: Fixing row ',i,ic(i),ic(i+1)-1 * temp) c use psb_const_mod - integer ia(*), ja(*), diaga, + integer(psb_ipk_) :: ia(*), ja(*), diaga, * ib(*), jb(*), diagb, * ic(*), jc(*), diagc c - complex(psb_spk_) a(*), b(*), c(*), temp(*),ajj + complex(psb_spk_) :: a(*), b(*), c(*), temp(*),ajj c c numeric matrix multiply c=a*b c @@ -363,11 +362,11 @@ c$$$ ' NUMBMM: Fixing row ',i,ic(i),ic(i+1)-1 * temp) c use psb_const_mod - integer ia(*), ja(*), diaga, + integer(psb_ipk_) :: ia(*), ja(*), diaga, * ib(*), jb(*), diagb, * ic(*), jc(*), diagc c - complex(psb_dpk_) a(*), b(*), c(*), temp(*),ajj + complex(psb_dpk_) :: a(*), b(*), c(*), temp(*),ajj c c numeric matrix multiply c=a*b c diff --git a/base/serial/f77/zaxpby.f b/base/serial/f77/zaxpby.f index 0d286e22b..0146e8916 100644 --- a/base/serial/f77/zaxpby.f +++ b/base/serial/f77/zaxpby.f @@ -33,11 +33,11 @@ C use psb_const_mod complex(psb_dpk_), parameter :: one=(1.0d0,0.0d0) complex(psb_dpk_), parameter :: zero=(0.0d0,0.0d0) - integer n, m, lldx, lldy, info + integer(psb_ipk_) :: n, m, lldx, lldy, info complex(psb_dpk_) X(lldx,*), Y(lldy,*) complex(psb_dpk_) alpha, beta - integer i, j - integer int_err(5) + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) character name*20 name='zaxpby' diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index 514b0d98d..1a8c03364 100644 --- a/base/serial/impl/psb_base_mat_impl.f90 +++ b/base/serial/impl/psb_base_mat_impl.f90 @@ -2,11 +2,11 @@ function psb_base_get_nz_row(idx,a) result(res) use psb_error_mod use psb_base_mat_mod, psb_protect_name => psb_base_get_nz_row implicit none - integer, intent(in) :: idx + integer(psb_ipk_), intent(in) :: idx class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_get_nz_row' logical, parameter :: debug=.false. @@ -29,9 +29,9 @@ function psb_base_get_nzeros(a) result(res) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='base_get_nzeros' logical, parameter :: debug=.false. @@ -54,9 +54,9 @@ function psb_base_get_size(a) result(res) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_size' logical, parameter :: debug=.false. @@ -82,7 +82,7 @@ subroutine psb_base_reinit(a,clear) class(psb_base_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical, parameter :: debug=.false. @@ -105,14 +105,14 @@ subroutine psb_base_sparse_print(iout,a,iv,eirs,eics,head,ivr,ivc) use psb_error_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -139,15 +139,15 @@ subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -172,15 +172,15 @@ subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev) use psb_sort_mod implicit none class(psb_base_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev - integer :: lev_, i, nl, ifl,ill,& + integer(psb_ipk_) :: lev_, i, nl, ifl,ill,& & n1, err_act, nn, nidx,ntl,ma - integer, allocatable :: ia(:), ja(:) + integer(psb_ipk_), allocatable :: ia(:), ja(:) character(len=20) :: name='get_neigh' logical, parameter :: debug=.false. @@ -248,10 +248,10 @@ subroutine psb_base_allocate_mnnz(m,n,a,nz) use psb_base_mat_mod, psb_protect_name => psb_base_allocate_mnnz use psb_error_mod implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_base_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -272,9 +272,9 @@ subroutine psb_base_reallocate_nz(nz,a) use psb_base_mat_mod, psb_protect_name => psb_base_reallocate_nz use psb_error_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_base_sparse_mat), intent(inout) :: a - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -296,7 +296,7 @@ subroutine psb_base_free(a) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(inout) :: a - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='free' logical, parameter :: debug=.false. @@ -318,7 +318,7 @@ subroutine psb_base_trim(a) use psb_error_mod implicit none class(psb_base_sparse_mat), intent(inout) :: a - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='trim' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_c_base_mat_impl.f90 b/base/serial/impl/psb_c_base_mat_impl.f90 index df7767154..9ba998bcb 100644 --- a/base/serial/impl/psb_c_base_mat_impl.f90 +++ b/base/serial/impl/psb_c_base_mat_impl.f90 @@ -17,9 +17,9 @@ subroutine psb_c_base_cp_to_coo(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -44,9 +44,9 @@ subroutine psb_c_base_cp_from_coo(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -72,9 +72,9 @@ subroutine psb_c_base_cp_to_fmt(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp @@ -97,9 +97,9 @@ subroutine psb_c_base_cp_from_fmt(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp @@ -123,9 +123,9 @@ subroutine psb_c_base_mv_to_coo(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -150,9 +150,9 @@ subroutine psb_c_base_mv_from_coo(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -178,9 +178,9 @@ subroutine psb_c_base_mv_to_fmt(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp @@ -203,9 +203,9 @@ subroutine psb_c_base_mv_from_fmt(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp @@ -227,11 +227,11 @@ subroutine psb_c_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -258,16 +258,16 @@ subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_c_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -302,13 +302,13 @@ subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -362,11 +362,11 @@ subroutine psb_c_base_csclip(a,b,info,& class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb + integer(psb_ipk_) :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb character(len=20) :: name='csget' logical :: rscale_, cscale_ logical, parameter :: debug=.false. @@ -446,8 +446,8 @@ subroutine psb_c_base_mold(a,b,info) implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -474,7 +474,7 @@ subroutine psb_c_base_transp_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_c_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='c_base_transp' call psb_erractionsave(err_act) @@ -512,7 +512,7 @@ subroutine psb_c_base_transc_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_c_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='c_base_transc' call psb_erractionsave(err_act) @@ -549,7 +549,7 @@ subroutine psb_c_base_transp_1mat(a) class(psb_c_base_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='c_base_transp' call psb_erractionsave(err_act) @@ -582,7 +582,7 @@ subroutine psb_c_base_transc_1mat(a) class(psb_c_base_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='c_base_transc' call psb_erractionsave(err_act) @@ -630,10 +630,10 @@ subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_csmm' logical, parameter :: debug=.false. @@ -659,10 +659,10 @@ subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_csmv' logical, parameter :: debug=.false. @@ -689,10 +689,10 @@ subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_inner_cssm' logical, parameter :: debug=.false. @@ -718,10 +718,10 @@ subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_inner_cssv' logical, parameter :: debug=.false. @@ -748,12 +748,12 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) complex(psb_spk_), allocatable :: tmp(:,:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='c_cssm' logical, parameter :: debug=.false. @@ -883,12 +883,12 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) complex(psb_spk_), allocatable :: tmp(:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='c_cssm' logical, parameter :: debug=.false. @@ -1003,10 +1003,10 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) contains subroutine inner_vscal(n,d,x,y) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_), intent(in) :: d(*),x(*) complex(psb_spk_), intent(out) :: y(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i) = d(i)*x(i) @@ -1016,10 +1016,10 @@ contains subroutine inner_vscal1(n,d,x) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_spk_), intent(in) :: d(*) complex(psb_spk_), intent(inout) :: x(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n x(i) = d(i)*x(i) @@ -1035,9 +1035,9 @@ subroutine psb_c_base_scals(d,a,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_scals' logical, parameter :: debug=.false. @@ -1063,9 +1063,9 @@ subroutine psb_c_base_scal(d,a,info) implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_scal' logical, parameter :: debug=.false. @@ -1094,7 +1094,7 @@ function psb_c_base_maxval(a) result(res) class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -1123,7 +1123,7 @@ function psb_c_base_csnmi(a) result(res) class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -1152,7 +1152,7 @@ function psb_c_base_csnm1(a) result(res) class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -1179,7 +1179,7 @@ subroutine psb_c_base_rowsum(d,a) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1205,7 +1205,7 @@ subroutine psb_c_base_arwsum(d,a) class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1231,7 +1231,7 @@ subroutine psb_c_base_colsum(d,a) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1257,7 +1257,7 @@ subroutine psb_c_base_aclsum(d,a) class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1285,9 +1285,9 @@ subroutine psb_c_base_get_diag(a,d,info) implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1331,7 +1331,7 @@ subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans ! For the time being we just throw everything back @@ -1351,13 +1351,13 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_c_base_vect_type), intent(inout),optional :: d complex(psb_spk_), allocatable :: tmp(:) class(psb_c_base_vect_type), allocatable :: tmpv - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='c_cssm' logical, parameter :: debug=.false. @@ -1490,10 +1490,10 @@ subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_inner_vect_sv' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 89f5aa314..b3192304f 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -6,9 +6,9 @@ subroutine psb_c_coo_get_diag(a,d,info) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j + integer(psb_ipk_) :: err_act,mnm, i, j character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -54,9 +54,9 @@ subroutine psb_c_coo_scal(d,a,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -96,9 +96,9 @@ subroutine psb_c_coo_scals(d,a,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -129,9 +129,9 @@ subroutine psb_c_coo_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='c_coo_reallocate_nz' logical, parameter :: debug=.false. @@ -164,8 +164,8 @@ subroutine psb_c_coo_mold(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -196,7 +196,7 @@ subroutine psb_c_coo_reinit(a,clear) class(psb_c_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -245,7 +245,7 @@ subroutine psb_c_coo_trim(a) use psb_error_mod implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz + integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -277,10 +277,10 @@ subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -340,19 +340,19 @@ subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) use psb_string_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -409,9 +409,9 @@ function psb_c_coo_get_nz_row(idx,a) result(res) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res - integer :: nzin_, nza,ip,jp,i,k + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res + integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k res = 0 nza = a%get_nzeros() @@ -462,15 +462,15 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_csmm' logical, parameter :: debug=.false. @@ -574,12 +574,12 @@ contains & ia,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(ldx,*) complex(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -820,15 +820,15 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_cssv_impl' logical, parameter :: debug=.false. @@ -929,12 +929,12 @@ contains & ia,ja,val,x,y,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nz,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(*) complex(psb_spk_), intent(out) :: y(*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc, nnz + integer(psb_ipk_) :: i,j,k,m, ir, jc, nnz complex(psb_spk_) :: acc info = psb_success_ @@ -1167,14 +1167,14 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_spk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_csmv_impl' logical, parameter :: debug=.false. @@ -1364,14 +1364,14 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_csmm_impl' logical, parameter :: debug=.false. @@ -1569,7 +1569,7 @@ function psb_c_coo_maxval(a) result(res) class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='c_coo_maxval' logical, parameter :: debug=.false. @@ -1589,11 +1589,11 @@ function psb_c_coo_csnmi(a) result(res) class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_csnmi' logical, parameter :: debug=.false. @@ -1640,11 +1640,11 @@ function psb_c_coo_csnm1(a) result(res) class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_csnm1' logical, parameter :: debug=.false. @@ -1673,11 +1673,11 @@ subroutine psb_c_coo_rowsum(d,a) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1722,11 +1722,11 @@ subroutine psb_c_coo_arwsum(d,a) class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1771,11 +1771,11 @@ subroutine psb_c_coo_colsum(d,a) class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1820,11 +1820,11 @@ subroutine psb_c_coo_aclsum(d,a) class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1888,17 +1888,17 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1987,15 +1987,15 @@ contains implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getptn' debug_unit = psb_get_debug_unit() @@ -2166,18 +2166,18 @@ subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2267,16 +2267,16 @@ contains implicit none class(psb_c_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2450,15 +2450,15 @@ subroutine psb_c_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_coo_csput_impl' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) info = psb_success_ call psb_erractionsave(err_act) @@ -2543,14 +2543,14 @@ contains & imin,imax,jmin,jmax,info,gtl) implicit none - integer, intent(in) :: nz, imin,imax,jmin,jmax,maxsz - integer, intent(in) :: ia(:),ja(:) - integer, intent(inout) :: nza,ia1(:),ia2(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz + integer(psb_ipk_), intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(inout) :: nza,ia1(:),ia2(:) complex(psb_spk_), intent(in) :: val(:) complex(psb_spk_), intent(inout) :: aspk(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic,ng + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic,ng info = psb_success_ if (present(gtl)) then @@ -2604,14 +2604,14 @@ contains implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nc,nnz,dupl,ng, nr - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='c_coo_srch_upd' info = psb_success_ @@ -2826,9 +2826,9 @@ subroutine psb_c_cp_coo_to_coo(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nz + integer(psb_ipk_) :: err_act, nz character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2870,12 +2870,12 @@ subroutine psb_c_cp_coo_from_coo(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2915,9 +2915,9 @@ subroutine psb_c_cp_coo_to_fmt(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2950,12 +2950,12 @@ subroutine psb_c_cp_coo_from_fmt(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2987,9 +2987,9 @@ subroutine psb_c_mv_coo_to_coo(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3030,12 +3030,12 @@ subroutine psb_c_mv_coo_from_coo(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3074,9 +3074,9 @@ subroutine psb_c_mv_coo_to_fmt(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3109,12 +3109,12 @@ subroutine psb_c_mv_coo_from_fmt(a,b,info) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3148,7 +3148,7 @@ subroutine psb_c_coo_cp_from(a,b) type(psb_c_coo_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3181,7 +3181,7 @@ subroutine psb_c_coo_mv_from(a,b) type(psb_c_coo_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. @@ -3214,13 +3214,13 @@ subroutine psb_c_fix_coo(a,info,idir) implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir - integer, allocatable :: iaux(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir + integer(psb_ipk_), allocatable :: iaux(:) !locals - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ @@ -3274,16 +3274,16 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) use psb_ip_reord_mod implicit none - integer, intent(in) :: nzin, dupl - integer, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin, dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_spk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir !locals - integer, allocatable :: iaux(:) - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: iaux(:) + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 543d301c7..2a15c8903 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_spk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_csmv' logical, parameter :: debug=.false. @@ -297,14 +297,14 @@ subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_csmm' logical, parameter :: debug=.false. @@ -581,15 +581,15 @@ subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m, nnz, ir, jc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_cssv' logical, parameter :: debug=.false. @@ -686,12 +686,12 @@ contains subroutine inner_cscsv(tra,lower,unit,n,icp,ia,val,x,y) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: icp(*), ia(*),n + integer(psb_ipk_), intent(in) :: icp(*), ia(*),n complex(psb_spk_), intent(in) :: val(*) complex(psb_spk_), intent(in) :: x(*) complex(psb_spk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_spk_) :: acc if (tra) then @@ -801,15 +801,15 @@ subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_csmm' logical, parameter :: debug=.false. @@ -913,11 +913,11 @@ contains & icp,ia,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) complex(psb_spk_), intent(in) :: val(*), x(ldx,*) complex(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -1032,7 +1032,7 @@ function psb_c_csc_maxval(a) result(res) class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='c_csc_maxval' logical, parameter :: debug=.false. @@ -1052,10 +1052,10 @@ function psb_c_csc_csnmi(a) result(res) class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc, info real(psb_spk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csnmi' logical, parameter :: debug=.false. @@ -1090,11 +1090,11 @@ function psb_c_csc_csnm1(a) result(res) class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_csnm1' logical, parameter :: debug=.false. @@ -1121,11 +1121,11 @@ subroutine psb_c_csc_colsum(d,a) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1170,11 +1170,11 @@ subroutine psb_c_csc_aclsum(d,a) class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1219,11 +1219,11 @@ subroutine psb_c_csc_rowsum(d,a) class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1271,11 +1271,11 @@ subroutine psb_c_csc_arwsum(d,a) class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1324,9 +1324,9 @@ subroutine psb_c_csc_get_diag(a,d,info) implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1378,9 +1378,9 @@ subroutine psb_c_csc_scal(d,a,info) implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, n + integer(psb_ipk_) :: err_act,mnm, i, j, n character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1421,9 +1421,9 @@ subroutine psb_c_csc_scals(d,a,info) implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1472,17 +1472,17 @@ subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1567,15 +1567,15 @@ contains implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1660,18 +1660,18 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1757,16 +1757,16 @@ contains implicit none class(psb_c_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1851,15 +1851,15 @@ subroutine psb_c_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) info = psb_success_ @@ -1941,14 +1941,14 @@ contains implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng, nar, nac - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='c_csc_srch_upd' info = psb_success_ @@ -2144,15 +2144,15 @@ subroutine psb_c_cp_csc_from_coo(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_c_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2172,14 +2172,14 @@ subroutine psb_c_cp_csc_to_coo(a,b,info) class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2215,14 +2215,14 @@ subroutine psb_c_mv_csc_to_coo(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2259,14 +2259,14 @@ subroutine psb_c_mv_csc_from_coo(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc, icl - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc, icl + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='c_mv_csc_from_coo' info = psb_success_ @@ -2352,14 +2352,14 @@ subroutine psb_c_mv_csc_to_fmt(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2392,14 +2392,14 @@ subroutine psb_c_cp_csc_to_fmt(a,b,info) class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2432,14 +2432,14 @@ subroutine psb_c_mv_csc_from_fmt(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2473,14 +2473,14 @@ subroutine psb_c_cp_csc_from_fmt(a,b,info) class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2507,8 +2507,8 @@ subroutine psb_c_csc_mold(a,b,info) implicit none class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -2536,9 +2536,9 @@ subroutine psb_c_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_c_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='c_csc_reallocate_nz' logical, parameter :: debug=.false. @@ -2578,13 +2578,13 @@ subroutine psb_c_csc_csgetblk(imin,imax,a,b,info,& class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2635,7 +2635,7 @@ subroutine psb_c_csc_reinit(a,clear) class(psb_c_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2682,7 +2682,7 @@ subroutine psb_c_csc_trim(a) use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_trim implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, n + integer(psb_ipk_) :: err_act, info, nz, n character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2714,10 +2714,10 @@ subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_c_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -2776,19 +2776,19 @@ subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_c_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csc_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -2855,7 +2855,7 @@ subroutine psb_c_csc_cp_from(a,b) type(psb_c_csc_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -2894,7 +2894,7 @@ subroutine psb_c_csc_mv_from(a,b) type(psb_c_csc_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index 48256c13a..9a2d419e4 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_spk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_csmv' logical, parameter :: debug=.false. @@ -90,13 +90,13 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) contains subroutine psb_c_csr_csmv_inner(m,n,alpha,irp,ja,val,is_triangle,is_unit,& & x,beta,y,tra,ctra) - integer, intent(in) :: m,n,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,irp(*),ja(*) complex(psb_spk_), intent(in) :: alpha, beta, x(*),val(*) complex(psb_spk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra, ctra - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc complex(psb_spk_) :: acc if (alpha == czero) then @@ -366,14 +366,14 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_csmm' logical, parameter :: debug=.false. @@ -442,13 +442,13 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_c_csr_csmm_inner(m,n,nc,alpha,irp,ja,val,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,ctra,acc) - integer, intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) complex(psb_spk_), intent(in) :: alpha, beta, x(ldx,*),val(*) complex(psb_spk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra,ctra complex(psb_spk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == czero) then @@ -715,15 +715,15 @@ subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:) logical :: tra,ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_cssv' logical, parameter :: debug=.false. @@ -820,12 +820,12 @@ contains subroutine inner_csrsv(tra,ctra,lower,unit,n,irp,ja,val,x,y) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: irp(*), ja(*),n + integer(psb_ipk_), intent(in) :: irp(*), ja(*),n complex(psb_spk_), intent(in) :: val(*) complex(psb_spk_), intent(in) :: x(*) complex(psb_spk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_spk_) :: acc if ((.not.tra).and.(.not.ctra)) then @@ -980,15 +980,15 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_cssm' logical, parameter :: debug=.false. @@ -1080,11 +1080,11 @@ contains & irp,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(ldx,*) complex(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -1243,7 +1243,7 @@ function psb_c_csr_maxval(a) result(res) class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='c_csr_maxval' logical, parameter :: debug=.false. @@ -1263,10 +1263,10 @@ function psb_c_csr_csnmi(a) result(res) class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_spk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csnmi' logical, parameter :: debug=.false. @@ -1292,11 +1292,11 @@ function psb_c_csr_csnm1(a) result(res) class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csnm1' logical, parameter :: debug=.false. @@ -1328,11 +1328,11 @@ subroutine psb_c_csr_rowsum(d,a) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1377,11 +1377,11 @@ subroutine psb_c_csr_arwsum(d,a) class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1426,11 +1426,11 @@ subroutine psb_c_csr_colsum(d,a) class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1478,11 +1478,11 @@ subroutine psb_c_csr_aclsum(d,a) class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1530,9 +1530,9 @@ subroutine psb_c_csr_get_diag(a,d,info) implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1585,9 +1585,9 @@ subroutine psb_c_csr_scal(d,a,info) implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1628,9 +1628,9 @@ subroutine psb_c_csr_scals(d,a,info) implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1676,9 +1676,9 @@ subroutine psb_c_csr_reallocate_nz(nz,a) use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_c_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='c_csr_reallocate_nz' logical, parameter :: debug=.false. @@ -1713,8 +1713,8 @@ subroutine psb_c_csr_mold(a,b,info) implicit none class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1741,10 +1741,10 @@ subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_c_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1810,17 +1810,17 @@ subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1908,15 +1908,15 @@ contains implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='csr_getptn' debug_unit = psb_get_debug_unit() @@ -1985,18 +1985,18 @@ subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2085,16 +2085,16 @@ contains implicit none class(psb_c_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2164,13 +2164,13 @@ subroutine psb_c_csr_csgetblk(imin,imax,a,b,info,& class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2223,15 +2223,15 @@ subroutine psb_c_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2314,14 +2314,14 @@ contains implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='c_csr_srch_upd' info = psb_success_ @@ -2510,7 +2510,7 @@ subroutine psb_c_csr_reinit(a,clear) class(psb_c_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2557,7 +2557,7 @@ subroutine psb_c_csr_trim(a) use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_trim implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2590,18 +2590,18 @@ subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_c_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -2668,15 +2668,15 @@ subroutine psb_c_cp_csr_from_coo(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_c_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2696,14 +2696,14 @@ subroutine psb_c_cp_csr_to_coo(a,b,info) class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2738,14 +2738,14 @@ subroutine psb_c_mv_csr_to_coo(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2783,14 +2783,14 @@ subroutine psb_c_mv_csr_from_coo(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='mv_from_coo' info = psb_success_ @@ -2875,14 +2875,14 @@ subroutine psb_c_mv_csr_to_fmt(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2915,14 +2915,14 @@ subroutine psb_c_cp_csr_to_fmt(a,b,info) class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2954,14 +2954,14 @@ subroutine psb_c_mv_csr_from_fmt(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2995,14 +2995,14 @@ subroutine psb_c_cp_csr_from_fmt(a,b,info) class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_c_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -3034,7 +3034,7 @@ subroutine psb_c_csr_cp_from(a,b) type(psb_c_csr_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3073,7 +3073,7 @@ subroutine psb_c_csr_mv_from(a,b) type(psb_c_csr_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90 index c6053db3d..3e8a81fbb 100644 --- a/base/serial/impl/psb_c_mat_impl.F90 +++ b/base/serial/impl/psb_c_mat_impl.F90 @@ -29,8 +29,8 @@ subroutine psb_c_set_nrows(m,a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: m - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_) :: err_act, info character(len=20) :: name='set_nrows' logical, parameter :: debug=.false. @@ -63,8 +63,8 @@ subroutine psb_c_set_ncols(n,a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -104,8 +104,8 @@ subroutine psb_c_set_dupl(n,a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -142,7 +142,7 @@ subroutine psb_c_set_null(a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -175,7 +175,7 @@ subroutine psb_c_set_bld(a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -207,7 +207,7 @@ subroutine psb_c_set_upd(a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -240,7 +240,7 @@ subroutine psb_c_set_asb(a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -273,7 +273,7 @@ subroutine psb_c_set_sorted(a,val) implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -306,7 +306,7 @@ subroutine psb_c_set_triangle(a,val) implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -339,7 +339,7 @@ subroutine psb_c_set_unit(a,val) implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -372,7 +372,7 @@ subroutine psb_c_set_lower(a,val) implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -405,7 +405,7 @@ subroutine psb_c_set_upper(a,val) implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -451,13 +451,13 @@ subroutine psb_c_sparse_print(iout,a,iv,head,ivr,ivc) use psb_error_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -491,11 +491,11 @@ subroutine psb_c_n_sparse_print(fname,a,iv,head,ivr,ivc) character(len=*), intent(in) :: fname class(psb_cspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info, iout + integer(psb_ipk_) :: err_act, info, iout logical :: isopen character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -544,13 +544,13 @@ subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) use psb_error_mod implicit none class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' logical, parameter :: debug=.false. @@ -588,11 +588,11 @@ subroutine psb_c_csall(nr,nc,a,info,nz) use psb_error_mod implicit none class(psb_cspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -625,9 +625,9 @@ subroutine psb_c_reallocate_nz(nz,a) use psb_c_mat_mod, psb_protect_name => psb_c_reallocate_nz use psb_error_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -673,7 +673,7 @@ subroutine psb_c_trim(a) use psb_error_mod implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -707,11 +707,11 @@ subroutine psb_c_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -751,16 +751,16 @@ subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -801,17 +801,17 @@ subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_cspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -855,14 +855,14 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,& class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat), allocatable :: acoo @@ -914,11 +914,11 @@ subroutine psb_c_csclip(a,b,info,& class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat), allocatable :: acoo @@ -968,11 +968,11 @@ subroutine psb_c_b_csclip(a,b,info,& class(psb_cspmat_type), intent(in) :: a type(psb_c_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. @@ -1011,14 +1011,14 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_c_base_sparse_mat), intent(in), optional :: mold class(psb_c_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1112,14 +1112,14 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) implicit none class(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_c_base_sparse_mat), intent(in), optional :: mold class(psb_c_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv_ip' logical, parameter :: debug=.false. @@ -1212,12 +1212,12 @@ subroutine psb_c_cscnv_base(a,b,info,dupl) implicit none class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl type(psb_c_coo_sparse_mat) :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1270,13 +1270,13 @@ subroutine psb_c_clip_d(a,b,info) class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1332,13 +1332,13 @@ subroutine psb_c_clip_d_ip(a,info) implicit none class(psb_cspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1391,7 +1391,7 @@ subroutine psb_c_mv_from(a,b) implicit none class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(inout) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(a%a,mold=b, stat=info) @@ -1412,7 +1412,7 @@ subroutine psb_c_cp_from(a,b) implicit none class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1453,7 +1453,7 @@ subroutine psb_c_mv_to(a,b) implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%mv_from_fmt(a%a,info) @@ -1468,7 +1468,7 @@ subroutine psb_c_cp_to(a,b) implicit none class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%cp_from_fmt(a%a,info) @@ -1479,7 +1479,7 @@ subroutine psb_c_mold(a,b) use psb_c_mat_mod, psb_protect_name => psb_c_mold class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), allocatable, intent(out) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(b,mold=a%a, stat=info) #else @@ -1495,9 +1495,9 @@ subroutine psb_cspmat_type_move(a,b,info) implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='move_alloc' logical, parameter :: debug=.false. @@ -1515,9 +1515,9 @@ subroutine psb_cspmat_clone(a,b,info) implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1555,7 +1555,7 @@ subroutine psb_c_transp_1mat(a) implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1592,7 +1592,7 @@ subroutine psb_c_transp_2mat(a,b) class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1636,7 +1636,7 @@ subroutine psb_c_transc_1mat(a) implicit none class(psb_cspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1673,7 +1673,7 @@ subroutine psb_c_transc_2mat(a,b) class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1719,7 +1719,7 @@ subroutine psb_c_reinit(a,clear) class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) @@ -1768,9 +1768,9 @@ subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmm' logical, parameter :: debug=.false. @@ -1806,9 +1806,9 @@ subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1845,9 +1845,9 @@ subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1895,10 +1895,10 @@ subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssm' logical, parameter :: debug=.false. @@ -1935,10 +1935,10 @@ subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -1978,10 +1978,10 @@ subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x type(psb_c_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_c_vect_type), optional, intent(inout) :: d - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -2038,7 +2038,7 @@ function psb_c_maxval(a) result(res) real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -2071,7 +2071,7 @@ function psb_c_csnmi(a) result(res) class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -2105,7 +2105,7 @@ function psb_c_csnm1(a) result(res) class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -2138,9 +2138,9 @@ subroutine psb_c_rowsum(d,a,info) implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -2176,9 +2176,9 @@ subroutine psb_c_arwsum(d,a,info) implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -2214,9 +2214,9 @@ subroutine psb_c_colsum(d,a,info) implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -2252,9 +2252,9 @@ subroutine psb_c_aclsum(d,a,info) implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -2291,9 +2291,9 @@ subroutine psb_c_get_diag(a,d,info) implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -2330,9 +2330,9 @@ subroutine psb_c_scal(d,a,info) implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -2369,9 +2369,9 @@ subroutine psb_c_scals(d,a,info) implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_d_base_mat_impl.f90 b/base/serial/impl/psb_d_base_mat_impl.f90 index e3acf90f0..77bcac033 100644 --- a/base/serial/impl/psb_d_base_mat_impl.f90 +++ b/base/serial/impl/psb_d_base_mat_impl.f90 @@ -17,9 +17,9 @@ subroutine psb_d_base_cp_to_coo(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -44,9 +44,9 @@ subroutine psb_d_base_cp_from_coo(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -72,9 +72,9 @@ subroutine psb_d_base_cp_to_fmt(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp @@ -97,9 +97,9 @@ subroutine psb_d_base_cp_from_fmt(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp @@ -123,9 +123,9 @@ subroutine psb_d_base_mv_to_coo(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -150,9 +150,9 @@ subroutine psb_d_base_mv_from_coo(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -178,9 +178,9 @@ subroutine psb_d_base_mv_to_fmt(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp @@ -203,9 +203,9 @@ subroutine psb_d_base_mv_from_fmt(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp @@ -227,11 +227,11 @@ subroutine psb_d_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -258,16 +258,16 @@ subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -302,13 +302,13 @@ subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -362,11 +362,11 @@ subroutine psb_d_base_csclip(a,b,info,& class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb + integer(psb_ipk_) :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb character(len=20) :: name='csget' logical :: rscale_, cscale_ logical, parameter :: debug=.false. @@ -446,8 +446,8 @@ subroutine psb_d_base_mold(a,b,info) implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -474,7 +474,7 @@ subroutine psb_d_base_transp_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_d_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='d_base_transp' call psb_erractionsave(err_act) @@ -512,7 +512,7 @@ subroutine psb_d_base_transc_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_d_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='d_base_transc' call psb_erractionsave(err_act) @@ -549,7 +549,7 @@ subroutine psb_d_base_transp_1mat(a) class(psb_d_base_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='d_base_transp' call psb_erractionsave(err_act) @@ -582,7 +582,7 @@ subroutine psb_d_base_transc_1mat(a) class(psb_d_base_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='d_base_transc' call psb_erractionsave(err_act) @@ -630,10 +630,10 @@ subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_csmm' logical, parameter :: debug=.false. @@ -659,10 +659,10 @@ subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_csmv' logical, parameter :: debug=.false. @@ -689,10 +689,10 @@ subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_inner_cssm' logical, parameter :: debug=.false. @@ -718,10 +718,10 @@ subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_inner_cssv' logical, parameter :: debug=.false. @@ -748,12 +748,12 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) real(psb_dpk_), allocatable :: tmp(:,:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='d_cssm' logical, parameter :: debug=.false. @@ -883,12 +883,12 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) real(psb_dpk_), allocatable :: tmp(:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='d_cssm' logical, parameter :: debug=.false. @@ -1003,10 +1003,10 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) contains subroutine inner_vscal(n,d,x,y) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_), intent(in) :: d(*),x(*) real(psb_dpk_), intent(out) :: y(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i) = d(i)*x(i) @@ -1016,10 +1016,10 @@ contains subroutine inner_vscal1(n,d,x) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_dpk_), intent(in) :: d(*) real(psb_dpk_), intent(inout) :: x(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n x(i) = d(i)*x(i) @@ -1035,9 +1035,9 @@ subroutine psb_d_base_scals(d,a,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_scals' logical, parameter :: debug=.false. @@ -1063,9 +1063,9 @@ subroutine psb_d_base_scal(d,a,info) implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_scal' logical, parameter :: debug=.false. @@ -1094,7 +1094,7 @@ function psb_d_base_maxval(a) result(res) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -1123,7 +1123,7 @@ function psb_d_base_csnmi(a) result(res) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -1152,7 +1152,7 @@ function psb_d_base_csnm1(a) result(res) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -1179,7 +1179,7 @@ subroutine psb_d_base_rowsum(d,a) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1205,7 +1205,7 @@ subroutine psb_d_base_arwsum(d,a) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1231,7 +1231,7 @@ subroutine psb_d_base_colsum(d,a) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1257,7 +1257,7 @@ subroutine psb_d_base_aclsum(d,a) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1285,9 +1285,9 @@ subroutine psb_d_base_get_diag(a,d,info) implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1331,7 +1331,7 @@ subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans ! For the time being we just throw everything back @@ -1351,13 +1351,13 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_d_base_vect_type), intent(inout),optional :: d real(psb_dpk_), allocatable :: tmp(:) class(psb_d_base_vect_type), allocatable :: tmpv - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='d_cssm' logical, parameter :: debug=.false. @@ -1490,10 +1490,10 @@ subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_inner_vect_sv' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index 1bcba17c7..1f4d7ca87 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -6,9 +6,9 @@ subroutine psb_d_coo_get_diag(a,d,info) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j + integer(psb_ipk_) :: err_act,mnm, i, j character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -54,9 +54,9 @@ subroutine psb_d_coo_scal(d,a,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -96,9 +96,9 @@ subroutine psb_d_coo_scals(d,a,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -129,9 +129,9 @@ subroutine psb_d_coo_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_coo_reallocate_nz' logical, parameter :: debug=.false. @@ -164,8 +164,8 @@ subroutine psb_d_coo_mold(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -196,7 +196,7 @@ subroutine psb_d_coo_reinit(a,clear) class(psb_d_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -245,7 +245,7 @@ subroutine psb_d_coo_trim(a) use psb_error_mod implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz + integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -277,10 +277,10 @@ subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -340,19 +340,19 @@ subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) use psb_string_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -409,9 +409,9 @@ function psb_d_coo_get_nz_row(idx,a) result(res) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res - integer :: nzin_, nza,ip,jp,i,k + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res + integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k res = 0 nza = a%get_nzeros() @@ -462,15 +462,15 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_csmm' logical, parameter :: debug=.false. @@ -574,12 +574,12 @@ contains & ia,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) real(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -820,15 +820,15 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_cssv_impl' logical, parameter :: debug=.false. @@ -929,12 +929,12 @@ contains & ia,ja,val,x,y,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nz,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(*) real(psb_dpk_), intent(out) :: y(*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc, nnz + integer(psb_ipk_) :: i,j,k,m, ir, jc, nnz real(psb_dpk_) :: acc info = psb_success_ @@ -1167,14 +1167,14 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_csmv_impl' logical, parameter :: debug=.false. @@ -1364,14 +1364,14 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_csmm_impl' logical, parameter :: debug=.false. @@ -1569,7 +1569,7 @@ function psb_d_coo_maxval(a) result(res) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='d_coo_maxval' logical, parameter :: debug=.false. @@ -1589,11 +1589,11 @@ function psb_d_coo_csnmi(a) result(res) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_csnmi' logical, parameter :: debug=.false. @@ -1640,11 +1640,11 @@ function psb_d_coo_csnm1(a) result(res) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_csnm1' logical, parameter :: debug=.false. @@ -1673,11 +1673,11 @@ subroutine psb_d_coo_rowsum(d,a) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1722,11 +1722,11 @@ subroutine psb_d_coo_arwsum(d,a) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1771,11 +1771,11 @@ subroutine psb_d_coo_colsum(d,a) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1820,11 +1820,11 @@ subroutine psb_d_coo_aclsum(d,a) class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1888,17 +1888,17 @@ subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1987,15 +1987,15 @@ contains implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getptn' debug_unit = psb_get_debug_unit() @@ -2166,18 +2166,18 @@ subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2267,16 +2267,16 @@ contains implicit none class(psb_d_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2450,15 +2450,15 @@ subroutine psb_d_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_coo_csput_impl' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) info = psb_success_ call psb_erractionsave(err_act) @@ -2543,14 +2543,14 @@ contains & imin,imax,jmin,jmax,info,gtl) implicit none - integer, intent(in) :: nz, imin,imax,jmin,jmax,maxsz - integer, intent(in) :: ia(:),ja(:) - integer, intent(inout) :: nza,ia1(:),ia2(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz + integer(psb_ipk_), intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(inout) :: nza,ia1(:),ia2(:) real(psb_dpk_), intent(in) :: val(:) real(psb_dpk_), intent(inout) :: aspk(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic,ng + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic,ng info = psb_success_ if (present(gtl)) then @@ -2604,14 +2604,14 @@ contains implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nc,nnz,dupl,ng, nr - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_coo_srch_upd' info = psb_success_ @@ -2826,9 +2826,9 @@ subroutine psb_d_cp_coo_to_coo(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nz + integer(psb_ipk_) :: err_act, nz character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2870,12 +2870,12 @@ subroutine psb_d_cp_coo_from_coo(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2915,9 +2915,9 @@ subroutine psb_d_cp_coo_to_fmt(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2950,12 +2950,12 @@ subroutine psb_d_cp_coo_from_fmt(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2987,9 +2987,9 @@ subroutine psb_d_mv_coo_to_coo(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3030,12 +3030,12 @@ subroutine psb_d_mv_coo_from_coo(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3074,9 +3074,9 @@ subroutine psb_d_mv_coo_to_fmt(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3109,12 +3109,12 @@ subroutine psb_d_mv_coo_from_fmt(a,b,info) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3148,7 +3148,7 @@ subroutine psb_d_coo_cp_from(a,b) type(psb_d_coo_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3181,7 +3181,7 @@ subroutine psb_d_coo_mv_from(a,b) type(psb_d_coo_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. @@ -3214,13 +3214,13 @@ subroutine psb_d_fix_coo(a,info,idir) implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir - integer, allocatable :: iaux(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir + integer(psb_ipk_), allocatable :: iaux(:) !locals - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ @@ -3274,16 +3274,16 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) use psb_ip_reord_mod implicit none - integer, intent(in) :: nzin, dupl - integer, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin, dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_dpk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir !locals - integer, allocatable :: iaux(:) - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: iaux(:) + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index 6f7c9fbee..2ff3274e0 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_csmv' logical, parameter :: debug=.false. @@ -297,14 +297,14 @@ subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_csmm' logical, parameter :: debug=.false. @@ -581,15 +581,15 @@ subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_cssv' logical, parameter :: debug=.false. @@ -686,12 +686,12 @@ contains subroutine inner_cscsv(tra,lower,unit,n,icp,ia,val,x,y) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: icp(*), ia(*),n + integer(psb_ipk_), intent(in) :: icp(*), ia(*),n real(psb_dpk_), intent(in) :: val(*) real(psb_dpk_), intent(in) :: x(*) real(psb_dpk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_) :: acc if (tra) then @@ -801,15 +801,15 @@ subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_csmm' logical, parameter :: debug=.false. @@ -913,11 +913,11 @@ contains & icp,ia,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) real(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -1032,7 +1032,7 @@ function psb_d_csc_maxval(a) result(res) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='d_csc_maxval' logical, parameter :: debug=.false. @@ -1052,10 +1052,10 @@ function psb_d_csc_csnmi(a) result(res) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc, info real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csnmi' logical, parameter :: debug=.false. @@ -1090,11 +1090,11 @@ function psb_d_csc_csnm1(a) result(res) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_csnm1' logical, parameter :: debug=.false. @@ -1121,11 +1121,11 @@ subroutine psb_d_csc_colsum(d,a) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1170,11 +1170,11 @@ subroutine psb_d_csc_aclsum(d,a) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1219,11 +1219,11 @@ subroutine psb_d_csc_rowsum(d,a) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1271,11 +1271,11 @@ subroutine psb_d_csc_arwsum(d,a) class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1324,9 +1324,9 @@ subroutine psb_d_csc_get_diag(a,d,info) implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1378,9 +1378,9 @@ subroutine psb_d_csc_scal(d,a,info) implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, n + integer(psb_ipk_) :: err_act,mnm, i, j, n character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1421,9 +1421,9 @@ subroutine psb_d_csc_scals(d,a,info) implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1472,17 +1472,17 @@ subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1567,15 +1567,15 @@ contains implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1660,18 +1660,18 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1757,16 +1757,16 @@ contains implicit none class(psb_d_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1851,15 +1851,15 @@ subroutine psb_d_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) info = psb_success_ @@ -1941,14 +1941,14 @@ contains implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng, nar, nac - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_csc_srch_upd' info = psb_success_ @@ -2144,15 +2144,15 @@ subroutine psb_d_cp_csc_from_coo(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2172,14 +2172,14 @@ subroutine psb_d_cp_csc_to_coo(a,b,info) class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2215,14 +2215,14 @@ subroutine psb_d_mv_csc_to_coo(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2259,14 +2259,14 @@ subroutine psb_d_mv_csc_from_coo(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc, icl - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc, icl + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_mv_csc_from_coo' info = psb_success_ @@ -2352,14 +2352,14 @@ subroutine psb_d_mv_csc_to_fmt(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2392,14 +2392,14 @@ subroutine psb_d_cp_csc_to_fmt(a,b,info) class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2432,14 +2432,14 @@ subroutine psb_d_mv_csc_from_fmt(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2473,14 +2473,14 @@ subroutine psb_d_cp_csc_from_fmt(a,b,info) class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2507,8 +2507,8 @@ subroutine psb_d_csc_mold(a,b,info) implicit none class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -2536,9 +2536,9 @@ subroutine psb_d_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_csc_reallocate_nz' logical, parameter :: debug=.false. @@ -2578,13 +2578,13 @@ subroutine psb_d_csc_csgetblk(imin,imax,a,b,info,& class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2635,7 +2635,7 @@ subroutine psb_d_csc_reinit(a,clear) class(psb_d_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2682,7 +2682,7 @@ subroutine psb_d_csc_trim(a) use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_trim implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, n + integer(psb_ipk_) :: err_act, info, nz, n character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2714,10 +2714,10 @@ subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -2776,19 +2776,19 @@ subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csc_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -2855,7 +2855,7 @@ subroutine psb_d_csc_cp_from(a,b) type(psb_d_csc_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -2894,7 +2894,7 @@ subroutine psb_d_csc_mv_from(a,b) type(psb_d_csc_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index 4dbfa5589..e7ed73df5 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csmv' logical, parameter :: debug=.false. @@ -90,13 +90,13 @@ subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) contains subroutine psb_d_csr_csmv_inner(m,n,alpha,irp,ja,val,is_triangle,is_unit,& & x,beta,y,tra,ctra) - integer, intent(in) :: m,n,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,irp(*),ja(*) real(psb_dpk_), intent(in) :: alpha, beta, x(*),val(*) real(psb_dpk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra, ctra - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc real(psb_dpk_) :: acc if (alpha == dzero) then @@ -366,14 +366,14 @@ subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csmm' logical, parameter :: debug=.false. @@ -442,13 +442,13 @@ subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_d_csr_csmm_inner(m,n,nc,alpha,irp,ja,val,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,ctra,acc) - integer, intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) real(psb_dpk_), intent(in) :: alpha, beta, x(ldx,*),val(*) real(psb_dpk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra,ctra real(psb_dpk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == dzero) then @@ -715,15 +715,15 @@ subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra,ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_cssv' logical, parameter :: debug=.false. @@ -820,12 +820,12 @@ contains subroutine inner_csrsv(tra,ctra,lower,unit,n,irp,ja,val,x,y) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: irp(*), ja(*),n + integer(psb_ipk_), intent(in) :: irp(*), ja(*),n real(psb_dpk_), intent(in) :: val(*) real(psb_dpk_), intent(in) :: x(*) real(psb_dpk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_) :: acc if ((.not.tra).and.(.not.ctra)) then @@ -980,15 +980,15 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_cssm' logical, parameter :: debug=.false. @@ -1080,11 +1080,11 @@ contains & irp,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) real(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -1243,7 +1243,7 @@ function psb_d_csr_maxval(a) result(res) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='d_csr_maxval' logical, parameter :: debug=.false. @@ -1263,10 +1263,10 @@ function psb_d_csr_csnmi(a) result(res) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csnmi' logical, parameter :: debug=.false. @@ -1292,11 +1292,11 @@ function psb_d_csr_csnm1(a) result(res) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csnm1' logical, parameter :: debug=.false. @@ -1328,11 +1328,11 @@ subroutine psb_d_csr_rowsum(d,a) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1377,11 +1377,11 @@ subroutine psb_d_csr_arwsum(d,a) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1426,11 +1426,11 @@ subroutine psb_d_csr_colsum(d,a) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1478,11 +1478,11 @@ subroutine psb_d_csr_aclsum(d,a) class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1530,9 +1530,9 @@ subroutine psb_d_csr_get_diag(a,d,info) implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1585,9 +1585,9 @@ subroutine psb_d_csr_scal(d,a,info) implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1628,9 +1628,9 @@ subroutine psb_d_csr_scals(d,a,info) implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1676,9 +1676,9 @@ subroutine psb_d_csr_reallocate_nz(nz,a) use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_csr_reallocate_nz' logical, parameter :: debug=.false. @@ -1713,8 +1713,8 @@ subroutine psb_d_csr_mold(a,b,info) implicit none class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1741,10 +1741,10 @@ subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1810,17 +1810,17 @@ subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1908,15 +1908,15 @@ contains implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='csr_getptn' debug_unit = psb_get_debug_unit() @@ -1985,18 +1985,18 @@ subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2085,16 +2085,16 @@ contains implicit none class(psb_d_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2164,13 +2164,13 @@ subroutine psb_d_csr_csgetblk(imin,imax,a,b,info,& class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2223,15 +2223,15 @@ subroutine psb_d_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2314,14 +2314,14 @@ contains implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_csr_srch_upd' info = psb_success_ @@ -2510,7 +2510,7 @@ subroutine psb_d_csr_reinit(a,clear) class(psb_d_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2557,7 +2557,7 @@ subroutine psb_d_csr_trim(a) use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_trim implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2590,18 +2590,18 @@ subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -2668,15 +2668,15 @@ subroutine psb_d_cp_csr_from_coo(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2696,14 +2696,14 @@ subroutine psb_d_cp_csr_to_coo(a,b,info) class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2738,14 +2738,14 @@ subroutine psb_d_mv_csr_to_coo(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2783,14 +2783,14 @@ subroutine psb_d_mv_csr_from_coo(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='mv_from_coo' info = psb_success_ @@ -2875,14 +2875,14 @@ subroutine psb_d_mv_csr_to_fmt(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2915,14 +2915,14 @@ subroutine psb_d_cp_csr_to_fmt(a,b,info) class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2954,14 +2954,14 @@ subroutine psb_d_mv_csr_from_fmt(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2995,14 +2995,14 @@ subroutine psb_d_cp_csr_from_fmt(a,b,info) class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -3034,7 +3034,7 @@ subroutine psb_d_csr_cp_from(a,b) type(psb_d_csr_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3073,7 +3073,7 @@ subroutine psb_d_csr_mv_from(a,b) type(psb_d_csr_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90 index 0f9577df9..7ee8d4e86 100644 --- a/base/serial/impl/psb_d_mat_impl.F90 +++ b/base/serial/impl/psb_d_mat_impl.F90 @@ -29,8 +29,8 @@ subroutine psb_d_set_nrows(m,a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: m - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_) :: err_act, info character(len=20) :: name='set_nrows' logical, parameter :: debug=.false. @@ -63,8 +63,8 @@ subroutine psb_d_set_ncols(n,a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -104,8 +104,8 @@ subroutine psb_d_set_dupl(n,a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -142,7 +142,7 @@ subroutine psb_d_set_null(a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -175,7 +175,7 @@ subroutine psb_d_set_bld(a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -207,7 +207,7 @@ subroutine psb_d_set_upd(a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -240,7 +240,7 @@ subroutine psb_d_set_asb(a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -273,7 +273,7 @@ subroutine psb_d_set_sorted(a,val) implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -306,7 +306,7 @@ subroutine psb_d_set_triangle(a,val) implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -339,7 +339,7 @@ subroutine psb_d_set_unit(a,val) implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -372,7 +372,7 @@ subroutine psb_d_set_lower(a,val) implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -405,7 +405,7 @@ subroutine psb_d_set_upper(a,val) implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -451,13 +451,13 @@ subroutine psb_d_sparse_print(iout,a,iv,head,ivr,ivc) use psb_error_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -491,11 +491,11 @@ subroutine psb_d_n_sparse_print(fname,a,iv,head,ivr,ivc) character(len=*), intent(in) :: fname class(psb_dspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info, iout + integer(psb_ipk_) :: err_act, info, iout logical :: isopen character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -544,13 +544,13 @@ subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) use psb_error_mod implicit none class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' logical, parameter :: debug=.false. @@ -588,11 +588,11 @@ subroutine psb_d_csall(nr,nc,a,info,nz) use psb_error_mod implicit none class(psb_dspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -625,9 +625,9 @@ subroutine psb_d_reallocate_nz(nz,a) use psb_d_mat_mod, psb_protect_name => psb_d_reallocate_nz use psb_error_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -673,7 +673,7 @@ subroutine psb_d_trim(a) use psb_error_mod implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -707,11 +707,11 @@ subroutine psb_d_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -751,16 +751,16 @@ subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -801,17 +801,17 @@ subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_dspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -855,14 +855,14 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,& class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat), allocatable :: acoo @@ -914,11 +914,11 @@ subroutine psb_d_csclip(a,b,info,& class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat), allocatable :: acoo @@ -968,11 +968,11 @@ subroutine psb_d_b_csclip(a,b,info,& class(psb_dspmat_type), intent(in) :: a type(psb_d_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. @@ -1011,14 +1011,14 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_d_base_sparse_mat), intent(in), optional :: mold class(psb_d_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1112,14 +1112,14 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) implicit none class(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_d_base_sparse_mat), intent(in), optional :: mold class(psb_d_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv_ip' logical, parameter :: debug=.false. @@ -1212,12 +1212,12 @@ subroutine psb_d_cscnv_base(a,b,info,dupl) implicit none class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl type(psb_d_coo_sparse_mat) :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1270,13 +1270,13 @@ subroutine psb_d_clip_d(a,b,info) class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1332,13 +1332,13 @@ subroutine psb_d_clip_d_ip(a,info) implicit none class(psb_dspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1391,7 +1391,7 @@ subroutine psb_d_mv_from(a,b) implicit none class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(a%a,mold=b, stat=info) @@ -1412,7 +1412,7 @@ subroutine psb_d_cp_from(a,b) implicit none class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1453,7 +1453,7 @@ subroutine psb_d_mv_to(a,b) implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%mv_from_fmt(a%a,info) @@ -1468,7 +1468,7 @@ subroutine psb_d_cp_to(a,b) implicit none class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%cp_from_fmt(a%a,info) @@ -1479,7 +1479,7 @@ subroutine psb_d_mold(a,b) use psb_d_mat_mod, psb_protect_name => psb_d_mold class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), allocatable, intent(out) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(b,mold=a%a, stat=info) #else @@ -1495,9 +1495,9 @@ subroutine psb_dspmat_type_move(a,b,info) implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='move_alloc' logical, parameter :: debug=.false. @@ -1515,9 +1515,9 @@ subroutine psb_dspmat_clone(a,b,info) implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1555,7 +1555,7 @@ subroutine psb_d_transp_1mat(a) implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1592,7 +1592,7 @@ subroutine psb_d_transp_2mat(a,b) class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1636,7 +1636,7 @@ subroutine psb_d_transc_1mat(a) implicit none class(psb_dspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1673,7 +1673,7 @@ subroutine psb_d_transc_2mat(a,b) class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1719,7 +1719,7 @@ subroutine psb_d_reinit(a,clear) class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) @@ -1768,9 +1768,9 @@ subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmm' logical, parameter :: debug=.false. @@ -1806,9 +1806,9 @@ subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1845,9 +1845,9 @@ subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1895,10 +1895,10 @@ subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssm' logical, parameter :: debug=.false. @@ -1935,10 +1935,10 @@ subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -1978,10 +1978,10 @@ subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x type(psb_d_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_d_vect_type), optional, intent(inout) :: d - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -2038,7 +2038,7 @@ function psb_d_maxval(a) result(res) real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -2071,7 +2071,7 @@ function psb_d_csnmi(a) result(res) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -2105,7 +2105,7 @@ function psb_d_csnm1(a) result(res) class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -2138,9 +2138,9 @@ subroutine psb_d_rowsum(d,a,info) implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -2176,9 +2176,9 @@ subroutine psb_d_arwsum(d,a,info) implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -2214,9 +2214,9 @@ subroutine psb_d_colsum(d,a,info) implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -2252,9 +2252,9 @@ subroutine psb_d_aclsum(d,a,info) implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -2291,9 +2291,9 @@ subroutine psb_d_get_diag(a,d,info) implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -2330,9 +2330,9 @@ subroutine psb_d_scal(d,a,info) implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -2369,9 +2369,9 @@ subroutine psb_d_scals(d,a,info) implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_s_base_mat_impl.f90 b/base/serial/impl/psb_s_base_mat_impl.f90 index 0da77fc5d..45d372bd9 100644 --- a/base/serial/impl/psb_s_base_mat_impl.f90 +++ b/base/serial/impl/psb_s_base_mat_impl.f90 @@ -17,9 +17,9 @@ subroutine psb_s_base_cp_to_coo(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -44,9 +44,9 @@ subroutine psb_s_base_cp_from_coo(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -72,9 +72,9 @@ subroutine psb_s_base_cp_to_fmt(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp @@ -97,9 +97,9 @@ subroutine psb_s_base_cp_from_fmt(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp @@ -123,9 +123,9 @@ subroutine psb_s_base_mv_to_coo(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -150,9 +150,9 @@ subroutine psb_s_base_mv_from_coo(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -178,9 +178,9 @@ subroutine psb_s_base_mv_to_fmt(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp @@ -203,9 +203,9 @@ subroutine psb_s_base_mv_from_fmt(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp @@ -227,11 +227,11 @@ subroutine psb_s_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -258,16 +258,16 @@ subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_s_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -302,13 +302,13 @@ subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -362,11 +362,11 @@ subroutine psb_s_base_csclip(a,b,info,& class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb + integer(psb_ipk_) :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb character(len=20) :: name='csget' logical :: rscale_, cscale_ logical, parameter :: debug=.false. @@ -446,8 +446,8 @@ subroutine psb_s_base_mold(a,b,info) implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -474,7 +474,7 @@ subroutine psb_s_base_transp_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_s_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='s_base_transp' call psb_erractionsave(err_act) @@ -512,7 +512,7 @@ subroutine psb_s_base_transc_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_s_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='s_base_transc' call psb_erractionsave(err_act) @@ -549,7 +549,7 @@ subroutine psb_s_base_transp_1mat(a) class(psb_s_base_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='s_base_transp' call psb_erractionsave(err_act) @@ -582,7 +582,7 @@ subroutine psb_s_base_transc_1mat(a) class(psb_s_base_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='s_base_transc' call psb_erractionsave(err_act) @@ -630,10 +630,10 @@ subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_csmm' logical, parameter :: debug=.false. @@ -659,10 +659,10 @@ subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_csmv' logical, parameter :: debug=.false. @@ -689,10 +689,10 @@ subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_inner_cssm' logical, parameter :: debug=.false. @@ -718,10 +718,10 @@ subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_inner_cssv' logical, parameter :: debug=.false. @@ -748,12 +748,12 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) real(psb_spk_), allocatable :: tmp(:,:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='s_cssm' logical, parameter :: debug=.false. @@ -883,12 +883,12 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) real(psb_spk_), allocatable :: tmp(:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='s_cssm' logical, parameter :: debug=.false. @@ -1003,10 +1003,10 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) contains subroutine inner_vscal(n,d,x,y) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_), intent(in) :: d(*),x(*) real(psb_spk_), intent(out) :: y(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i) = d(i)*x(i) @@ -1016,10 +1016,10 @@ contains subroutine inner_vscal1(n,d,x) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n real(psb_spk_), intent(in) :: d(*) real(psb_spk_), intent(inout) :: x(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n x(i) = d(i)*x(i) @@ -1035,9 +1035,9 @@ subroutine psb_s_base_scals(d,a,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_scals' logical, parameter :: debug=.false. @@ -1063,9 +1063,9 @@ subroutine psb_s_base_scal(d,a,info) implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_scal' logical, parameter :: debug=.false. @@ -1094,7 +1094,7 @@ function psb_s_base_maxval(a) result(res) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -1123,7 +1123,7 @@ function psb_s_base_csnmi(a) result(res) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -1152,7 +1152,7 @@ function psb_s_base_csnm1(a) result(res) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -1179,7 +1179,7 @@ subroutine psb_s_base_rowsum(d,a) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1205,7 +1205,7 @@ subroutine psb_s_base_arwsum(d,a) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1231,7 +1231,7 @@ subroutine psb_s_base_colsum(d,a) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1257,7 +1257,7 @@ subroutine psb_s_base_aclsum(d,a) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1285,9 +1285,9 @@ subroutine psb_s_base_get_diag(a,d,info) implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1331,7 +1331,7 @@ subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans ! For the time being we just throw everything back @@ -1351,13 +1351,13 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_s_base_vect_type), intent(inout),optional :: d real(psb_spk_), allocatable :: tmp(:) class(psb_s_base_vect_type), allocatable :: tmpv - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='s_cssm' logical, parameter :: debug=.false. @@ -1490,10 +1490,10 @@ subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_inner_vect_sv' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index 808b0b04d..95c6b0fad 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -6,9 +6,9 @@ subroutine psb_s_coo_get_diag(a,d,info) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j + integer(psb_ipk_) :: err_act,mnm, i, j character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -54,9 +54,9 @@ subroutine psb_s_coo_scal(d,a,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -96,9 +96,9 @@ subroutine psb_s_coo_scals(d,a,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -129,9 +129,9 @@ subroutine psb_s_coo_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='s_coo_reallocate_nz' logical, parameter :: debug=.false. @@ -164,8 +164,8 @@ subroutine psb_s_coo_mold(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -196,7 +196,7 @@ subroutine psb_s_coo_reinit(a,clear) class(psb_s_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -245,7 +245,7 @@ subroutine psb_s_coo_trim(a) use psb_error_mod implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz + integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -277,10 +277,10 @@ subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -340,19 +340,19 @@ subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) use psb_string_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -409,9 +409,9 @@ function psb_s_coo_get_nz_row(idx,a) result(res) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res - integer :: nzin_, nza,ip,jp,i,k + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res + integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k res = 0 nza = a%get_nzeros() @@ -462,15 +462,15 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_csmm' logical, parameter :: debug=.false. @@ -574,12 +574,12 @@ contains & ia,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(ldx,*) real(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -820,15 +820,15 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_cssv_impl' logical, parameter :: debug=.false. @@ -929,12 +929,12 @@ contains & ia,ja,val,x,y,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nz,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(*) real(psb_spk_), intent(out) :: y(*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc, nnz + integer(psb_ipk_) :: i,j,k,m, ir, jc, nnz real(psb_spk_) :: acc info = psb_success_ @@ -1167,14 +1167,14 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_spk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_csmv_impl' logical, parameter :: debug=.false. @@ -1364,14 +1364,14 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_csmm_impl' logical, parameter :: debug=.false. @@ -1569,7 +1569,7 @@ function psb_s_coo_maxval(a) result(res) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='s_coo_maxval' logical, parameter :: debug=.false. @@ -1589,11 +1589,11 @@ function psb_s_coo_csnmi(a) result(res) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_csnmi' logical, parameter :: debug=.false. @@ -1640,11 +1640,11 @@ function psb_s_coo_csnm1(a) result(res) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_csnm1' logical, parameter :: debug=.false. @@ -1673,11 +1673,11 @@ subroutine psb_s_coo_rowsum(d,a) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1722,11 +1722,11 @@ subroutine psb_s_coo_arwsum(d,a) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1771,11 +1771,11 @@ subroutine psb_s_coo_colsum(d,a) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1820,11 +1820,11 @@ subroutine psb_s_coo_aclsum(d,a) class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1888,17 +1888,17 @@ subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1987,15 +1987,15 @@ contains implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getptn' debug_unit = psb_get_debug_unit() @@ -2166,18 +2166,18 @@ subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2267,16 +2267,16 @@ contains implicit none class(psb_s_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2450,15 +2450,15 @@ subroutine psb_s_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_coo_csput_impl' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) info = psb_success_ call psb_erractionsave(err_act) @@ -2543,14 +2543,14 @@ contains & imin,imax,jmin,jmax,info,gtl) implicit none - integer, intent(in) :: nz, imin,imax,jmin,jmax,maxsz - integer, intent(in) :: ia(:),ja(:) - integer, intent(inout) :: nza,ia1(:),ia2(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz + integer(psb_ipk_), intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(inout) :: nza,ia1(:),ia2(:) real(psb_spk_), intent(in) :: val(:) real(psb_spk_), intent(inout) :: aspk(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic,ng + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic,ng info = psb_success_ if (present(gtl)) then @@ -2604,14 +2604,14 @@ contains implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nc,nnz,dupl,ng, nr - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='s_coo_srch_upd' info = psb_success_ @@ -2826,9 +2826,9 @@ subroutine psb_s_cp_coo_to_coo(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nz + integer(psb_ipk_) :: err_act, nz character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2870,12 +2870,12 @@ subroutine psb_s_cp_coo_from_coo(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2915,9 +2915,9 @@ subroutine psb_s_cp_coo_to_fmt(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2950,12 +2950,12 @@ subroutine psb_s_cp_coo_from_fmt(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2987,9 +2987,9 @@ subroutine psb_s_mv_coo_to_coo(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3030,12 +3030,12 @@ subroutine psb_s_mv_coo_from_coo(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3074,9 +3074,9 @@ subroutine psb_s_mv_coo_to_fmt(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3109,12 +3109,12 @@ subroutine psb_s_mv_coo_from_fmt(a,b,info) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3148,7 +3148,7 @@ subroutine psb_s_coo_cp_from(a,b) type(psb_s_coo_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3181,7 +3181,7 @@ subroutine psb_s_coo_mv_from(a,b) type(psb_s_coo_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. @@ -3214,13 +3214,13 @@ subroutine psb_s_fix_coo(a,info,idir) implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir - integer, allocatable :: iaux(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir + integer(psb_ipk_), allocatable :: iaux(:) !locals - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ @@ -3274,16 +3274,16 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) use psb_ip_reord_mod implicit none - integer, intent(in) :: nzin, dupl - integer, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin, dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_spk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir !locals - integer, allocatable :: iaux(:) - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: iaux(:) + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index eb1c0ba6e..d0170b5fe 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_spk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_csmv' logical, parameter :: debug=.false. @@ -297,14 +297,14 @@ subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_csmm' logical, parameter :: debug=.false. @@ -581,15 +581,15 @@ subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m, nnz, ir, jc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_cssv' logical, parameter :: debug=.false. @@ -686,12 +686,12 @@ contains subroutine inner_cscsv(tra,lower,unit,n,icp,ia,val,x,y) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: icp(*), ia(*),n + integer(psb_ipk_), intent(in) :: icp(*), ia(*),n real(psb_spk_), intent(in) :: val(*) real(psb_spk_), intent(in) :: x(*) real(psb_spk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_spk_) :: acc if (tra) then @@ -801,15 +801,15 @@ subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_csmm' logical, parameter :: debug=.false. @@ -913,11 +913,11 @@ contains & icp,ia,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) real(psb_spk_), intent(in) :: val(*), x(ldx,*) real(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -1032,7 +1032,7 @@ function psb_s_csc_maxval(a) result(res) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='s_csc_maxval' logical, parameter :: debug=.false. @@ -1052,10 +1052,10 @@ function psb_s_csc_csnmi(a) result(res) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc, info real(psb_spk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csnmi' logical, parameter :: debug=.false. @@ -1090,11 +1090,11 @@ function psb_s_csc_csnm1(a) result(res) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_csnm1' logical, parameter :: debug=.false. @@ -1121,11 +1121,11 @@ subroutine psb_s_csc_colsum(d,a) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1170,11 +1170,11 @@ subroutine psb_s_csc_aclsum(d,a) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1219,11 +1219,11 @@ subroutine psb_s_csc_rowsum(d,a) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1271,11 +1271,11 @@ subroutine psb_s_csc_arwsum(d,a) class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1324,9 +1324,9 @@ subroutine psb_s_csc_get_diag(a,d,info) implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1378,9 +1378,9 @@ subroutine psb_s_csc_scal(d,a,info) implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, n + integer(psb_ipk_) :: err_act,mnm, i, j, n character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1421,9 +1421,9 @@ subroutine psb_s_csc_scals(d,a,info) implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1472,17 +1472,17 @@ subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1567,15 +1567,15 @@ contains implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1660,18 +1660,18 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1757,16 +1757,16 @@ contains implicit none class(psb_s_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1851,15 +1851,15 @@ subroutine psb_s_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) info = psb_success_ @@ -1941,14 +1941,14 @@ contains implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng, nar, nac - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='s_csc_srch_upd' info = psb_success_ @@ -2144,15 +2144,15 @@ subroutine psb_s_cp_csc_from_coo(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_s_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2172,14 +2172,14 @@ subroutine psb_s_cp_csc_to_coo(a,b,info) class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2215,14 +2215,14 @@ subroutine psb_s_mv_csc_to_coo(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2259,14 +2259,14 @@ subroutine psb_s_mv_csc_from_coo(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc, icl - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc, icl + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='s_mv_csc_from_coo' info = psb_success_ @@ -2352,14 +2352,14 @@ subroutine psb_s_mv_csc_to_fmt(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2392,14 +2392,14 @@ subroutine psb_s_cp_csc_to_fmt(a,b,info) class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2432,14 +2432,14 @@ subroutine psb_s_mv_csc_from_fmt(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2473,14 +2473,14 @@ subroutine psb_s_cp_csc_from_fmt(a,b,info) class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2507,8 +2507,8 @@ subroutine psb_s_csc_mold(a,b,info) implicit none class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -2536,9 +2536,9 @@ subroutine psb_s_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_s_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='s_csc_reallocate_nz' logical, parameter :: debug=.false. @@ -2578,13 +2578,13 @@ subroutine psb_s_csc_csgetblk(imin,imax,a,b,info,& class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2635,7 +2635,7 @@ subroutine psb_s_csc_reinit(a,clear) class(psb_s_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2682,7 +2682,7 @@ subroutine psb_s_csc_trim(a) use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_trim implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, n + integer(psb_ipk_) :: err_act, info, nz, n character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2714,10 +2714,10 @@ subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_s_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -2776,19 +2776,19 @@ subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_s_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csc_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -2855,7 +2855,7 @@ subroutine psb_s_csc_cp_from(a,b) type(psb_s_csc_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -2894,7 +2894,7 @@ subroutine psb_s_csc_mv_from(a,b) type(psb_s_csc_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 108418217..d0278f61a 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_spk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_csmv' logical, parameter :: debug=.false. @@ -90,13 +90,13 @@ subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) contains subroutine psb_s_csr_csmv_inner(m,n,alpha,irp,ja,val,is_triangle,is_unit,& & x,beta,y,tra,ctra) - integer, intent(in) :: m,n,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,irp(*),ja(*) real(psb_spk_), intent(in) :: alpha, beta, x(*),val(*) real(psb_spk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra, ctra - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc real(psb_spk_) :: acc if (alpha == szero) then @@ -366,14 +366,14 @@ subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_csmm' logical, parameter :: debug=.false. @@ -442,13 +442,13 @@ subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_s_csr_csmm_inner(m,n,nc,alpha,irp,ja,val,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,ctra,acc) - integer, intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) real(psb_spk_), intent(in) :: alpha, beta, x(ldx,*),val(*) real(psb_spk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra,ctra real(psb_spk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == szero) then @@ -715,15 +715,15 @@ subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:) logical :: tra,ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_cssv' logical, parameter :: debug=.false. @@ -820,12 +820,12 @@ contains subroutine inner_csrsv(tra,ctra,lower,unit,n,irp,ja,val,x,y) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: irp(*), ja(*),n + integer(psb_ipk_), intent(in) :: irp(*), ja(*),n real(psb_spk_), intent(in) :: val(*) real(psb_spk_), intent(in) :: x(*) real(psb_spk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_spk_) :: acc if ((.not.tra).and.(.not.ctra)) then @@ -980,15 +980,15 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_cssm' logical, parameter :: debug=.false. @@ -1080,11 +1080,11 @@ contains & irp,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(ldx,*) real(psb_spk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_spk_), allocatable :: acc(:) info = psb_success_ @@ -1243,7 +1243,7 @@ function psb_s_csr_maxval(a) result(res) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='s_csr_maxval' logical, parameter :: debug=.false. @@ -1263,10 +1263,10 @@ function psb_s_csr_csnmi(a) result(res) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_spk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csnmi' logical, parameter :: debug=.false. @@ -1292,11 +1292,11 @@ function psb_s_csr_csnm1(a) result(res) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csnm1' logical, parameter :: debug=.false. @@ -1328,11 +1328,11 @@ subroutine psb_s_csr_rowsum(d,a) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1377,11 +1377,11 @@ subroutine psb_s_csr_arwsum(d,a) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1426,11 +1426,11 @@ subroutine psb_s_csr_colsum(d,a) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1478,11 +1478,11 @@ subroutine psb_s_csr_aclsum(d,a) class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1530,9 +1530,9 @@ subroutine psb_s_csr_get_diag(a,d,info) implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1585,9 +1585,9 @@ subroutine psb_s_csr_scal(d,a,info) implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1628,9 +1628,9 @@ subroutine psb_s_csr_scals(d,a,info) implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1676,9 +1676,9 @@ subroutine psb_s_csr_reallocate_nz(nz,a) use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_s_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='s_csr_reallocate_nz' logical, parameter :: debug=.false. @@ -1713,8 +1713,8 @@ subroutine psb_s_csr_mold(a,b,info) implicit none class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1741,10 +1741,10 @@ subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_s_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1810,17 +1810,17 @@ subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1908,15 +1908,15 @@ contains implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='csr_getptn' debug_unit = psb_get_debug_unit() @@ -1985,18 +1985,18 @@ subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2085,16 +2085,16 @@ contains implicit none class(psb_s_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2164,13 +2164,13 @@ subroutine psb_s_csr_csgetblk(imin,imax,a,b,info,& class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2223,15 +2223,15 @@ subroutine psb_s_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2314,14 +2314,14 @@ contains implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='s_csr_srch_upd' info = psb_success_ @@ -2510,7 +2510,7 @@ subroutine psb_s_csr_reinit(a,clear) class(psb_s_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2557,7 +2557,7 @@ subroutine psb_s_csr_trim(a) use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_trim implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2590,18 +2590,18 @@ subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_s_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' @@ -2668,15 +2668,15 @@ subroutine psb_s_cp_csr_from_coo(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_s_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2696,14 +2696,14 @@ subroutine psb_s_cp_csr_to_coo(a,b,info) class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2738,14 +2738,14 @@ subroutine psb_s_mv_csr_to_coo(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2783,14 +2783,14 @@ subroutine psb_s_mv_csr_from_coo(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='mv_from_coo' info = psb_success_ @@ -2875,14 +2875,14 @@ subroutine psb_s_mv_csr_to_fmt(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2915,14 +2915,14 @@ subroutine psb_s_cp_csr_to_fmt(a,b,info) class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2954,14 +2954,14 @@ subroutine psb_s_mv_csr_from_fmt(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2995,14 +2995,14 @@ subroutine psb_s_cp_csr_from_fmt(a,b,info) class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_s_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -3034,7 +3034,7 @@ subroutine psb_s_csr_cp_from(a,b) type(psb_s_csr_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3073,7 +3073,7 @@ subroutine psb_s_csr_mv_from(a,b) type(psb_s_csr_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90 index 3faa8cb66..5d00e879e 100644 --- a/base/serial/impl/psb_s_mat_impl.F90 +++ b/base/serial/impl/psb_s_mat_impl.F90 @@ -29,8 +29,8 @@ subroutine psb_s_set_nrows(m,a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: m - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_) :: err_act, info character(len=20) :: name='set_nrows' logical, parameter :: debug=.false. @@ -63,8 +63,8 @@ subroutine psb_s_set_ncols(n,a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -104,8 +104,8 @@ subroutine psb_s_set_dupl(n,a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -142,7 +142,7 @@ subroutine psb_s_set_null(a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -175,7 +175,7 @@ subroutine psb_s_set_bld(a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -207,7 +207,7 @@ subroutine psb_s_set_upd(a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -240,7 +240,7 @@ subroutine psb_s_set_asb(a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -273,7 +273,7 @@ subroutine psb_s_set_sorted(a,val) implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -306,7 +306,7 @@ subroutine psb_s_set_triangle(a,val) implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -339,7 +339,7 @@ subroutine psb_s_set_unit(a,val) implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -372,7 +372,7 @@ subroutine psb_s_set_lower(a,val) implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -405,7 +405,7 @@ subroutine psb_s_set_upper(a,val) implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -451,13 +451,13 @@ subroutine psb_s_sparse_print(iout,a,iv,head,ivr,ivc) use psb_error_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -491,11 +491,11 @@ subroutine psb_s_n_sparse_print(fname,a,iv,head,ivr,ivc) character(len=*), intent(in) :: fname class(psb_sspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info, iout + integer(psb_ipk_) :: err_act, info, iout logical :: isopen character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -544,13 +544,13 @@ subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) use psb_error_mod implicit none class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' logical, parameter :: debug=.false. @@ -588,11 +588,11 @@ subroutine psb_s_csall(nr,nc,a,info,nz) use psb_error_mod implicit none class(psb_sspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -625,9 +625,9 @@ subroutine psb_s_reallocate_nz(nz,a) use psb_s_mat_mod, psb_protect_name => psb_s_reallocate_nz use psb_error_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -673,7 +673,7 @@ subroutine psb_s_trim(a) use psb_error_mod implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -707,11 +707,11 @@ subroutine psb_s_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -751,16 +751,16 @@ subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -801,17 +801,17 @@ subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_sspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_spk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -855,14 +855,14 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,& class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat), allocatable :: acoo @@ -914,11 +914,11 @@ subroutine psb_s_csclip(a,b,info,& class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat), allocatable :: acoo @@ -968,11 +968,11 @@ subroutine psb_s_b_csclip(a,b,info,& class(psb_sspmat_type), intent(in) :: a type(psb_s_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. @@ -1011,14 +1011,14 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_s_base_sparse_mat), intent(in), optional :: mold class(psb_s_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1112,14 +1112,14 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) implicit none class(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_s_base_sparse_mat), intent(in), optional :: mold class(psb_s_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv_ip' logical, parameter :: debug=.false. @@ -1212,12 +1212,12 @@ subroutine psb_s_cscnv_base(a,b,info,dupl) implicit none class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl type(psb_s_coo_sparse_mat) :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1270,13 +1270,13 @@ subroutine psb_s_clip_d(a,b,info) class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1332,13 +1332,13 @@ subroutine psb_s_clip_d_ip(a,info) implicit none class(psb_sspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1391,7 +1391,7 @@ subroutine psb_s_mv_from(a,b) implicit none class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(inout) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(a%a,mold=b, stat=info) @@ -1412,7 +1412,7 @@ subroutine psb_s_cp_from(a,b) implicit none class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1453,7 +1453,7 @@ subroutine psb_s_mv_to(a,b) implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%mv_from_fmt(a%a,info) @@ -1468,7 +1468,7 @@ subroutine psb_s_cp_to(a,b) implicit none class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%cp_from_fmt(a%a,info) @@ -1479,7 +1479,7 @@ subroutine psb_s_mold(a,b) use psb_s_mat_mod, psb_protect_name => psb_s_mold class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), allocatable, intent(out) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(b,mold=a%a, stat=info) #else @@ -1495,9 +1495,9 @@ subroutine psb_sspmat_type_move(a,b,info) implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='move_alloc' logical, parameter :: debug=.false. @@ -1515,9 +1515,9 @@ subroutine psb_sspmat_clone(a,b,info) implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1555,7 +1555,7 @@ subroutine psb_s_transp_1mat(a) implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1592,7 +1592,7 @@ subroutine psb_s_transp_2mat(a,b) class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1636,7 +1636,7 @@ subroutine psb_s_transc_1mat(a) implicit none class(psb_sspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1673,7 +1673,7 @@ subroutine psb_s_transc_2mat(a,b) class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1719,7 +1719,7 @@ subroutine psb_s_reinit(a,clear) class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) @@ -1768,9 +1768,9 @@ subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmm' logical, parameter :: debug=.false. @@ -1806,9 +1806,9 @@ subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1845,9 +1845,9 @@ subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1895,10 +1895,10 @@ subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssm' logical, parameter :: debug=.false. @@ -1935,10 +1935,10 @@ subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -1978,10 +1978,10 @@ subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x type(psb_s_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_s_vect_type), optional, intent(inout) :: d - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -2038,7 +2038,7 @@ function psb_s_maxval(a) result(res) real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -2071,7 +2071,7 @@ function psb_s_csnmi(a) result(res) class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -2105,7 +2105,7 @@ function psb_s_csnm1(a) result(res) class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -2138,9 +2138,9 @@ subroutine psb_s_rowsum(d,a,info) implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -2176,9 +2176,9 @@ subroutine psb_s_arwsum(d,a,info) implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -2214,9 +2214,9 @@ subroutine psb_s_colsum(d,a,info) implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -2252,9 +2252,9 @@ subroutine psb_s_aclsum(d,a,info) implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -2291,9 +2291,9 @@ subroutine psb_s_get_diag(a,d,info) implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -2330,9 +2330,9 @@ subroutine psb_s_scal(d,a,info) implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -2369,9 +2369,9 @@ subroutine psb_s_scals(d,a,info) implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_z_base_mat_impl.f90 b/base/serial/impl/psb_z_base_mat_impl.f90 index 1e3e77671..67d2e558d 100644 --- a/base/serial/impl/psb_z_base_mat_impl.f90 +++ b/base/serial/impl/psb_z_base_mat_impl.f90 @@ -17,9 +17,9 @@ subroutine psb_z_base_cp_to_coo(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -44,9 +44,9 @@ subroutine psb_z_base_cp_from_coo(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -72,9 +72,9 @@ subroutine psb_z_base_cp_to_fmt(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp @@ -97,9 +97,9 @@ subroutine psb_z_base_cp_from_fmt(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp @@ -123,9 +123,9 @@ subroutine psb_z_base_mv_to_coo(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -150,9 +150,9 @@ subroutine psb_z_base_mv_from_coo(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. @@ -178,9 +178,9 @@ subroutine psb_z_base_mv_to_fmt(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp @@ -203,9 +203,9 @@ subroutine psb_z_base_mv_from_fmt(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_fmt' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp @@ -227,11 +227,11 @@ subroutine psb_z_base_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -258,16 +258,16 @@ subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_z_base_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -302,13 +302,13 @@ subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -362,11 +362,11 @@ subroutine psb_z_base_csclip(a,b,info,& class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb + integer(psb_ipk_) :: err_act, nzin, nzout, imin_, imax_, jmin_, jmax_, mb,nb character(len=20) :: name='csget' logical :: rscale_, cscale_ logical, parameter :: debug=.false. @@ -446,8 +446,8 @@ subroutine psb_z_base_mold(a,b,info) implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -474,7 +474,7 @@ subroutine psb_z_base_transp_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_z_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='z_base_transp' call psb_erractionsave(err_act) @@ -512,7 +512,7 @@ subroutine psb_z_base_transc_2mat(a,b) class(psb_base_sparse_mat), intent(out) :: b type(psb_z_coo_sparse_mat) :: tmp - integer err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='z_base_transc' call psb_erractionsave(err_act) @@ -549,7 +549,7 @@ subroutine psb_z_base_transp_1mat(a) class(psb_z_base_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='z_base_transp' call psb_erractionsave(err_act) @@ -582,7 +582,7 @@ subroutine psb_z_base_transc_1mat(a) class(psb_z_base_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat) :: tmp - integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=*), parameter :: name='z_base_transc' call psb_erractionsave(err_act) @@ -630,10 +630,10 @@ subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_csmm' logical, parameter :: debug=.false. @@ -659,10 +659,10 @@ subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_csmv' logical, parameter :: debug=.false. @@ -689,10 +689,10 @@ subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_inner_cssm' logical, parameter :: debug=.false. @@ -718,10 +718,10 @@ subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_inner_cssv' logical, parameter :: debug=.false. @@ -748,12 +748,12 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) complex(psb_dpk_), allocatable :: tmp(:,:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='z_cssm' logical, parameter :: debug=.false. @@ -883,12 +883,12 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) complex(psb_dpk_), allocatable :: tmp(:) - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='z_cssm' logical, parameter :: debug=.false. @@ -1003,10 +1003,10 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) contains subroutine inner_vscal(n,d,x,y) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), intent(in) :: d(*),x(*) complex(psb_dpk_), intent(out) :: y(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i) = d(i)*x(i) @@ -1016,10 +1016,10 @@ contains subroutine inner_vscal1(n,d,x) implicit none - integer, intent(in) :: n + integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), intent(in) :: d(*) complex(psb_dpk_), intent(inout) :: x(*) - integer :: i + integer(psb_ipk_) :: i do i=1,n x(i) = d(i)*x(i) @@ -1035,9 +1035,9 @@ subroutine psb_z_base_scals(d,a,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_scals' logical, parameter :: debug=.false. @@ -1063,9 +1063,9 @@ subroutine psb_z_base_scal(d,a,info) implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_scal' logical, parameter :: debug=.false. @@ -1094,7 +1094,7 @@ function psb_z_base_maxval(a) result(res) class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -1123,7 +1123,7 @@ function psb_z_base_csnmi(a) result(res) class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -1152,7 +1152,7 @@ function psb_z_base_csnm1(a) result(res) class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -1179,7 +1179,7 @@ subroutine psb_z_base_rowsum(d,a) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1205,7 +1205,7 @@ subroutine psb_z_base_arwsum(d,a) class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1231,7 +1231,7 @@ subroutine psb_z_base_colsum(d,a) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1257,7 +1257,7 @@ subroutine psb_z_base_aclsum(d,a) class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1285,9 +1285,9 @@ subroutine psb_z_base_get_diag(a,d,info) implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1331,7 +1331,7 @@ subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans ! For the time being we just throw everything back @@ -1351,13 +1351,13 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale class(psb_z_base_vect_type), intent(inout),optional :: d complex(psb_dpk_), allocatable :: tmp(:) class(psb_z_base_vect_type), allocatable :: tmpv - Integer :: err_act, nar,nac,nc, i + integer(psb_ipk_) :: err_act, nar,nac,nc, i character(len=1) :: scale_ character(len=20) :: name='z_cssm' logical, parameter :: debug=.false. @@ -1490,10 +1490,10 @@ subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x, y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_inner_vect_sv' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index 55446d210..18d04ed89 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -6,9 +6,9 @@ subroutine psb_z_coo_get_diag(a,d,info) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j + integer(psb_ipk_) :: err_act,mnm, i, j character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -54,9 +54,9 @@ subroutine psb_z_coo_scal(d,a,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -96,9 +96,9 @@ subroutine psb_z_coo_scals(d,a,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -129,9 +129,9 @@ subroutine psb_z_coo_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='z_coo_reallocate_nz' logical, parameter :: debug=.false. @@ -164,8 +164,8 @@ subroutine psb_z_coo_mold(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -196,7 +196,7 @@ subroutine psb_z_coo_reinit(a,clear) class(psb_z_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -245,7 +245,7 @@ subroutine psb_z_coo_trim(a) use psb_error_mod implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz + integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -277,10 +277,10 @@ subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -340,19 +340,19 @@ subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) use psb_string_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -409,9 +409,9 @@ function psb_z_coo_get_nz_row(idx,a) result(res) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res - integer :: nzin_, nza,ip,jp,i,k + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res + integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k res = 0 nza = a%get_nzeros() @@ -462,15 +462,15 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_csmm' logical, parameter :: debug=.false. @@ -574,12 +574,12 @@ contains & ia,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(ldx,*) complex(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -820,15 +820,15 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_cssv_impl' logical, parameter :: debug=.false. @@ -929,12 +929,12 @@ contains & ia,ja,val,x,y,info) implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted - integer, intent(in) :: nr,nz,ia(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(*) complex(psb_dpk_), intent(out) :: y(*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc, nnz + integer(psb_ipk_) :: i,j,k,m, ir, jc, nnz complex(psb_dpk_) :: acc info = psb_success_ @@ -1167,14 +1167,14 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_dpk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_csmv_impl' logical, parameter :: debug=.false. @@ -1364,14 +1364,14 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_csmm_impl' logical, parameter :: debug=.false. @@ -1569,7 +1569,7 @@ function psb_z_coo_maxval(a) result(res) class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='z_coo_maxval' logical, parameter :: debug=.false. @@ -1589,11 +1589,11 @@ function psb_z_coo_csnmi(a) result(res) class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_csnmi' logical, parameter :: debug=.false. @@ -1640,11 +1640,11 @@ function psb_z_coo_csnm1(a) result(res) class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_csnm1' logical, parameter :: debug=.false. @@ -1673,11 +1673,11 @@ subroutine psb_z_coo_rowsum(d,a) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1722,11 +1722,11 @@ subroutine psb_z_coo_arwsum(d,a) class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1771,11 +1771,11 @@ subroutine psb_z_coo_colsum(d,a) class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1820,11 +1820,11 @@ subroutine psb_z_coo_aclsum(d,a) class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1888,17 +1888,17 @@ subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1987,15 +1987,15 @@ contains implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getptn' debug_unit = psb_get_debug_unit() @@ -2166,18 +2166,18 @@ subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2267,16 +2267,16 @@ contains implicit none class(psb_z_coo_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2450,15 +2450,15 @@ subroutine psb_z_coo_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_coo_csput_impl' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) info = psb_success_ call psb_erractionsave(err_act) @@ -2543,14 +2543,14 @@ contains & imin,imax,jmin,jmax,info,gtl) implicit none - integer, intent(in) :: nz, imin,imax,jmin,jmax,maxsz - integer, intent(in) :: ia(:),ja(:) - integer, intent(inout) :: nza,ia1(:),ia2(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz + integer(psb_ipk_), intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(inout) :: nza,ia1(:),ia2(:) complex(psb_dpk_), intent(in) :: val(:) complex(psb_dpk_), intent(inout) :: aspk(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic,ng + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic,ng info = psb_success_ if (present(gtl)) then @@ -2604,14 +2604,14 @@ contains implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nc,nnz,dupl,ng, nr - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='z_coo_srch_upd' info = psb_success_ @@ -2826,9 +2826,9 @@ subroutine psb_z_cp_coo_to_coo(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nz + integer(psb_ipk_) :: err_act, nz character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2870,12 +2870,12 @@ subroutine psb_z_cp_coo_from_coo(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2915,9 +2915,9 @@ subroutine psb_z_cp_coo_to_fmt(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -2950,12 +2950,12 @@ subroutine psb_z_cp_coo_from_fmt(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -2987,9 +2987,9 @@ subroutine psb_z_mv_coo_to_coo(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3030,12 +3030,12 @@ subroutine psb_z_mv_coo_from_coo(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3074,9 +3074,9 @@ subroutine psb_z_mv_coo_to_fmt(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='to_coo' logical, parameter :: debug=.false. @@ -3109,12 +3109,12 @@ subroutine psb_z_mv_coo_from_fmt(a,b,info) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='from_coo' logical, parameter :: debug=.false. - integer :: m,n,nz + integer(psb_ipk_) :: m,n,nz call psb_erractionsave(err_act) @@ -3148,7 +3148,7 @@ subroutine psb_z_coo_cp_from(a,b) type(psb_z_coo_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3181,7 +3181,7 @@ subroutine psb_z_coo_mv_from(a,b) type(psb_z_coo_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. @@ -3214,13 +3214,13 @@ subroutine psb_z_fix_coo(a,info,idir) implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - integer, intent(out) :: info - integer, intent(in), optional :: idir - integer, allocatable :: iaux(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: idir + integer(psb_ipk_), allocatable :: iaux(:) !locals - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ @@ -3274,16 +3274,16 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) use psb_ip_reord_mod implicit none - integer, intent(in) :: nzin, dupl - integer, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin, dupl + integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_dpk_), intent(inout) :: val(:) - integer, intent(out) :: nzout, info - integer, intent(in), optional :: idir + integer(psb_ipk_), intent(out) :: nzout, info + integer(psb_ipk_), intent(in), optional :: idir !locals - integer, allocatable :: iaux(:) - Integer :: nza, nzl,iret,idir_, dupl_ - integer :: i,j, irw, icl, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: iaux(:) + integer(psb_ipk_) :: nza, nzl,iret,idir_, dupl_ + integer(psb_ipk_) :: i,j, irw, icl, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name = 'psb_fixcoo' info = psb_success_ diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index c27c12493..26ea703ed 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_csmv' logical, parameter :: debug=.false. @@ -297,14 +297,14 @@ subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_csmm' logical, parameter :: debug=.false. @@ -581,15 +581,15 @@ subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m, nnz, ir, jc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_cssv' logical, parameter :: debug=.false. @@ -686,12 +686,12 @@ contains subroutine inner_cscsv(tra,lower,unit,n,icp,ia,val,x,y) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: icp(*), ia(*),n + integer(psb_ipk_), intent(in) :: icp(*), ia(*),n complex(psb_dpk_), intent(in) :: val(*) complex(psb_dpk_), intent(in) :: x(*) complex(psb_dpk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_dpk_) :: acc if (tra) then @@ -801,15 +801,15 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_csmm' logical, parameter :: debug=.false. @@ -913,11 +913,11 @@ contains & icp,ia,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,icp(*),ia(*) complex(psb_dpk_), intent(in) :: val(*), x(ldx,*) complex(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -1032,7 +1032,7 @@ function psb_z_csc_maxval(a) result(res) class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='z_csc_maxval' logical, parameter :: debug=.false. @@ -1052,10 +1052,10 @@ function psb_z_csc_csnmi(a) result(res) class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc, info real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csnmi' logical, parameter :: debug=.false. @@ -1090,11 +1090,11 @@ function psb_z_csc_csnm1(a) result(res) class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_csnm1' logical, parameter :: debug=.false. @@ -1121,11 +1121,11 @@ subroutine psb_z_csc_colsum(d,a) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1170,11 +1170,11 @@ subroutine psb_z_csc_aclsum(d,a) class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1219,11 +1219,11 @@ subroutine psb_z_csc_rowsum(d,a) class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1271,11 +1271,11 @@ subroutine psb_z_csc_arwsum(d,a) class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -1324,9 +1324,9 @@ subroutine psb_z_csc_get_diag(a,d,info) implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1378,9 +1378,9 @@ subroutine psb_z_csc_scal(d,a,info) implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, n + integer(psb_ipk_) :: err_act,mnm, i, j, n character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1421,9 +1421,9 @@ subroutine psb_z_csc_scals(d,a,info) implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1472,17 +1472,17 @@ subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1567,15 +1567,15 @@ contains implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,m,isz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1660,18 +1660,18 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1757,16 +1757,16 @@ contains implicit none class(psb_z_csc_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw, icl, lcl,isz,m + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1851,15 +1851,15 @@ subroutine psb_z_csc_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) info = psb_success_ @@ -1941,14 +1941,14 @@ contains implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng, nar, nac - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='z_csc_srch_upd' info = psb_success_ @@ -2144,15 +2144,15 @@ subroutine psb_z_cp_csc_from_coo(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_z_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2172,14 +2172,14 @@ subroutine psb_z_cp_csc_to_coo(a,b,info) class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2215,14 +2215,14 @@ subroutine psb_z_mv_csc_to_coo(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2259,14 +2259,14 @@ subroutine psb_z_mv_csc_from_coo(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc, icl - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc, icl + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='z_mv_csc_from_coo' info = psb_success_ @@ -2352,14 +2352,14 @@ subroutine psb_z_mv_csc_to_fmt(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2392,14 +2392,14 @@ subroutine psb_z_cp_csc_to_fmt(a,b,info) class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2432,14 +2432,14 @@ subroutine psb_z_mv_csc_from_fmt(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2473,14 +2473,14 @@ subroutine psb_z_cp_csc_from_fmt(a,b,info) class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2507,8 +2507,8 @@ subroutine psb_z_csc_mold(a,b,info) implicit none class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -2536,9 +2536,9 @@ subroutine psb_z_csc_reallocate_nz(nz,a) use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_z_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='z_csc_reallocate_nz' logical, parameter :: debug=.false. @@ -2578,13 +2578,13 @@ subroutine psb_z_csc_csgetblk(imin,imax,a,b,info,& class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2635,7 +2635,7 @@ subroutine psb_z_csc_reinit(a,clear) class(psb_z_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2682,7 +2682,7 @@ subroutine psb_z_csc_trim(a) use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_trim implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, n + integer(psb_ipk_) :: err_act, info, nz, n character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2714,10 +2714,10 @@ subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_z_csc_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -2776,19 +2776,19 @@ subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_z_csc_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csc_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -2855,7 +2855,7 @@ subroutine psb_z_csc_cp_from(a,b) type(psb_z_csc_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -2894,7 +2894,7 @@ subroutine psb_z_csc_mv_from(a,b) type(psb_z_csc_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index d20a774ba..e82fb0c41 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -20,14 +20,14 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_dpk_) :: acc logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_csmv' logical, parameter :: debug=.false. @@ -90,13 +90,13 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) contains subroutine psb_z_csr_csmv_inner(m,n,alpha,irp,ja,val,is_triangle,is_unit,& & x,beta,y,tra,ctra) - integer, intent(in) :: m,n,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,irp(*),ja(*) complex(psb_dpk_), intent(in) :: alpha, beta, x(*),val(*) complex(psb_dpk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra, ctra - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc complex(psb_dpk_) :: acc if (alpha == zzero) then @@ -366,14 +366,14 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_), allocatable :: acc(:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_csmm' logical, parameter :: debug=.false. @@ -442,13 +442,13 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_z_csr_csmm_inner(m,n,nc,alpha,irp,ja,val,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,ctra,acc) - integer, intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) complex(psb_dpk_), intent(in) :: alpha, beta, x(ldx,*),val(*) complex(psb_dpk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra,ctra complex(psb_dpk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == zzero) then @@ -715,15 +715,15 @@ subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:) logical :: tra,ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_cssv' logical, parameter :: debug=.false. @@ -820,12 +820,12 @@ contains subroutine inner_csrsv(tra,ctra,lower,unit,n,irp,ja,val,x,y) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: irp(*), ja(*),n + integer(psb_ipk_), intent(in) :: irp(*), ja(*),n complex(psb_dpk_), intent(in) :: val(*) complex(psb_dpk_), intent(in) :: x(*) complex(psb_dpk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_dpk_) :: acc if ((.not.tra).and.(.not.ctra)) then @@ -980,15 +980,15 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: tmp(:,:) logical :: tra, ctra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_cssm' logical, parameter :: debug=.false. @@ -1080,11 +1080,11 @@ contains & irp,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,ctra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(ldx,*) complex(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc complex(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -1243,7 +1243,7 @@ function psb_z_csr_maxval(a) result(res) class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='z_csr_maxval' logical, parameter :: debug=.false. @@ -1263,10 +1263,10 @@ function psb_z_csr_csnmi(a) result(res) class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csnmi' logical, parameter :: debug=.false. @@ -1292,11 +1292,11 @@ function psb_z_csr_csnm1(a) result(res) class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csr_csnm1' logical, parameter :: debug=.false. @@ -1328,11 +1328,11 @@ subroutine psb_z_csr_rowsum(d,a) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1377,11 +1377,11 @@ subroutine psb_z_csr_arwsum(d,a) class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1426,11 +1426,11 @@ subroutine psb_z_csr_colsum(d,a) class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1478,11 +1478,11 @@ subroutine psb_z_csr_aclsum(d,a) class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1530,9 +1530,9 @@ subroutine psb_z_csr_get_diag(a,d,info) implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1585,9 +1585,9 @@ subroutine psb_z_csr_scal(d,a,info) implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1628,9 +1628,9 @@ subroutine psb_z_csr_scals(d,a,info) implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1676,9 +1676,9 @@ subroutine psb_z_csr_reallocate_nz(nz,a) use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_z_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='z_csr_reallocate_nz' logical, parameter :: debug=.false. @@ -1713,8 +1713,8 @@ subroutine psb_z_csr_mold(a,b,info) implicit none class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1741,10 +1741,10 @@ subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_z_csr_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1810,17 +1810,17 @@ subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1908,15 +1908,15 @@ contains implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='csr_getptn' debug_unit = psb_get_debug_unit() @@ -1985,18 +1985,18 @@ subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2085,16 +2085,16 @@ contains implicit none class(psb_z_csr_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2164,13 +2164,13 @@ subroutine psb_z_csr_csgetblk(imin,imax,a,b,info,& class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2223,15 +2223,15 @@ subroutine psb_z_csr_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2314,14 +2314,14 @@ contains implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='z_csr_srch_upd' info = psb_success_ @@ -2510,7 +2510,7 @@ subroutine psb_z_csr_reinit(a,clear) class(psb_z_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2557,7 +2557,7 @@ subroutine psb_z_csr_trim(a) use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_trim implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2590,18 +2590,18 @@ subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_z_csr_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(head)) then write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' @@ -2668,15 +2668,15 @@ subroutine psb_z_cp_csr_from_coo(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_z_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2696,14 +2696,14 @@ subroutine psb_z_cp_csr_to_coo(a,b,info) class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2738,14 +2738,14 @@ subroutine psb_z_mv_csr_to_coo(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2783,14 +2783,14 @@ subroutine psb_z_mv_csr_from_coo(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='mv_from_coo' info = psb_success_ @@ -2875,14 +2875,14 @@ subroutine psb_z_mv_csr_to_fmt(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2915,14 +2915,14 @@ subroutine psb_z_cp_csr_to_fmt(a,b,info) class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2954,14 +2954,14 @@ subroutine psb_z_mv_csr_from_fmt(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2995,14 +2995,14 @@ subroutine psb_z_cp_csr_from_fmt(a,b,info) class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_z_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -3034,7 +3034,7 @@ subroutine psb_z_csr_cp_from(a,b) type(psb_z_csr_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3073,7 +3073,7 @@ subroutine psb_z_csr_mv_from(a,b) type(psb_z_csr_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90 index 5335337d9..4490191fe 100644 --- a/base/serial/impl/psb_z_mat_impl.F90 +++ b/base/serial/impl/psb_z_mat_impl.F90 @@ -29,8 +29,8 @@ subroutine psb_z_set_nrows(m,a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: m - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_) :: err_act, info character(len=20) :: name='set_nrows' logical, parameter :: debug=.false. @@ -63,8 +63,8 @@ subroutine psb_z_set_ncols(n,a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -104,8 +104,8 @@ subroutine psb_z_set_dupl(n,a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: n - Integer :: err_act, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -142,7 +142,7 @@ subroutine psb_z_set_null(a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -175,7 +175,7 @@ subroutine psb_z_set_bld(a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -207,7 +207,7 @@ subroutine psb_z_set_upd(a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -240,7 +240,7 @@ subroutine psb_z_set_asb(a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -273,7 +273,7 @@ subroutine psb_z_set_sorted(a,val) implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -306,7 +306,7 @@ subroutine psb_z_set_triangle(a,val) implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -339,7 +339,7 @@ subroutine psb_z_set_unit(a,val) implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -372,7 +372,7 @@ subroutine psb_z_set_lower(a,val) implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -405,7 +405,7 @@ subroutine psb_z_set_upper(a,val) implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. @@ -451,13 +451,13 @@ subroutine psb_z_sparse_print(iout,a,iv,head,ivr,ivc) use psb_error_mod implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -491,11 +491,11 @@ subroutine psb_z_n_sparse_print(fname,a,iv,head,ivr,ivc) character(len=*), intent(in) :: fname class(psb_zspmat_type), intent(in) :: a - integer, intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act, info, iout + integer(psb_ipk_) :: err_act, info, iout logical :: isopen character(len=20) :: name='sparse_print' logical, parameter :: debug=.false. @@ -544,13 +544,13 @@ subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) use psb_error_mod implicit none class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: idx - integer, intent(out) :: n - integer, allocatable, intent(out) :: neigh(:) - integer, intent(out) :: info - integer, optional, intent(in) :: lev + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n + integer(psb_ipk_), allocatable, intent(out) :: neigh(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: lev - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' logical, parameter :: debug=.false. @@ -588,11 +588,11 @@ subroutine psb_z_csall(nr,nc,a,info,nz) use psb_error_mod implicit none class(psb_zspmat_type), intent(out) :: a - integer, intent(in) :: nr,nc - integer, intent(out) :: info - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in) :: nr,nc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: nz - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -625,9 +625,9 @@ subroutine psb_z_reallocate_nz(nz,a) use psb_z_mat_mod, psb_protect_name => psb_z_reallocate_nz use psb_error_mod implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -673,7 +673,7 @@ subroutine psb_z_trim(a) use psb_error_mod implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -707,11 +707,11 @@ subroutine psb_z_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csput' logical, parameter :: debug=.false. @@ -751,16 +751,16 @@ subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -801,17 +801,17 @@ subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_zspmat_type), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) complex(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -855,14 +855,14 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,& class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csget' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat), allocatable :: acoo @@ -914,11 +914,11 @@ subroutine psb_z_csclip(a,b,info,& class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat), allocatable :: acoo @@ -968,11 +968,11 @@ subroutine psb_z_b_csclip(a,b,info,& class(psb_zspmat_type), intent(in) :: a type(psb_z_coo_sparse_mat), intent(out) :: b - integer,intent(out) :: info - integer, intent(in), optional :: imin,imax,jmin,jmax + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csclip' logical, parameter :: debug=.false. @@ -1011,14 +1011,14 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: type class(psb_z_base_sparse_mat), intent(in), optional :: mold class(psb_z_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1112,14 +1112,14 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) implicit none class(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl character(len=*), optional, intent(in) :: type class(psb_z_base_sparse_mat), intent(in), optional :: mold class(psb_z_base_sparse_mat), allocatable :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv_ip' logical, parameter :: debug=.false. @@ -1212,12 +1212,12 @@ subroutine psb_z_cscnv_base(a,b,info,dupl) implicit none class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b - integer, intent(out) :: info - integer,optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl type(psb_z_coo_sparse_mat) :: altmp - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='cscnv' logical, parameter :: debug=.false. @@ -1270,13 +1270,13 @@ subroutine psb_z_clip_d(a,b,info) class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1332,13 +1332,13 @@ subroutine psb_z_clip_d_ip(a,info) implicit none class(psb_zspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clip_diag' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat), allocatable :: acoo - integer :: i, j, nz + integer(psb_ipk_) :: i, j, nz info = psb_success_ call psb_erractionsave(err_act) @@ -1391,7 +1391,7 @@ subroutine psb_z_mv_from(a,b) implicit none class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(inout) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(a%a,mold=b, stat=info) @@ -1412,7 +1412,7 @@ subroutine psb_z_cp_from(a,b) implicit none class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1453,7 +1453,7 @@ subroutine psb_z_mv_to(a,b) implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%mv_from_fmt(a%a,info) @@ -1468,7 +1468,7 @@ subroutine psb_z_cp_to(a,b) implicit none class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b - integer :: info + integer(psb_ipk_) :: info call b%cp_from_fmt(a%a,info) @@ -1479,7 +1479,7 @@ subroutine psb_z_mold(a,b) use psb_z_mat_mod, psb_protect_name => psb_z_mold class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), allocatable, intent(out) :: b - integer :: info + integer(psb_ipk_) :: info #if defined(HAVE_MOLD) allocate(b,mold=a%a, stat=info) #else @@ -1495,9 +1495,9 @@ subroutine psb_zspmat_type_move(a,b,info) implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='move_alloc' logical, parameter :: debug=.false. @@ -1515,9 +1515,9 @@ subroutine psb_zspmat_clone(a,b,info) implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='clone' logical, parameter :: debug=.false. @@ -1555,7 +1555,7 @@ subroutine psb_z_transp_1mat(a) implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1592,7 +1592,7 @@ subroutine psb_z_transp_2mat(a,b) class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transp' logical, parameter :: debug=.false. @@ -1636,7 +1636,7 @@ subroutine psb_z_transc_1mat(a) implicit none class(psb_zspmat_type), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1673,7 +1673,7 @@ subroutine psb_z_transc_2mat(a,b) class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(out) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='transc' logical, parameter :: debug=.false. @@ -1719,7 +1719,7 @@ subroutine psb_z_reinit(a,clear) class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) @@ -1768,9 +1768,9 @@ subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmm' logical, parameter :: debug=.false. @@ -1806,9 +1806,9 @@ subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1845,9 +1845,9 @@ subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_csmv' logical, parameter :: debug=.false. @@ -1895,10 +1895,10 @@ subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssm' logical, parameter :: debug=.false. @@ -1935,10 +1935,10 @@ subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -1978,10 +1978,10 @@ subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x type(psb_z_vect_type), intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans, scale type(psb_z_vect_type), optional, intent(inout) :: d - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='psb_cssv' logical, parameter :: debug=.false. @@ -2038,7 +2038,7 @@ function psb_z_maxval(a) result(res) real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='maxval' logical, parameter :: debug=.false. @@ -2071,7 +2071,7 @@ function psb_z_csnmi(a) result(res) class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' logical, parameter :: debug=.false. @@ -2105,7 +2105,7 @@ function psb_z_csnm1(a) result(res) class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' logical, parameter :: debug=.false. @@ -2138,9 +2138,9 @@ subroutine psb_z_rowsum(d,a,info) implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -2176,9 +2176,9 @@ subroutine psb_z_arwsum(d,a,info) implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='arwsum' logical, parameter :: debug=.false. @@ -2214,9 +2214,9 @@ subroutine psb_z_colsum(d,a,info) implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -2252,9 +2252,9 @@ subroutine psb_z_aclsum(d,a,info) implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -2291,9 +2291,9 @@ subroutine psb_z_get_diag(a,d,info) implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -2330,9 +2330,9 @@ subroutine psb_z_scal(d,a,info) implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -2369,9 +2369,9 @@ subroutine psb_z_scals(d,a,info) implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='scal' logical, parameter :: debug=.false. diff --git a/base/serial/psb_aspxpby.f90 b/base/serial/psb_aspxpby.f90 index edfa77a4a..bfa675421 100644 --- a/base/serial/psb_aspxpby.f90 +++ b/base/serial/psb_aspxpby.f90 @@ -1,12 +1,12 @@ subroutine psb_s_aspxpby(alpha, nx, ix, x, beta, y, info) use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: i, ip + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, ip info=psb_success_ @@ -49,13 +49,13 @@ end subroutine psb_s_aspxpby subroutine psb_d_aspxpby(alpha, nx, ix, x, beta, y, info) use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: i, ip + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, ip info=psb_success_ @@ -97,13 +97,13 @@ subroutine psb_d_aspxpby(alpha, nx, ix, x, beta, y, info) end subroutine psb_d_aspxpby subroutine psb_c_aspxpby(alpha, nx, ix, x, beta, y, info) use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: i, ip + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, ip info=psb_success_ @@ -146,13 +146,13 @@ end subroutine psb_c_aspxpby subroutine psb_z_aspxpby(alpha, nx, ix, x, beta, y, info) use psb_const_mod - integer, intent(in) :: nx - integer, intent(in) :: ix(:) + integer(psb_ipk_), intent(in) :: nx + integer(psb_ipk_), intent(in) :: ix(:) complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: i, ip + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, ip info=psb_success_ diff --git a/base/serial/psb_cgelp.f90 b/base/serial/psb_cgelp.f90 index 2dbb92125..e5b0feb8f 100644 --- a/base/serial/psb_cgelp.f90 +++ b/base/serial/psb_cgelp.f90 @@ -47,16 +47,16 @@ subroutine psb_cgelp(trans,iperm,x,info) implicit none complex(psb_spk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables complex(psb_spk_),allocatable :: temp(:) - integer :: int_err(5), i1sz, i2sz, err_act,i,j - integer, allocatable :: itemp(:) + integer(psb_ipk_) :: int_err(5), i1sz, i2sz, err_act,i,j + integer(psb_ipk_), allocatable :: itemp(:) complex(psb_spk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_cgelp' @@ -179,16 +179,16 @@ subroutine psb_cgelpv(trans,iperm,x,info) implicit none complex(psb_spk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables - integer :: int_err(5), i1sz, err_act, i + integer(psb_ipk_) :: int_err(5), i1sz, err_act, i complex(psb_spk_),allocatable :: temp(:) - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) complex(psb_spk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_cgelpv' diff --git a/base/serial/psb_cgeprt.f90 b/base/serial/psb_cgeprt.f90 index eeb8e9bef..e2d8c916b 100644 --- a/base/serial/psb_cgeprt.f90 +++ b/base/serial/psb_cgeprt.f90 @@ -55,7 +55,7 @@ subroutine psb_cgeprtn2(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -89,7 +89,7 @@ subroutine psb_cgeprtn1(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -118,11 +118,11 @@ subroutine psb_cgeprt2(iout,a,head) use psb_serial_mod, psb_protect_name => psb_cgeprt2 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout complex(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array complex general' write(iout,'(a)') '% '//trim(head) @@ -150,11 +150,11 @@ subroutine psb_cgeprt1(iout,a,head) use psb_serial_mod, psb_protect_name => psb_cgeprt1 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout complex(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array complex general' write(iout,'(a)') '% '//trim(head) diff --git a/base/serial/psb_cnumbmm.f90 b/base/serial/psb_cnumbmm.f90 index 23d04e227..9e56aaaff 100644 --- a/base/serial/psb_cnumbmm.f90 +++ b/base/serial/psb_cnumbmm.f90 @@ -46,8 +46,8 @@ subroutine psb_cnumbmm(a,b,c) type(psb_cspmat_type), intent(in) :: a,b type(psb_cspmat_type), intent(inout) :: c - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_numbmm' call psb_erractionsave(err_act) @@ -91,12 +91,12 @@ subroutine psb_cbase_numbmm(a,b,c) class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(inout) :: c - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name complex(psb_spk_), allocatable :: temp(:) - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act name='psb_numbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -160,8 +160,8 @@ contains type(psb_c_csr_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(inout) :: c complex(psb_spk_) :: temp(:) - integer, intent(out) :: info - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -179,11 +179,11 @@ contains subroutine gen_numbmm(a,b,c,temp,info) class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(inout) :: c - integer :: info + integer(psb_ipk_) :: info complex(psb_spk_) :: temp(:) - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) complex(psb_spk_), allocatable :: aval(:),bval(:) - integer :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln complex(psb_spk_) :: ajj n = a%get_nrows() diff --git a/base/serial/psb_crwextd.f90 b/base/serial/psb_crwextd.f90 index b693b8991..5baf1df92 100644 --- a/base/serial/psb_crwextd.f90 +++ b/base/serial/psb_crwextd.f90 @@ -43,13 +43,13 @@ subroutine psb_crwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_cspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_cspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb character(len=20) :: name, ch_err type(psb_c_coo_sparse_mat) :: actmp logical rowscale_ @@ -103,13 +103,13 @@ subroutine psb_cbase_rwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_c_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb character(len=20) :: name, ch_err logical rowscale_ diff --git a/base/serial/psb_csymbmm.f90 b/base/serial/psb_csymbmm.f90 index 1a787e9e4..9b1fcfb86 100644 --- a/base/serial/psb_csymbmm.f90 +++ b/base/serial/psb_csymbmm.f90 @@ -45,9 +45,9 @@ subroutine psb_csymbmm(a,b,c,info) type(psb_cspmat_type), intent(in) :: a,b type(psb_cspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_c_csr_sparse_mat), allocatable :: ccsr - integer :: err_act + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -92,11 +92,11 @@ subroutine psb_cbase_symbmm(a,b,c,info) class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name - integer :: err_act + integer(psb_ipk_) :: err_act name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -156,17 +156,18 @@ contains subroutine csr_symbmm(a,b,c,itemp,info) type(psb_c_csr_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(out) :: c - integer :: itemp(:) - integer, intent(out) :: info + integer(psb_ipk_) :: itemp(:) + integer(psb_ipk_), intent(out) :: info interface subroutine symbmm (n, m, l, ia, ja, diaga, & & ib, jb, diagb, ic, jc, diagc, index) - integer n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& + import :: psb_ipk_ + integer(psb_ipk_) :: n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& & diagc, index(*) - integer, allocatable :: ic(:),jc(:) + integer(psb_ipk_), allocatable :: ic(:),jc(:) end subroutine symbmm end interface - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -184,10 +185,10 @@ contains subroutine gen_symbmm(a,b,c,index,info) class(psb_c_base_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(out) :: c - integer :: index(:),info - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) - integer :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: index(:),info + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn + integer(psb_ipk_) :: nze, ma,na,mb,nb ma = a%get_nrows() na = a%get_ncols() diff --git a/base/serial/psb_dgelp.f90 b/base/serial/psb_dgelp.f90 index 050f07f3c..6533358e2 100644 --- a/base/serial/psb_dgelp.f90 +++ b/base/serial/psb_dgelp.f90 @@ -47,16 +47,16 @@ subroutine psb_dgelp(trans,iperm,x,info) implicit none real(psb_dpk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables real(psb_dpk_),allocatable :: temp(:) - integer :: int_err(5), i1sz, i2sz, err_act,i,j - integer, allocatable :: itemp(:) + integer(psb_ipk_) :: int_err(5), i1sz, i2sz, err_act,i,j + integer(psb_ipk_), allocatable :: itemp(:) real(psb_dpk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_dgelp' @@ -179,16 +179,16 @@ subroutine psb_dgelpv(trans,iperm,x,info) implicit none real(psb_dpk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables - integer :: int_err(5), i1sz, err_act, i + integer(psb_ipk_) :: int_err(5), i1sz, err_act, i real(psb_dpk_),allocatable :: temp(:) - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) real(psb_dpk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_dgelpv' diff --git a/base/serial/psb_dgeprt.f90 b/base/serial/psb_dgeprt.f90 index 06776becb..59b2a7dce 100644 --- a/base/serial/psb_dgeprt.f90 +++ b/base/serial/psb_dgeprt.f90 @@ -55,7 +55,7 @@ subroutine psb_dgeprtn2(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -89,7 +89,7 @@ subroutine psb_dgeprtn1(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -118,11 +118,11 @@ subroutine psb_dgeprt2(iout,a,head) use psb_serial_mod, psb_protect_name => psb_dgeprt2 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout real(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array real general' write(iout,'(a)') '% '//trim(head) @@ -150,11 +150,11 @@ subroutine psb_dgeprt1(iout,a,head) use psb_serial_mod, psb_protect_name => psb_dgeprt1 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout real(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array real general' write(iout,'(a)') '% '//trim(head) diff --git a/base/serial/psb_dnumbmm.f90 b/base/serial/psb_dnumbmm.f90 index 080f9d1da..7055a4522 100644 --- a/base/serial/psb_dnumbmm.f90 +++ b/base/serial/psb_dnumbmm.f90 @@ -46,8 +46,8 @@ subroutine psb_dnumbmm(a,b,c) type(psb_dspmat_type), intent(in) :: a,b type(psb_dspmat_type), intent(inout) :: c - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_numbmm' call psb_erractionsave(err_act) @@ -91,12 +91,12 @@ subroutine psb_dbase_numbmm(a,b,c) class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(inout) :: c - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name real(psb_dpk_), allocatable :: temp(:) - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act name='psb_numbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -160,8 +160,8 @@ contains type(psb_d_csr_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(inout) :: c real(psb_dpk_) :: temp(:) - integer, intent(out) :: info - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -179,11 +179,11 @@ contains subroutine gen_numbmm(a,b,c,temp,info) class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(inout) :: c - integer :: info + integer(psb_ipk_) :: info real(psb_dpk_) :: temp(:) - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) real(psb_dpk_), allocatable :: aval(:),bval(:) - integer :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln real(psb_dpk_) :: ajj n = a%get_nrows() diff --git a/base/serial/psb_drwextd.f90 b/base/serial/psb_drwextd.f90 index 4526c78a1..c5b176845 100644 --- a/base/serial/psb_drwextd.f90 +++ b/base/serial/psb_drwextd.f90 @@ -43,13 +43,13 @@ subroutine psb_drwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_dspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_dspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb character(len=20) :: name, ch_err type(psb_d_coo_sparse_mat) :: actmp logical rowscale_ @@ -103,13 +103,13 @@ subroutine psb_dbase_rwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_d_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb character(len=20) :: name, ch_err logical rowscale_ diff --git a/base/serial/psb_dsymbmm.f90 b/base/serial/psb_dsymbmm.f90 index 72f010e56..d1d45d27f 100644 --- a/base/serial/psb_dsymbmm.f90 +++ b/base/serial/psb_dsymbmm.f90 @@ -45,9 +45,9 @@ subroutine psb_dsymbmm(a,b,c,info) type(psb_dspmat_type), intent(in) :: a,b type(psb_dspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_csr_sparse_mat), allocatable :: ccsr - integer :: err_act + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -92,11 +92,11 @@ subroutine psb_dbase_symbmm(a,b,c,info) class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name - integer :: err_act + integer(psb_ipk_) :: err_act name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -156,17 +156,18 @@ contains subroutine csr_symbmm(a,b,c,itemp,info) type(psb_d_csr_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(out) :: c - integer :: itemp(:) - integer, intent(out) :: info + integer(psb_ipk_) :: itemp(:) + integer(psb_ipk_), intent(out) :: info interface subroutine symbmm (n, m, l, ia, ja, diaga, & & ib, jb, diagb, ic, jc, diagc, index) - integer n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& + import :: psb_ipk_ + integer(psb_ipk_) :: n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& & diagc, index(*) - integer, allocatable :: ic(:),jc(:) + integer(psb_ipk_), allocatable :: ic(:),jc(:) end subroutine symbmm end interface - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -184,10 +185,10 @@ contains subroutine gen_symbmm(a,b,c,index,info) class(psb_d_base_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(out) :: c - integer :: index(:),info - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) - integer :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: index(:),info + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn + integer(psb_ipk_) :: nze, ma,na,mb,nb ma = a%get_nrows() na = a%get_ncols() diff --git a/base/serial/psb_sgelp.f90 b/base/serial/psb_sgelp.f90 index 63454d29c..606e76470 100644 --- a/base/serial/psb_sgelp.f90 +++ b/base/serial/psb_sgelp.f90 @@ -47,16 +47,16 @@ subroutine psb_sgelp(trans,iperm,x,info) implicit none real(psb_spk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables - integer :: ictxt + integer(psb_ipk_) :: ictxt real(psb_spk_),allocatable :: temp(:) - integer :: int_err(5), i1sz, i2sz, err_act,i,j - integer, allocatable :: itemp(:) + integer(psb_ipk_) :: int_err(5), i1sz, i2sz, err_act,i,j + integer(psb_ipk_), allocatable :: itemp(:) real(psb_spk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_sgelp' @@ -179,17 +179,17 @@ subroutine psb_sgelpv(trans,iperm,x,info) implicit none real(psb_spk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables - integer :: ictxt - integer :: int_err(5), i1sz, err_act, i + integer(psb_ipk_) :: ictxt + integer(psb_ipk_) :: int_err(5), i1sz, err_act, i real(psb_spk_),allocatable :: temp(:) - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) real(psb_spk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_sgelpv' diff --git a/base/serial/psb_sgeprt.f90 b/base/serial/psb_sgeprt.f90 index 2f2c41870..bdee532d5 100644 --- a/base/serial/psb_sgeprt.f90 +++ b/base/serial/psb_sgeprt.f90 @@ -55,7 +55,7 @@ subroutine psb_sgeprtn2(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -89,7 +89,7 @@ subroutine psb_sgeprtn1(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -118,11 +118,11 @@ subroutine psb_sgeprt2(iout,a,head) use psb_serial_mod, psb_protect_name => psb_sgeprt2 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout real(psb_spk_), intent(in) :: a(:,:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array real general' write(iout,'(a)') '% '//trim(head) @@ -150,11 +150,11 @@ subroutine psb_sgeprt1(iout,a,head) use psb_serial_mod, psb_protect_name => psb_sgeprt1 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout real(psb_spk_), intent(in) :: a(:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array real general' write(iout,'(a)') '% '//trim(head) diff --git a/base/serial/psb_snumbmm.f90 b/base/serial/psb_snumbmm.f90 index 77ad7d58d..b00d3a0be 100644 --- a/base/serial/psb_snumbmm.f90 +++ b/base/serial/psb_snumbmm.f90 @@ -46,8 +46,8 @@ subroutine psb_snumbmm(a,b,c) type(psb_sspmat_type), intent(in) :: a,b type(psb_sspmat_type), intent(inout) :: c - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_numbmm' call psb_erractionsave(err_act) @@ -91,12 +91,12 @@ subroutine psb_sbase_numbmm(a,b,c) class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(inout) :: c - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name real(psb_spk_), allocatable :: temp(:) - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act name='psb_numbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -160,8 +160,8 @@ contains type(psb_s_csr_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(inout) :: c real(psb_spk_) :: temp(:) - integer, intent(out) :: info - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -179,11 +179,11 @@ contains subroutine gen_numbmm(a,b,c,temp,info) class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(inout) :: c - integer :: info + integer(psb_ipk_) :: info real(psb_spk_) :: temp(:) - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) real(psb_spk_), allocatable :: aval(:),bval(:) - integer :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln real(psb_spk_) :: ajj n = a%get_nrows() diff --git a/base/serial/psb_sort_impl.f90 b/base/serial/psb_sort_impl.f90 index 7052a0ed2..52cd3d727 100644 --- a/base/serial/psb_sort_impl.f90 +++ b/base/serial/psb_sort_impl.f90 @@ -46,10 +46,10 @@ logical function psb_isaperm(n,eip) use psb_sort_mod, psb_protect_name => psb_isaperm implicit none - integer, intent(in) :: n - integer, intent(in) :: eip(n) - integer, allocatable :: ip(:) - integer i,j,m, info + integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: eip(n) + integer(psb_ipk_), allocatable :: ip(:) + integer(psb_ipk_) :: i,j,m, info psb_isaperm = .true. @@ -100,10 +100,10 @@ end function psb_isaperm function psb_iblsrch(key,n,v) result(ipos) use psb_sort_mod, psb_protect_name => psb_iblsrch implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) - integer lb, ub, m + integer(psb_ipk_) :: lb, ub, m if (n < 5) then ! don't bother with binary search for very @@ -142,10 +142,10 @@ end function psb_iblsrch function psb_ibsrch(key,n,v) result(ipos) use psb_sort_mod, psb_protect_name => psb_ibsrch implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) - integer lb, ub, m + integer(psb_ipk_) :: lb, ub, m lb = 1 ub = n @@ -168,10 +168,10 @@ end function psb_ibsrch function psb_issrch(key,n,v) result(ipos) use psb_sort_mod, psb_protect_name => psb_issrch implicit none - integer ipos, key, n - integer v(n) + integer(psb_ipk_) :: ipos, key, n + integer(psb_ipk_) :: v(n) - integer i + integer(psb_ipk_) :: i ipos = -1 do i=1,n @@ -189,11 +189,11 @@ subroutine imsort(x,ix,dir,flag) use psb_sort_mod, psb_protect_name => imsort use psb_error_mod implicit none - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -251,10 +251,10 @@ subroutine smsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -311,10 +311,10 @@ subroutine dmsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -371,10 +371,10 @@ subroutine camsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -431,10 +431,10 @@ subroutine zamsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -491,11 +491,11 @@ subroutine imsort_u(x,nout,dir) use psb_sort_mod, psb_protect_name => imsort_u use psb_error_mod implicit none - integer, intent(inout) :: x(:) - integer, intent(out) :: nout - integer, optional, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: nout + integer(psb_ipk_), optional, intent(in) :: dir - integer :: dir_, n, err_act + integer(psb_ipk_) :: dir_, n, err_act character(len=20) :: name @@ -532,11 +532,11 @@ subroutine iqsort(x,ix,dir,flag) use psb_sort_mod, psb_protect_name => iqsort use psb_error_mod implicit none - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -610,10 +610,10 @@ subroutine sqsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -686,10 +686,10 @@ subroutine dqsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -763,10 +763,10 @@ subroutine cqsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -853,10 +853,10 @@ subroutine zqsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, err_act + integer(psb_ipk_) :: dir_, flag_, n, err_act character(len=20) :: name @@ -944,13 +944,13 @@ subroutine ihsort(x,ix,dir,flag) use psb_sort_mod, psb_protect_name => ihsort use psb_error_mod implicit none - integer, intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, i, l, err_act,info - integer :: key - integer :: index + integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info + integer(psb_ipk_) :: key + integer(psb_ipk_) :: index character(len=20) :: name @@ -1054,12 +1054,12 @@ subroutine shsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, i, l, err_act,info + integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info real(psb_spk_) :: key - integer :: index + integer(psb_ipk_) :: index character(len=20) :: name @@ -1163,12 +1163,12 @@ subroutine dhsort(x,ix,dir,flag) use psb_error_mod implicit none real(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, i, l, err_act,info + integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info real(psb_dpk_) :: key - integer :: index + integer(psb_ipk_) :: index character(len=20) :: name @@ -1272,12 +1272,12 @@ subroutine chsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_spk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, i, l, err_act,info + integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info complex(psb_spk_) :: key - integer :: index + integer(psb_ipk_) :: index character(len=20) :: name @@ -1381,12 +1381,12 @@ subroutine zhsort(x,ix,dir,flag) use psb_error_mod implicit none complex(psb_dpk_), intent(inout) :: x(:) - integer, optional, intent(in) :: dir, flag - integer, optional, intent(inout) :: ix(:) + integer(psb_ipk_), optional, intent(in) :: dir, flag + integer(psb_ipk_), optional, intent(inout) :: ix(:) - integer :: dir_, flag_, n, i, l, err_act,info + integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info complex(psb_dpk_) :: key - integer :: index + integer(psb_ipk_) :: index character(len=20) :: name @@ -1489,7 +1489,7 @@ function psb_howmany_int_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_int_heap implicit none type(psb_int_heap), intent(in) :: heap - integer :: psb_howmany_int_heap + integer(psb_ipk_) :: psb_howmany_int_heap psb_howmany_int_heap = heap%last end function psb_howmany_int_heap @@ -1498,8 +1498,8 @@ subroutine psb_init_int_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -1524,8 +1524,8 @@ subroutine psb_dump_int_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_int_heap implicit none type(psb_int_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -1551,9 +1551,9 @@ subroutine psb_insert_int_heap(key,heap,info) use psb_realloc_mod implicit none - integer, intent(in) :: key + integer(psb_ipk_), intent(in) :: key type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -1580,7 +1580,7 @@ subroutine psb_int_heap_get_first(key,heap,info) implicit none type(psb_int_heap), intent(inout) :: heap - integer, intent(out) :: key,info + integer(psb_ipk_), intent(out) :: key,info info = psb_success_ @@ -1594,7 +1594,7 @@ function psb_howmany_real_idx_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_real_idx_heap implicit none type(psb_real_idx_heap), intent(in) :: heap - integer :: psb_howmany_real_idx_heap + integer(psb_ipk_) :: psb_howmany_real_idx_heap psb_howmany_real_idx_heap = heap%last end function psb_howmany_real_idx_heap @@ -1603,8 +1603,8 @@ subroutine psb_init_real_idx_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -1630,8 +1630,8 @@ subroutine psb_dump_real_idx_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_real_idx_heap implicit none type(psb_real_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -1662,9 +1662,9 @@ subroutine psb_insert_real_idx_heap(key,index,heap,info) implicit none real(psb_spk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -1693,7 +1693,7 @@ subroutine psb_real_idx_heap_get_first(key,index,heap,info) implicit none type(psb_real_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info real(psb_spk_), intent(out) :: key info = psb_success_ @@ -1709,7 +1709,7 @@ function psb_howmany_double_idx_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_double_idx_heap implicit none type(psb_double_idx_heap), intent(in) :: heap - integer :: psb_howmany_double_idx_heap + integer(psb_ipk_) :: psb_howmany_double_idx_heap psb_howmany_double_idx_heap = heap%last end function psb_howmany_double_idx_heap @@ -1718,8 +1718,8 @@ subroutine psb_init_double_idx_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -1745,8 +1745,8 @@ subroutine psb_dump_double_idx_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_double_idx_heap implicit none type(psb_double_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -1777,9 +1777,9 @@ subroutine psb_insert_double_idx_heap(key,index,heap,info) implicit none real(psb_dpk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -1808,7 +1808,7 @@ subroutine psb_double_idx_heap_get_first(key,index,heap,info) implicit none type(psb_double_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info real(psb_dpk_), intent(out) :: key info = psb_success_ @@ -1823,7 +1823,7 @@ function psb_howmany_int_idx_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_int_idx_heap implicit none type(psb_int_idx_heap), intent(in) :: heap - integer :: psb_howmany_int_idx_heap + integer(psb_ipk_) :: psb_howmany_int_idx_heap psb_howmany_int_idx_heap = heap%last end function psb_howmany_int_idx_heap @@ -1832,8 +1832,8 @@ subroutine psb_init_int_idx_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -1859,8 +1859,8 @@ subroutine psb_dump_int_idx_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_int_idx_heap implicit none type(psb_int_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -1890,10 +1890,10 @@ subroutine psb_insert_int_idx_heap(key,index,heap,info) use psb_realloc_mod implicit none - integer, intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: key + integer(psb_ipk_), intent(in) :: index type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -1922,8 +1922,8 @@ subroutine psb_int_idx_heap_get_first(key,index,heap,info) implicit none type(psb_int_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info - integer, intent(out) :: key + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(out) :: key info = psb_success_ @@ -1939,7 +1939,7 @@ function psb_howmany_scomplex_idx_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_scomplex_idx_heap implicit none type(psb_scomplex_idx_heap), intent(in) :: heap - integer :: psb_howmany_scomplex_idx_heap + integer(psb_ipk_) :: psb_howmany_scomplex_idx_heap psb_howmany_scomplex_idx_heap = heap%last end function psb_howmany_scomplex_idx_heap @@ -1948,8 +1948,8 @@ subroutine psb_init_scomplex_idx_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -1976,8 +1976,8 @@ subroutine psb_dump_scomplex_idx_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_scomplex_idx_heap implicit none type(psb_scomplex_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -2008,9 +2008,9 @@ subroutine psb_insert_scomplex_idx_heap(key,index,heap,info) implicit none complex(psb_spk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -2038,7 +2038,7 @@ subroutine psb_scomplex_idx_heap_get_first(key,index,heap,info) implicit none type(psb_scomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info complex(psb_spk_), intent(out) :: key @@ -2056,7 +2056,7 @@ function psb_howmany_dcomplex_idx_heap(heap) use psb_sort_mod, psb_protect_name => psb_howmany_dcomplex_idx_heap implicit none type(psb_dcomplex_idx_heap), intent(in) :: heap - integer :: psb_howmany_dcomplex_idx_heap + integer(psb_ipk_) :: psb_howmany_dcomplex_idx_heap psb_howmany_dcomplex_idx_heap = heap%last end function psb_howmany_dcomplex_idx_heap @@ -2065,8 +2065,8 @@ subroutine psb_init_dcomplex_idx_heap(heap,info,dir) use psb_realloc_mod implicit none type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info - integer, intent(in), optional :: dir + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: dir info = psb_success_ heap%last=0 @@ -2093,8 +2093,8 @@ subroutine psb_dump_dcomplex_idx_heap(iout,heap,info) use psb_sort_mod, psb_protect_name => psb_dump_dcomplex_idx_heap implicit none type(psb_dcomplex_idx_heap), intent(in) :: heap - integer, intent(out) :: info - integer, intent(in) :: iout + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in) :: iout info = psb_success_ if (iout < 0) then @@ -2125,9 +2125,9 @@ subroutine psb_insert_dcomplex_idx_heap(key,index,heap,info) implicit none complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: index + integer(psb_ipk_), intent(in) :: index type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ if (heap%last < 0) then @@ -2155,7 +2155,7 @@ subroutine psb_dcomplex_idx_heap_get_first(key,index,heap,info) implicit none type(psb_dcomplex_idx_heap), intent(inout) :: heap - integer, intent(out) :: index,info + integer(psb_ipk_), intent(out) :: index,info complex(psb_dpk_), intent(out) :: key @@ -2186,11 +2186,11 @@ subroutine psi_insert_int_heap(key,last,heap,dir,info) ! heap: the heap ! dir: sorting direction - integer, intent(in) :: key,dir - integer, intent(inout) :: heap(:),last - integer, intent(out) :: info - integer :: i, i2 - integer :: temp + integer(psb_ipk_), intent(in) :: key,dir + integer(psb_ipk_), intent(inout) :: heap(:),last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2 + integer(psb_ipk_) :: temp info = psb_success_ if (last < 0) then @@ -2283,13 +2283,13 @@ subroutine psi_int_heap_get_first(key,last,heap,dir,info) use psb_sort_mod, psb_protect_name => psi_int_heap_get_first implicit none - integer, intent(inout) :: key,last - integer, intent(in) :: dir - integer, intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: key,last + integer(psb_ipk_), intent(in) :: dir + integer(psb_ipk_), intent(inout) :: heap(:) + integer(psb_ipk_), intent(out) :: info - integer :: i, j - integer :: temp + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: temp info = psb_success_ @@ -2415,11 +2415,11 @@ subroutine psi_insert_real_heap(key,last,heap,dir,info) ! dir: sorting direction real(psb_spk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info - integer :: i, i2 + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2 real(psb_spk_) :: temp info = psb_success_ @@ -2514,12 +2514,12 @@ subroutine psi_real_heap_get_first(key,last,heap,dir,info) implicit none real(psb_spk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i, j + integer(psb_ipk_) :: i, j real(psb_spk_) :: temp @@ -2645,11 +2645,11 @@ subroutine psi_insert_double_heap(key,last,heap,dir,info) ! dir: sorting direction real(psb_dpk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info - integer :: i, i2 + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2 real(psb_dpk_) :: temp info = psb_success_ @@ -2744,12 +2744,12 @@ subroutine psi_double_heap_get_first(key,last,heap,dir,info) implicit none real(psb_dpk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i, j + integer(psb_ipk_) :: i, j real(psb_dpk_) :: temp @@ -2877,11 +2877,11 @@ subroutine psi_insert_scomplex_heap(key,last,heap,dir,info) ! dir: sorting direction complex(psb_spk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info - integer :: i, i2 + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2 complex(psb_spk_) :: temp info = psb_success_ @@ -2976,12 +2976,12 @@ subroutine psi_scomplex_heap_get_first(key,last,heap,dir,info) implicit none complex(psb_spk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i, j + integer(psb_ipk_) :: i, j complex(psb_spk_) :: temp @@ -3107,11 +3107,11 @@ subroutine psi_insert_dcomplex_heap(key,last,heap,dir,info) ! dir: sorting direction complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: dir + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: last - integer, intent(out) :: info - integer :: i, i2 + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2 complex(psb_dpk_) :: temp info = psb_success_ @@ -3206,12 +3206,12 @@ subroutine psi_dcomplex_heap_get_first(key,last,heap,dir,info) implicit none complex(psb_dpk_), intent(inout) :: key - integer, intent(inout) :: last - integer, intent(in) :: dir + integer(psb_ipk_), intent(inout) :: last + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i, j + integer(psb_ipk_) :: i, j complex(psb_dpk_) :: temp @@ -3340,13 +3340,13 @@ subroutine psi_insert_int_idx_heap(key,index,last,heap,idxs,dir,info) ! idxs: the indices ! dir: sorting direction - integer, intent(in) :: key - integer, intent(in) :: index,dir - integer, intent(inout) :: heap(:),last - integer, intent(inout) :: idxs(:) - integer, intent(out) :: info - integer :: i, i2, itemp - integer :: temp + integer(psb_ipk_), intent(in) :: key + integer(psb_ipk_), intent(in) :: index,dir + integer(psb_ipk_), intent(inout) :: heap(:),last + integer(psb_ipk_), intent(inout) :: idxs(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2, itemp + integer(psb_ipk_) :: temp info = psb_success_ if (last < 0) then @@ -3453,14 +3453,14 @@ subroutine psi_int_idx_heap_get_first(key,index,last,heap,idxs,dir,info) use psb_sort_mod, psb_protect_name => psi_int_idx_heap_get_first implicit none - integer, intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir - integer, intent(out) :: key + integer(psb_ipk_), intent(inout) :: heap(:) + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir + integer(psb_ipk_), intent(out) :: key - integer :: i, j,itemp - integer :: temp + integer(psb_ipk_) :: i, j,itemp + integer(psb_ipk_) :: temp info = psb_success_ if (last <= 0) then @@ -3600,11 +3600,11 @@ subroutine psi_insert_real_idx_heap(key,index,last,heap,idxs,dir,info) ! dir: sorting direction real(psb_spk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir real(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info - integer :: i, i2, itemp + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2, itemp real(psb_spk_) :: temp info = psb_success_ @@ -3713,12 +3713,12 @@ subroutine psi_real_idx_heap_get_first(key,index,last,heap,idxs,dir,info) implicit none real(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir real(psb_spk_), intent(out) :: key - integer :: i, j,itemp + integer(psb_ipk_) :: i, j,itemp real(psb_spk_) :: temp info = psb_success_ @@ -3860,11 +3860,11 @@ subroutine psi_insert_double_idx_heap(key,index,last,heap,idxs,dir,info) ! dir: sorting direction real(psb_dpk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info - integer :: i, i2, itemp + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2, itemp real(psb_dpk_) :: temp info = psb_success_ @@ -3973,12 +3973,12 @@ subroutine psi_double_idx_heap_get_first(key,index,last,heap,idxs,dir,info) implicit none real(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir real(psb_dpk_), intent(out) :: key - integer :: i, j,itemp + integer(psb_ipk_) :: i, j,itemp real(psb_dpk_) :: temp info = psb_success_ @@ -4120,11 +4120,11 @@ subroutine psi_insert_scomplex_idx_heap(key,index,last,heap,idxs,dir,info) ! dir: sorting direction complex(psb_spk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info - integer :: i, i2, itemp + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2, itemp complex(psb_spk_) :: temp info = psb_success_ @@ -4233,12 +4233,12 @@ subroutine psi_scomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) implicit none complex(psb_spk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir complex(psb_spk_), intent(out) :: key - integer :: i, j, itemp + integer(psb_ipk_) :: i, j, itemp complex(psb_spk_) :: temp info = psb_success_ @@ -4380,11 +4380,11 @@ subroutine psi_insert_dcomplex_idx_heap(key,index,last,heap,idxs,dir,info) ! dir: sorting direction complex(psb_dpk_), intent(in) :: key - integer, intent(in) :: index,dir + integer(psb_ipk_), intent(in) :: index,dir complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(inout) :: idxs(:),last - integer, intent(out) :: info - integer :: i, i2, itemp + integer(psb_ipk_), intent(inout) :: idxs(:),last + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, i2, itemp complex(psb_dpk_) :: temp info = psb_success_ @@ -4493,12 +4493,12 @@ subroutine psi_dcomplex_idx_heap_get_first(key,index,last,heap,idxs,dir,info) implicit none complex(psb_dpk_), intent(inout) :: heap(:) - integer, intent(out) :: index,info - integer, intent(inout) :: last,idxs(:) - integer, intent(in) :: dir + integer(psb_ipk_), intent(out) :: index,info + integer(psb_ipk_), intent(inout) :: last,idxs(:) + integer(psb_ipk_), intent(in) :: dir complex(psb_dpk_), intent(out) :: key - integer :: i, j, itemp + integer(psb_ipk_) :: i, j, itemp complex(psb_dpk_) :: temp info = psb_success_ diff --git a/base/serial/psb_spdot_srtd.f90 b/base/serial/psb_spdot_srtd.f90 index d17994b16..843929914 100644 --- a/base/serial/psb_spdot_srtd.f90 +++ b/base/serial/psb_spdot_srtd.f90 @@ -1,15 +1,15 @@ subroutine psb_s_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info) use psb_const_mod - integer, intent(out) :: nz - integer, intent(out) :: iz(:) + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), intent(out) :: iz(:) real(psb_spk_), intent (out) :: z(:) - integer, intent(in) :: nx, ny - integer, intent(in) :: ix(:), iy(:) + integer(psb_ipk_), intent(in) :: nx, ny + integer(psb_ipk_), intent(in) :: ix(:), iy(:) real(psb_spk_), intent (in) :: x(:), y(:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k, ipx, ipy, isz + integer(psb_ipk_) :: i,j,k, ipx, ipy, isz real(psb_spk_) :: acc info=psb_success_ @@ -101,12 +101,12 @@ end subroutine psb_s_nspaxpby function psb_s_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) real(psb_spk_), intent(in) :: v1(*),v2(*) real(psb_spk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = szero ip1 = 1 @@ -130,16 +130,16 @@ end function psb_s_spdot_srtd subroutine psb_d_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info) use psb_const_mod - integer, intent(out) :: nz - integer, intent(out) :: iz(:) + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), intent(out) :: iz(:) real(psb_dpk_), intent (out) :: z(:) - integer, intent(in) :: nx, ny - integer, intent(in) :: ix(:), iy(:) + integer(psb_ipk_), intent(in) :: nx, ny + integer(psb_ipk_), intent(in) :: ix(:), iy(:) real(psb_dpk_), intent (in) :: x(:), y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k, ipx, ipy, isz + integer(psb_ipk_) :: i,j,k, ipx, ipy, isz real(psb_dpk_) :: acc info=psb_success_ @@ -233,12 +233,12 @@ end subroutine psb_d_nspaxpby function psb_d_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) real(psb_dpk_), intent(in) :: v1(*), v2(*) real(psb_dpk_) :: dot - integer :: i,j,k, ip1, ip2, im1, im2, ix1, ix2 + integer(psb_ipk_) :: i,j,k, ip1, ip2, im1, im2, ix1, ix2 dot = dzero ip1 = 1 @@ -276,16 +276,16 @@ end function psb_d_spdot_srtd subroutine psb_c_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info) use psb_const_mod - integer, intent(out) :: nz - integer, intent(out) :: iz(:) + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), intent(out) :: iz(:) complex(psb_spk_), intent (out) :: z(:) - integer, intent(in) :: nx, ny - integer, intent(in) :: ix(:), iy(:) + integer(psb_ipk_), intent(in) :: nx, ny + integer(psb_ipk_), intent(in) :: ix(:), iy(:) complex(psb_spk_), intent (in) :: x(:), y(:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k, ipx, ipy, isz + integer(psb_ipk_) :: i,j,k, ipx, ipy, isz complex(psb_spk_) :: acc info=psb_success_ @@ -377,12 +377,12 @@ end subroutine psb_c_nspaxpby function psb_c_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) complex(psb_spk_), intent(in) :: v1(*),v2(*) complex(psb_spk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = czero ip1 = 1 @@ -406,16 +406,16 @@ end function psb_c_spdot_srtd subroutine psb_z_nspaxpby(nz,iz,z,alpha, nx, ix, x, beta, ny,iy,y,info) use psb_const_mod - integer, intent(out) :: nz - integer, intent(out) :: iz(:) + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), intent(out) :: iz(:) complex(psb_dpk_), intent (out) :: z(:) - integer, intent(in) :: nx, ny - integer, intent(in) :: ix(:), iy(:) + integer(psb_ipk_), intent(in) :: nx, ny + integer(psb_ipk_), intent(in) :: ix(:), iy(:) complex(psb_dpk_), intent (in) :: x(:), y(:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k, ipx, ipy, isz + integer(psb_ipk_) :: i,j,k, ipx, ipy, isz complex(psb_dpk_) :: acc info=psb_success_ @@ -507,12 +507,12 @@ end subroutine psb_z_nspaxpby function psb_z_spdot_srtd(nv1,iv1,v1,nv2,iv2,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1,nv2 - integer, intent(in) :: iv1(*), iv2(*) + integer(psb_ipk_), intent(in) :: nv1,nv2 + integer(psb_ipk_), intent(in) :: iv1(*), iv2(*) complex(psb_dpk_), intent(in) :: v1(*),v2(*) complex(psb_dpk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = zzero ip1 = 1 diff --git a/base/serial/psb_spge_dot.f90 b/base/serial/psb_spge_dot.f90 index dbd889550..c10a3a691 100644 --- a/base/serial/psb_spge_dot.f90 +++ b/base/serial/psb_spge_dot.f90 @@ -1,11 +1,11 @@ function psb_s_spge_dot(nv1,iv1,v1,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) real(psb_spk_), intent(in) :: v1(*),v2(*) real(psb_spk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = szero ip1 = 1 @@ -18,12 +18,12 @@ end function psb_s_spge_dot function psb_d_spge_dot(nv1,iv1,v1,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) real(psb_dpk_), intent(in) :: v1(*),v2(*) real(psb_dpk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = dzero @@ -35,12 +35,12 @@ end function psb_d_spge_dot function psb_c_spge_dot(nv1,iv1,v1,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) complex(psb_spk_), intent(in) :: v1(*),v2(*) complex(psb_spk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = czero @@ -52,12 +52,12 @@ end function psb_c_spge_dot function psb_z_spge_dot(nv1,iv1,v1,v2) result(dot) use psb_const_mod - integer, intent(in) :: nv1 - integer, intent(in) :: iv1(*) + integer(psb_ipk_), intent(in) :: nv1 + integer(psb_ipk_), intent(in) :: iv1(*) complex(psb_dpk_), intent(in) :: v1(*),v2(*) complex(psb_dpk_) :: dot - integer :: i,j,k, ip1, ip2 + integer(psb_ipk_) :: i,j,k, ip1, ip2 dot = zzero diff --git a/base/serial/psb_srwextd.f90 b/base/serial/psb_srwextd.f90 index 281c98f50..34f56ec46 100644 --- a/base/serial/psb_srwextd.f90 +++ b/base/serial/psb_srwextd.f90 @@ -43,13 +43,13 @@ subroutine psb_srwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_sspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_sspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb character(len=20) :: name, ch_err type(psb_s_coo_sparse_mat) :: actmp logical rowscale_ @@ -103,13 +103,13 @@ subroutine psb_sbase_rwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_s_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb character(len=20) :: name, ch_err logical rowscale_ diff --git a/base/serial/psb_ssymbmm.f90 b/base/serial/psb_ssymbmm.f90 index ea7f6dbb6..ea6db42f7 100644 --- a/base/serial/psb_ssymbmm.f90 +++ b/base/serial/psb_ssymbmm.f90 @@ -45,9 +45,9 @@ subroutine psb_ssymbmm(a,b,c,info) type(psb_sspmat_type), intent(in) :: a,b type(psb_sspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_s_csr_sparse_mat), allocatable :: ccsr - integer :: err_act + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -92,11 +92,11 @@ subroutine psb_sbase_symbmm(a,b,c,info) class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name - integer :: err_act + integer(psb_ipk_) :: err_act name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -156,17 +156,18 @@ contains subroutine csr_symbmm(a,b,c,itemp,info) type(psb_s_csr_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(out) :: c - integer :: itemp(:) - integer, intent(out) :: info + integer(psb_ipk_) :: itemp(:) + integer(psb_ipk_), intent(out) :: info interface subroutine symbmm (n, m, l, ia, ja, diaga, & & ib, jb, diagb, ic, jc, diagc, index) - integer n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& + import :: psb_ipk_ + integer(psb_ipk_) :: n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& & diagc, index(*) - integer, allocatable :: ic(:),jc(:) + integer(psb_ipk_), allocatable :: ic(:),jc(:) end subroutine symbmm end interface - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -184,10 +185,10 @@ contains subroutine gen_symbmm(a,b,c,index,info) class(psb_s_base_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(out) :: c - integer :: index(:),info - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) - integer :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: index(:),info + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn + integer(psb_ipk_) :: nze, ma,na,mb,nb ma = a%get_nrows() na = a%get_ncols() diff --git a/base/serial/psb_zgelp.f90 b/base/serial/psb_zgelp.f90 index 0db1a7f45..3ad4c71bc 100644 --- a/base/serial/psb_zgelp.f90 +++ b/base/serial/psb_zgelp.f90 @@ -47,16 +47,16 @@ subroutine psb_zgelp(trans,iperm,x,info) implicit none complex(psb_dpk_), intent(inout) :: x(:,:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables complex(psb_dpk_),allocatable :: temp(:) - integer :: int_err(5), i1sz, i2sz, err_act,i,j - integer, allocatable :: itemp(:) + integer(psb_ipk_) :: int_err(5), i1sz, i2sz, err_act,i,j + integer(psb_ipk_), allocatable :: itemp(:) complex(psb_dpk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_zgelp' @@ -179,16 +179,16 @@ subroutine psb_zgelpv(trans,iperm,x,info) implicit none complex(psb_dpk_), intent(inout) :: x(:) - integer, intent(in) :: iperm(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: iperm(:) + integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans ! local variables - integer :: int_err(5), i1sz, err_act, i + integer(psb_ipk_) :: int_err(5), i1sz, err_act, i complex(psb_dpk_),allocatable :: temp(:) - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) complex(psb_dpk_),parameter :: one=1 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name = 'psb_zgelpv' diff --git a/base/serial/psb_zgeprt.f90 b/base/serial/psb_zgeprt.f90 index 015e0d5f2..4af477098 100644 --- a/base/serial/psb_zgeprt.f90 +++ b/base/serial/psb_zgeprt.f90 @@ -55,7 +55,7 @@ subroutine psb_zgeprtn2(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -89,7 +89,7 @@ subroutine psb_zgeprtn1(fname,a,head) character(len=*), optional :: head ! - integer :: iout, info + integer(psb_ipk_) :: iout, info logical :: isopen ! Search for an unused unit to write @@ -118,11 +118,11 @@ subroutine psb_zgeprt2(iout,a,head) use psb_serial_mod, psb_protect_name => psb_zgeprt2 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout complex(psb_dpk_), intent(in) :: a(:,:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array complex general' write(iout,'(a)') '% '//trim(head) @@ -150,11 +150,11 @@ subroutine psb_zgeprt1(iout,a,head) use psb_serial_mod, psb_protect_name => psb_zgeprt1 implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout complex(psb_dpk_), intent(in) :: a(:) character(len=*), optional :: head character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nrow, ncol + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nrow, ncol write(iout,'(a)') '%%MatrixMarket matrix array complex general' write(iout,'(a)') '% '//trim(head) diff --git a/base/serial/psb_znumbmm.f90 b/base/serial/psb_znumbmm.f90 index 14d253bb5..211e483c4 100644 --- a/base/serial/psb_znumbmm.f90 +++ b/base/serial/psb_znumbmm.f90 @@ -46,8 +46,8 @@ subroutine psb_znumbmm(a,b,c) type(psb_zspmat_type), intent(in) :: a,b type(psb_zspmat_type), intent(inout) :: c - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_numbmm' call psb_erractionsave(err_act) @@ -91,12 +91,12 @@ subroutine psb_zbase_numbmm(a,b,c) class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(inout) :: c - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name complex(psb_dpk_), allocatable :: temp(:) - integer :: info - integer :: err_act + integer(psb_ipk_) :: info + integer(psb_ipk_) :: err_act name='psb_numbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -160,8 +160,8 @@ contains type(psb_z_csr_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(inout) :: c complex(psb_dpk_) :: temp(:) - integer, intent(out) :: info - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -179,11 +179,11 @@ contains subroutine gen_numbmm(a,b,c,temp,info) class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(inout) :: c - integer :: info + integer(psb_ipk_) :: info complex(psb_dpk_) :: temp(:) - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) complex(psb_dpk_), allocatable :: aval(:),bval(:) - integer :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,nazr,nbzr,jj,minlm,minmn,minln complex(psb_dpk_) :: ajj n = a%get_nrows() diff --git a/base/serial/psb_zrwextd.f90 b/base/serial/psb_zrwextd.f90 index 0c3a11a88..d077c79a7 100644 --- a/base/serial/psb_zrwextd.f90 +++ b/base/serial/psb_zrwextd.f90 @@ -43,13 +43,13 @@ subroutine psb_zrwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr type(psb_zspmat_type), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info type(psb_zspmat_type), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb character(len=20) :: name, ch_err type(psb_z_coo_sparse_mat) :: actmp logical rowscale_ @@ -103,13 +103,13 @@ subroutine psb_zbase_rwextd(nr,a,info,b,rowscale) implicit none ! Extend matrix A up to NR rows with empty ones (i.e.: all zeroes) - integer, intent(in) :: nr + integer(psb_ipk_), intent(in) :: nr class(psb_z_base_sparse_mat), intent(inout) :: a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: b logical,intent(in), optional :: rowscale - integer :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb + integer(psb_ipk_) :: i,j,ja,jb,err_act,nza,nzb, ma, mb, na, nb character(len=20) :: name, ch_err logical rowscale_ diff --git a/base/serial/psb_zsymbmm.f90 b/base/serial/psb_zsymbmm.f90 index 745dd7489..1f56b6c34 100644 --- a/base/serial/psb_zsymbmm.f90 +++ b/base/serial/psb_zsymbmm.f90 @@ -45,9 +45,9 @@ subroutine psb_zsymbmm(a,b,c,info) type(psb_zspmat_type), intent(in) :: a,b type(psb_zspmat_type), intent(out) :: c - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_z_csr_sparse_mat), allocatable :: ccsr - integer :: err_act + integer(psb_ipk_) :: err_act character(len=*), parameter :: name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -92,11 +92,11 @@ subroutine psb_zbase_symbmm(a,b,c,info) class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(out) :: c - integer, intent(out) :: info - integer, allocatable :: itemp(:) - integer :: nze, ma,na,mb,nb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable :: itemp(:) + integer(psb_ipk_) :: nze, ma,na,mb,nb character(len=20) :: name - integer :: err_act + integer(psb_ipk_) :: err_act name='psb_symbmm' call psb_erractionsave(err_act) info = psb_success_ @@ -156,17 +156,18 @@ contains subroutine csr_symbmm(a,b,c,itemp,info) type(psb_z_csr_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(out) :: c - integer :: itemp(:) - integer, intent(out) :: info + integer(psb_ipk_) :: itemp(:) + integer(psb_ipk_), intent(out) :: info interface subroutine symbmm (n, m, l, ia, ja, diaga, & & ib, jb, diagb, ic, jc, diagc, index) - integer n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& + import :: psb_ipk_ + integer(psb_ipk_) :: n,m,l, ia(*), ja(*), diaga, ib(*), jb(*), diagb,& & diagc, index(*) - integer, allocatable :: ic(:),jc(:) + integer(psb_ipk_), allocatable :: ic(:),jc(:) end subroutine symbmm end interface - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: nze, ma,na,mb,nb info = psb_success_ ma = a%get_nrows() @@ -184,10 +185,10 @@ contains subroutine gen_symbmm(a,b,c,index,info) class(psb_z_base_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(out) :: c - integer :: index(:),info - integer, allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) - integer :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn - integer :: nze, ma,na,mb,nb + integer(psb_ipk_) :: index(:),info + integer(psb_ipk_), allocatable :: iarw(:), iacl(:),ibrw(:),ibcl(:) + integer(psb_ipk_) :: maxlmn,i,j,m,n,k,l,istart,length,nazr,nbzr,jj,minlm,minmn + integer(psb_ipk_) :: nze, ma,na,mb,nb ma = a%get_nrows() na = a%get_ncols() diff --git a/base/serial/psi_serial_impl.f90 b/base/serial/psi_serial_impl.f90 index 24ee863d9..1e7f693df 100644 --- a/base/serial/psi_serial_impl.f90 +++ b/base/serial/psi_serial_impl.f90 @@ -45,11 +45,11 @@ subroutine psi_igthv(n,idx,alpha,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) - integer :: x(:), y(:), alpha, beta + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: x(:), y(:), alpha, beta ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == izero) then if (alpha == izero) then do i=1,n @@ -101,11 +101,11 @@ subroutine psi_sgthv(n,idx,alpha,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: x(:), y(:), alpha, beta ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == szero) then if (alpha == szero) then do i=1,n @@ -157,11 +157,11 @@ subroutine psi_dgthv(n,idx,alpha,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: x(:), y(:), alpha, beta ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == dzero) then if (alpha == dzero) then do i=1,n @@ -213,11 +213,11 @@ subroutine psi_cgthv(n,idx,alpha,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: x(:), y(:),alpha,beta ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == czero) then if (alpha == czero) then do i=1,n @@ -269,11 +269,11 @@ subroutine psi_zgthv(n,idx,alpha,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: x(:), y(:),alpha,beta ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == zzero) then if (alpha == zzero) then do i=1,n @@ -327,11 +327,11 @@ subroutine psi_sgthzmv(n,k,idx,x,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: x(:,:), y(:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt pt=0 do j=1,k @@ -348,11 +348,11 @@ subroutine psi_dgthzmv(n,k,idx,x,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: x(:,:), y(:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt pt=0 do j=1,k @@ -370,11 +370,11 @@ subroutine psi_igthzmv(n,k,idx,x,y) use psb_const_mod implicit none - integer :: n, k, idx(:) - integer :: x(:,:), y(:) + integer(psb_ipk_) :: n, k, idx(:) + integer(psb_ipk_) :: x(:,:), y(:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt pt=0 do j=1,k @@ -392,11 +392,11 @@ subroutine psi_cgthzmv(n,k,idx,x,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: x(:,:), y(:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt pt=0 do j=1,k @@ -413,11 +413,11 @@ subroutine psi_zgthzmv(n,k,idx,x,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: x(:,:), y(:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt pt=0 do j=1,k @@ -434,11 +434,11 @@ subroutine psi_sgthzv(n,idx,x,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i)=x(idx(i)) @@ -451,11 +451,11 @@ subroutine psi_dgthzv(n,idx,x,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i)=x(idx(i)) @@ -468,11 +468,11 @@ subroutine psi_igthzv(n,idx,x,y) use psb_const_mod implicit none - integer :: n, idx(:) - integer :: x(:), y(:) + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i)=x(idx(i)) @@ -485,11 +485,11 @@ subroutine psi_cgthzv(n,idx,x,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i)=x(idx(i)) @@ -502,11 +502,11 @@ subroutine psi_zgthzv(n,idx,x,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i do i=1,n y(i)=x(idx(i)) @@ -520,11 +520,11 @@ subroutine psi_ssctmv(n,k,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: beta, x(:), y(:,:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt if (beta == szero) then pt=0 @@ -558,11 +558,11 @@ subroutine psi_ssctv(n,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == szero) then do i=1,n @@ -588,11 +588,11 @@ subroutine psi_dsctmv(n,k,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: beta, x(:), y(:,:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt if (beta == dzero) then pt=0 @@ -626,11 +626,11 @@ subroutine psi_dsctv(n,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == dzero) then do i=1,n @@ -655,11 +655,11 @@ subroutine psi_isctmv(n,k,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, k, idx(:) - integer :: beta, x(:), y(:,:) + integer(psb_ipk_) :: n, k, idx(:) + integer(psb_ipk_) :: beta, x(:), y(:,:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt if (beta == izero) then pt=0 @@ -693,11 +693,11 @@ subroutine psi_isctv(n,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) - integer :: beta, x(:), y(:) + integer(psb_ipk_) :: n, idx(:) + integer(psb_ipk_) :: beta, x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == izero) then do i=1,n @@ -719,11 +719,11 @@ subroutine psi_csctmv(n,k,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: beta, x(:), y(:,:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt if (beta == czero) then pt=0 @@ -758,11 +758,11 @@ subroutine psi_csctv(n,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == czero) then do i=1,n @@ -784,11 +784,11 @@ subroutine psi_zsctmv(n,k,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, k, idx(:) + integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: beta, x(:), y(:,:) ! Locals - integer :: i, j, pt + integer(psb_ipk_) :: i, j, pt if (beta == zzero) then pt=0 @@ -823,11 +823,11 @@ subroutine psi_zsctv(n,idx,x,beta,y) use psb_const_mod implicit none - integer :: n, idx(:) + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:), y(:) ! Locals - integer :: i + integer(psb_ipk_) :: i if (beta == zzero) then do i=1,n @@ -850,12 +850,12 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info) use psb_error_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -898,12 +898,12 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m, n + integer(psb_ipk_), intent(in) :: m, n real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (inout) :: y(:,:) real(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -952,12 +952,12 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -1000,12 +1000,12 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m, n + integer(psb_ipk_), intent(in) :: m, n real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (inout) :: y(:,:) real(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -1053,12 +1053,12 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -1101,12 +1101,12 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m, n + integer(psb_ipk_), intent(in) :: m, n complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (inout) :: y(:,:) complex(psb_spk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -1154,12 +1154,12 @@ subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m + integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' @@ -1202,12 +1202,12 @@ subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) use psb_const_mod use psb_error_mod implicit none - integer, intent(in) :: m, n + integer(psb_ipk_), intent(in) :: m, n complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (inout) :: y(:,:) complex(psb_dpk_), intent (in) :: alpha, beta - integer, intent(out) :: info - integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err name='psb_geaxpby' diff --git a/base/tools/psb_c_map.f90 b/base/tools/psb_c_map.f90 index de4b670c2..ef674326e 100644 --- a/base/tools/psb_c_map.f90 +++ b/base/tools/psb_c_map.f90 @@ -45,12 +45,12 @@ subroutine psb_c_map_X2Y(alpha,x,beta,y,map,info,work) complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) ! complex(psb_spk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -117,12 +117,12 @@ subroutine psb_c_map_X2Y_vect(alpha,x,beta,y,map,info,work) type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta type(psb_c_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) ! Local type(psb_c_vect_type) :: xt, yt complex(psb_spk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2 ,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2 ,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -209,12 +209,12 @@ subroutine psb_c_map_Y2X(alpha,x,beta,y,map,info,work) complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(inout) :: x(:) complex(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) ! complex(psb_spk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -280,12 +280,12 @@ subroutine psb_c_map_Y2X_vect(alpha,x,beta,y,map,info,work) type(psb_clinmap_type), intent(in) :: map complex(psb_spk_), intent(in) :: alpha,beta type(psb_c_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_spk_), optional :: work(:) ! type(psb_c_vect_type) :: xt, yt complex(psb_spk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -363,10 +363,10 @@ function psb_c_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) & type(psb_clinmap_type) :: this type(psb_desc_type), target :: desc_X, desc_Y type(psb_cspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) ! - integer :: info + integer(psb_ipk_) :: info character(len=20), parameter :: name='psb_linmap' info = psb_success_ diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90 index 56cbd1009..117740573 100644 --- a/base/tools/psb_callc.f90 +++ b/base/tools/psb_callc.f90 @@ -50,13 +50,13 @@ subroutine psb_calloc(x, desc_a, info, n, lb) !....parameters... complex(psb_spk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb !locals - integer :: np,me,err,nr,i,j,err_act - integer :: ictxt,n_ - integer :: int_err(5),exch(3) + integer(psb_ipk_) :: np,me,err,nr,i,j,err_act + integer(psb_ipk_) :: ictxt,n_ + integer(psb_ipk_) :: int_err(5),exch(3) character(len=20) :: name name='psb_geall' @@ -183,13 +183,13 @@ subroutine psb_callocv(x, desc_a,info,n) !....parameters... complex(psb_spk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -260,13 +260,13 @@ subroutine psb_calloc_vect(x, desc_a,info,n) !....parameters... type(psb_c_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ @@ -337,13 +337,13 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) !....parameters... type(psb_c_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n,lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n,lb !locals - integer :: np,me,nr,i,err_act, n_, lb_ - integer :: ictxt, int_err(5), exch(1) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: ictxt, int_err(5), exch(1) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ diff --git a/base/tools/psb_casb.f90 b/base/tools/psb_casb.f90 index 6e5dbca90..69067935c 100644 --- a/base/tools/psb_casb.f90 +++ b/base/tools/psb_casb.f90 @@ -48,12 +48,12 @@ subroutine psb_casb(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me,nrow,ncol, err_act - integer :: i1sz, i2sz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz, i2sz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return @@ -181,12 +181,12 @@ subroutine psb_casbv(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -256,15 +256,15 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -336,15 +336,15 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_c_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me, i, n - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me, i, n + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90 index 2cb0fb5b1..054bda7e9 100644 --- a/base/tools/psb_ccdbldext.F90 +++ b/base/tools/psb_ccdbldext.F90 @@ -73,30 +73,30 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr + integer(psb_ipk_), intent(in) :: novr Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype ! .. Local Scalars .. - Integer :: i, j, np, me,m,& + integer(psb_ipk_) :: i, j, np, me,m,& & ictxt, lovr, lworks,lworkr, n_row,n_col, n_col_prev, int_err(5),& & index_dim,elem_dim, l_tmp_ovr_idx,l_tmp_halo, nztot,nhalo - Integer :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& + integer(psb_ipk_) :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& & n_elem_send,tot_recv,tot_elem,cntov_o,& & counter_t,n_elem,i_ovr,jj,proc_id,isz, & & idxr, idxs, iszr, iszs, nxch, nsnd, nrcv,lidx, extype_ - integer :: icomm, err_act + integer(psb_ipk_) :: icomm, err_act - integer, allocatable :: irow(:), icol(:) - Integer, allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) - Integer,allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& + integer(psb_ipk_), allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) + integer(psb_ipk_),allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& & t_halo_out(:),temp(:),maskr(:) - Integer,allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) - integer :: debug_level, debug_unit + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_ccdbldext' @@ -464,7 +464,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype) ! accumulated RECV requests, we have an all-to-all to build ! matchings SENDs. ! - call mpi_alltoall(sdsz,1,mpi_integer,rvsz,1,mpi_integer,icomm,info) + call mpi_alltoall(sdsz,1,psb_mpi_integer,rvsz,1,mpi_integer,icomm,info) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoall' @@ -500,8 +500,8 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype) lworkr = max(iszr,1) end if - call mpi_alltoallv(works,sdsz,bsdindx,mpi_integer,& - & workr,rvsz,brvindx,mpi_integer,icomm,info) + call mpi_alltoallv(works,sdsz,bsdindx,psb_mpi_integer,& + & workr,rvsz,brvindx,psb_mpi_integer,icomm,info) if (info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='mpi_alltoallv' diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90 index 8218d6243..c57ec03c0 100644 --- a/base/tools/psb_cd_inloc.f90 +++ b/base/tools/psb_cd_inloc.f90 @@ -37,7 +37,7 @@ ! is equal to the largest index found on any process. ! ! Arguments: -! v - integer, dimension(:). The array containg the partitioning scheme. +! v - integer(psb_ipk_), dimension(:). The array containg the partitioning scheme. ! ictxt - integer. The communication context. ! desc - type(psb_desc_type). The communication descriptor. ! info - integer. Eventually returns an error code @@ -49,20 +49,20 @@ subroutine psb_cd_inloc(v, ictxt, desc, info, globalcheck) use psb_hash_map_mod implicit None !....Parameters... - Integer, intent(in) :: ictxt, v(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, v(:) + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(out) :: desc logical, intent(in), optional :: globalcheck !locals - Integer :: i,j,np,me,loc_row,err,& + integer(psb_ipk_) :: i,j,np,me,loc_row,err,& & loc_col,nprocs,n, k,glx,nlu,& & idx, flag_, err_act,m, novrl, norphan,& & npr_ov, itmpov, i_pnt, nrt - integer :: int_err(5),exch(3) - Integer, allocatable :: temp_ovrlap(:), tmpgidx(:,:), vl(:),& + integer(psb_ipk_) :: int_err(5),exch(3) + integer(psb_ipk_), allocatable :: temp_ovrlap(:), tmpgidx(:,:), vl(:),& & nov(:), ov_idx(:,:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical :: check_, islarge character(len=20) :: name diff --git a/base/tools/psb_cd_lstext.f90 b/base/tools/psb_cd_lstext.f90 index 1f6ec43c8..36a86d53c 100644 --- a/base/tools/psb_cd_lstext.f90 +++ b/base/tools/psb_cd_lstext.f90 @@ -38,29 +38,29 @@ Subroutine psb_cd_lstext(desc_a,in_list,desc_ov,info, mask,extype) ! .. Array Arguments .. Type(psb_desc_type), Intent(in), target :: desc_a - integer, intent(in) :: in_list(:) + integer(psb_ipk_), intent(in) :: in_list(:) Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional, target :: mask(:) - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(in),optional :: extype ! .. Local Scalars .. - Integer :: i, j, np, me,m,nnzero,& + integer(psb_ipk_) :: i, j, np, me,m,nnzero,& & ictxt, lovr, lworks,lworkr, n_row,n_col, int_err(5),& & index_dim,elem_dim, l_tmp_ovr_idx,l_tmp_halo, nztot,nhalo - Integer :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& + integer(psb_ipk_) :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& & n_elem_send,tot_recv,tot_elem,cntov_o,& & counter_t,n_elem,i_ovr,jj,proc_id,isz, nl, & & idxr, idxs, iszr, iszs, nxch, nsnd, nrcv,lidx, extype_ - integer :: icomm, err_act + integer(psb_ipk_) :: icomm, err_act - Integer, allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) - Integer,allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) + integer(psb_ipk_),allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& & t_halo_out(:),temp(:),maskr(:) - Integer,allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) logical, allocatable, target :: lmask(:) logical, pointer :: mask_(:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_cd_lstext' diff --git a/base/tools/psb_cd_reinit.f90 b/base/tools/psb_cd_reinit.f90 index c36856175..5b34943e6 100644 --- a/base/tools/psb_cd_reinit.f90 +++ b/base/tools/psb_cd_reinit.f90 @@ -39,14 +39,14 @@ Subroutine psb_cd_reinit(desc,info) ! .. Array Arguments .. Type(psb_desc_type), Intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer icomm, err_act + integer(psb_ipk_) :: icomm, err_act ! .. Local Scalars .. - Integer :: np, me, ictxt - Integer, allocatable :: tmp_halo(:),tmp_ext(:), tmp_ovr(:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np, me, ictxt + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ext(:), tmp_ovr(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_cd_reinit' diff --git a/base/tools/psb_cd_set_bld.f90 b/base/tools/psb_cd_set_bld.f90 index 702dc451a..52c905672 100644 --- a/base/tools/psb_cd_set_bld.f90 +++ b/base/tools/psb_cd_set_bld.f90 @@ -33,7 +33,7 @@ subroutine psb_cd_set_ovl_bld(desc,info) use psb_base_mod, psb_protect_name => psb_cd_set_ovl_bld implicit none type(psb_desc_type), intent(inout) :: desc - integer :: info + integer(psb_ipk_) :: info call psb_cd_set_bld(desc,info) if (info == psb_success_) then @@ -52,9 +52,9 @@ subroutine psb_cd_set_bld(desc,info) use psi_mod implicit none type(psb_desc_type), intent(inout) :: desc - integer :: info + integer(psb_ipk_) :: info !locals - integer :: np,me,ictxt, err_act,idx,gidx,lidx,nc + integer(psb_ipk_) :: np,me,ictxt, err_act,idx,gidx,lidx,nc logical, parameter :: debug=.false.,debugprt=.false. character(len=20) :: name if (debug) write(psb_err_unit,*) me,'Entered CDCPY' diff --git a/base/tools/psb_cd_switch_ovl_indxmap.f90 b/base/tools/psb_cd_switch_ovl_indxmap.f90 index b362770c5..fbdb53844 100644 --- a/base/tools/psb_cd_switch_ovl_indxmap.f90 +++ b/base/tools/psb_cd_switch_ovl_indxmap.f90 @@ -42,14 +42,14 @@ Subroutine psb_cd_switch_ovl_indxmap(desc,info) ! .. Array Arguments .. Type(psb_desc_type), Intent(inout) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! .. Local Scalars .. - Integer :: i, j, np, me, mglob, ictxt, n_row, n_col - integer :: icomm, err_act + integer(psb_ipk_) :: i, j, np, me, mglob, ictxt, n_row, n_col + integer(psb_ipk_) :: icomm, err_act - integer, allocatable :: vl(:) - integer :: debug_level, debug_unit + integer(psb_ipk_), allocatable :: vl(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='cd_switch_ovl_indxmap' diff --git a/base/tools/psb_cdall.f90 b/base/tools/psb_cdall.f90 index 5abe39120..ae4e54ca6 100644 --- a/base/tools/psb_cdall.f90 +++ b/base/tools/psb_cdall.f90 @@ -8,10 +8,10 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche use psi_mod implicit None include 'parts.fh' - Integer, intent(in) :: mg,ng,ictxt, vg(:), vl(:),nl - integer, intent(in) :: flag + integer(psb_ipk_), intent(in) :: mg,ng,ictxt, vg(:), vl(:),nl + integer(psb_ipk_), intent(in) :: flag logical, intent(in) :: repl, globalcheck - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(out) :: desc optional :: mg,ng,parts,vg,vl,flag,nl,repl, globalcheck @@ -20,35 +20,35 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche subroutine psb_cdals(m, n, parts, ictxt, desc, info) use psb_descriptor_type include 'parts.fh' - Integer, intent(in) :: m,n,ictxt + integer(psb_ipk_), intent(in) :: m,n,ictxt Type(psb_desc_type), intent(out) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cdals subroutine psb_cdalv(v, ictxt, desc, info, flag) use psb_descriptor_type - Integer, intent(in) :: ictxt, v(:) - integer, intent(in), optional :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, v(:) + integer(psb_ipk_), intent(in), optional :: flag + integer(psb_ipk_), intent(out) :: info Type(psb_desc_type), intent(out) :: desc end subroutine psb_cdalv subroutine psb_cd_inloc(v, ictxt, desc, info, globalcheck) use psb_descriptor_type implicit None - Integer, intent(in) :: ictxt, v(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, v(:) + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(out) :: desc logical, intent(in), optional :: globalcheck end subroutine psb_cd_inloc subroutine psb_cdrep(m, ictxt, desc,info) use psb_descriptor_type - Integer, intent(in) :: m,ictxt + integer(psb_ipk_), intent(in) :: m,ictxt Type(psb_desc_type), intent(out) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cdrep end interface character(len=20) :: name - integer :: err_act, n_, flag_, i, me, np, nlp, nnv, lr - integer, allocatable :: itmpsz(:) + integer(psb_ipk_) :: err_act, n_, flag_, i, me, np, nlp, nnv, lr + integer(psb_ipk_), allocatable :: itmpsz(:) diff --git a/base/tools/psb_cdals.f90 b/base/tools/psb_cdals.f90 index 2fbf81bd8..fa4ae30a4 100644 --- a/base/tools/psb_cdals.f90 +++ b/base/tools/psb_cdals.f90 @@ -52,16 +52,16 @@ subroutine psb_cdals(m, n, parts, ictxt, desc, info) implicit None include 'parts.fh' !....Parameters... - Integer, intent(in) :: M,N,ictxt + integer(psb_ipk_), intent(in) :: M,N,ictxt Type(psb_desc_type), intent(out) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals - Integer :: counter,i,j,np,me,loc_row,err,loc_col,nprocs,& + integer(psb_ipk_) :: counter,i,j,np,me,loc_row,err,loc_col,nprocs,& & l_ov_ix,l_ov_el,idx, err_act, itmpov, k, glx, nlx - integer :: int_err(5),exch(3) - integer, allocatable :: prc_v(:), temp_ovrlap(:), loc_idx(:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5),exch(3) + integer(psb_ipk_), allocatable :: prc_v(:), temp_ovrlap(:), loc_idx(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cdalv.f90 b/base/tools/psb_cdalv.f90 index 07608cfed..fb85b2024 100644 --- a/base/tools/psb_cdalv.f90 +++ b/base/tools/psb_cdalv.f90 @@ -38,7 +38,7 @@ ! ! ! Arguments: -! v - integer, dimension(:). The array containg the partitioning scheme. +! v - integer(psb_ipk_), dimension(:). The array containg the partitioning scheme. ! ictxt - integer. The communication context. ! desc - type(psb_desc_type). The communication descriptor. ! info - integer. Return code @@ -51,18 +51,18 @@ subroutine psb_cdalv(v, ictxt, desc, info, flag) use psb_hash_map_mod implicit None !....Parameters... - Integer, intent(in) :: ictxt, v(:) - integer, intent(in), optional :: flag - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt, v(:) + integer(psb_ipk_), intent(in), optional :: flag + integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(out) :: desc !locals - Integer :: counter,i,j,np,me,loc_row,err,& + integer(psb_ipk_) :: counter,i,j,np,me,loc_row,err,& & loc_col,nprocs,m,n,itmpov, k,glx,& & l_ov_ix,l_ov_el,idx, flag_, err_act - integer :: int_err(5),exch(3) - Integer, allocatable :: temp_ovrlap(:) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5),exch(3) + integer(psb_ipk_), allocatable :: temp_ovrlap(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cdcpy.F90 b/base/tools/psb_cdcpy.F90 index b38c54867..765401f27 100644 --- a/base/tools/psb_cdcpy.F90 +++ b/base/tools/psb_cdcpy.F90 @@ -46,11 +46,11 @@ subroutine psb_cdcpy(desc_in, desc_out, info) type(psb_desc_type), intent(in) :: desc_in type(psb_desc_type), intent(out) :: desc_out - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals - integer :: np,me,ictxt, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,ictxt, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name debug_unit = psb_get_debug_unit() diff --git a/base/tools/psb_cdins.f90 b/base/tools/psb_cdins.f90 index 7053f921b..6e154ddcd 100644 --- a/base/tools/psb_cdins.f90 +++ b/base/tools/psb_cdins.f90 @@ -42,8 +42,8 @@ ! ja(:) - integer The column indices of the points. ! desc_a - type(psb_desc_type). The communication descriptor to be freed. ! info - integer. Return code. -! ila(:) - integer, optional The row indices in local numbering -! jla(:) - integer, optional The col indices in local numbering +! ila(:) - integer(psb_ipk_), optional The row indices in local numbering +! jla(:) - integer(psb_ipk_), optional The col indices in local numbering ! subroutine psb_cdinsrc(nz,ia,ja,desc_a,info,ila,jla) use psb_base_mod, psb_protect_name => psb_cdinsrc @@ -52,18 +52,18 @@ subroutine psb_cdinsrc(nz,ia,ja,desc_a,info,ila,jla) !....PARAMETERS... Type(psb_desc_type), intent(inout) :: desc_a - Integer, intent(in) :: nz,ia(:),ja(:) - integer, intent(out) :: info - integer, optional, intent(out) :: ila(:), jla(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(out) :: ila(:), jla(:) !LOCALS..... - integer :: ictxt,dectype,mglob, nglob - integer :: np, me - integer :: nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,dectype,mglob, nglob + integer(psb_ipk_) :: np, me + integer(psb_ipk_) :: nrow,ncol, err_act logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila_(:), jla_(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila_(:), jla_(:) character(len=20) :: name info = psb_success_ @@ -164,7 +164,7 @@ end subroutine psb_cdinsrc ! ja(:) - integer The column indices of the points. ! desc - type(psb_desc_type). The communication descriptor ! info - integer. Return code. -! jla(:) - integer, optional The col indices in local numbering +! jla(:) - integer(psb_ipk_), optional The col indices in local numbering ! mask(:) - logical, optional, target ! subroutine psb_cdinsc(nz,ja,desc,info,jla,mask) @@ -174,19 +174,19 @@ subroutine psb_cdinsc(nz,ja,desc,info,jla,mask) !....PARAMETERS... Type(psb_desc_type), intent(inout) :: desc - Integer, intent(in) :: nz,ja(:) - integer, intent(out) :: info - integer, optional, intent(out) :: jla(:) + integer(psb_ipk_), intent(in) :: nz,ja(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(out) :: jla(:) logical, optional, target, intent(in) :: mask(:) !LOCALS..... - integer :: ictxt,dectype,mglob, nglob - integer :: np, me - integer :: nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,dectype,mglob, nglob + integer(psb_ipk_) :: np, me + integer(psb_ipk_) :: nrow,ncol, err_act logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila_(:), jla_(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila_(:), jla_(:) logical, allocatable, target :: mask__(:) logical, pointer :: mask_(:) character(len=20) :: name diff --git a/base/tools/psb_cdprt.f90 b/base/tools/psb_cdprt.f90 index c142fb705..a50bf7603 100644 --- a/base/tools/psb_cdprt.f90 +++ b/base/tools/psb_cdprt.f90 @@ -44,11 +44,11 @@ subroutine psb_cdprt(iout,desc_p,glob,short) use psb_base_mod, psb_protect_name => psb_cdprt implicit none type(psb_desc_type), intent(in) :: desc_p - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout logical, intent(in), optional :: glob,short logical :: lshort, lglob - integer :: m, n_row, n_col,counter,idx,n_elem_recv,n_elem_send,& + integer(psb_ipk_) :: m, n_row, n_col,counter,idx,n_elem_recv,n_elem_send,& & proc,i if (present(glob)) then diff --git a/base/tools/psb_cdren.f90 b/base/tools/psb_cdren.f90 index 830dcac51..22e2c6a34 100644 --- a/base/tools/psb_cdren.f90 +++ b/base/tools/psb_cdren.f90 @@ -39,7 +39,7 @@ ! Arguments: ! trans - character. Whether iperm or its transpose ! should be applied. -! iperm - integer,dimension(:). The renumbering scheme. +! iperm - integer(psb_ipk_),dimension(:). The renumbering scheme. ! desc_a - type(psb_desc_type). The communication descriptor ! to be updated. ! info - integer. Return code @@ -52,14 +52,14 @@ subroutine psb_cdren(trans,iperm,desc_a,info) !...parameters.... type(psb_desc_type), intent(inout) :: desc_a - integer, intent(inout) :: iperm(:) + integer(psb_ipk_), intent(inout) :: iperm(:) character, intent(in) :: trans - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !....locals.... - integer :: i,j,np,me, n_col, kh, nh - integer :: dectype - integer :: ictxt,n_row, int_err(5), err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: i,j,np,me, n_col, kh, nh + integer(psb_ipk_) :: dectype + integer(psb_ipk_) :: ictxt,n_row, int_err(5), err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cdrep.f90 b/base/tools/psb_cdrep.f90 index dd8dbe879..f331d7833 100644 --- a/base/tools/psb_cdrep.f90 +++ b/base/tools/psb_cdrep.f90 @@ -107,14 +107,14 @@ subroutine psb_cdrep(m, ictxt, desc, info) use psb_repl_map_mod implicit None !....Parameters... - Integer, intent(in) :: m,ictxt - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: m,ictxt + integer(psb_ipk_), intent(out) :: info Type(psb_desc_type), intent(out) :: desc !locals - Integer :: i,np,me,err,n,err_act - integer :: int_err(5),exch(2), thalo(1), tovr(1), text(1) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: i,np,me,err,n,err_act + integer(psb_ipk_) :: int_err(5),exch(2), thalo(1), tovr(1), text(1) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cfree.f90 b/base/tools/psb_cfree.f90 index 649a9236c..fd09d444c 100644 --- a/base/tools/psb_cfree.f90 +++ b/base/tools/psb_cfree.f90 @@ -45,10 +45,10 @@ subroutine psb_cfree(x, desc_a, info) !....parameters... complex(psb_spk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name @@ -115,10 +115,10 @@ subroutine psb_cfreev(x, desc_a, info) !....parameters... complex(psb_spk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name @@ -177,9 +177,9 @@ subroutine psb_cfree_vect(x, desc_a, info) !....parameters... type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -235,9 +235,9 @@ subroutine psb_cfree_vect_r2(x, desc_a, info) !....parameters... type(psb_c_vect_type), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act, i + integer(psb_ipk_) :: ictxt,np,me,err_act, i character(len=20) :: name diff --git a/base/tools/psb_cins.f90 b/base/tools/psb_cins.f90 index 485abb16d..5139e7048 100644 --- a/base/tools/psb_cins.f90 +++ b/base/tools/psb_cins.f90 @@ -56,19 +56,19 @@ subroutine psb_cinsvi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:) complex(psb_spk_),intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -189,19 +189,19 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:) type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -299,19 +299,19 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) type(psb_c_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5), n - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -462,19 +462,19 @@ subroutine psb_cinsi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) complex(psb_spk_),intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,loc_row,j,n,& + integer(psb_ipk_) :: ictxt,i,loc_row,j,n,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np,me,dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np,me,dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index d2252e0c1..3e9be2455 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -48,15 +48,15 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz !locals - integer :: ictxt, dectype - integer :: np,me,loc_row,loc_col,& + integer(psb_ipk_) :: ictxt, dectype + integer(psb_ipk_) :: np,me,loc_row,loc_col,& & length_ia1,length_ia2, err_act,m,n - integer :: int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90 index 14850b24f..70cc6d195 100644 --- a/base/tools/psb_cspasb.f90 +++ b/base/tools/psb_cspasb.f90 @@ -57,16 +57,16 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold) !...Parameters.... type(psb_cspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: mold !....Locals.... - integer :: int_err(5) - integer :: np,me,n_col, err_act - integer :: spstate - integer :: ictxt,n_row - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: np,me,n_col, err_act + integer(psb_ipk_) :: spstate + integer(psb_ipk_) :: ictxt,n_row + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_cspfree.f90 b/base/tools/psb_cspfree.f90 index eb3d094fb..d1ed177d2 100644 --- a/base/tools/psb_cspfree.f90 +++ b/base/tools/psb_cspfree.f90 @@ -46,9 +46,9 @@ subroutine psb_cspfree(a, desc_a,info) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt, err_act + integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90 index 2455d58b1..fca9c3b1e 100644 --- a/base/tools/psb_csphalo.F90 +++ b/base/tools/psb_csphalo.F90 @@ -70,24 +70,24 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,& Type(psb_cspmat_type),Intent(in) :: a Type(psb_cspmat_type),Intent(inout) :: blk Type(psb_desc_type),Intent(in), target :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale character(len=5), optional :: outfmt - integer, intent(in), optional :: data + integer(psb_ipk_), intent(in), optional :: data ! ...local scalars.... - Integer :: np,me,counter,proc,i, & + integer(psb_ipk_) :: np,me,counter,proc,i, & & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr - Integer :: l1, icomm, err_act - Integer, allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & + integer(psb_ipk_) :: l1, icomm, err_act + integer(psb_ipk_), allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & & rvsz(:), bsdindx(:),sdsz(:), iasnd(:), jasnd(:) complex(psb_spk_), allocatable :: valsnd(:) type(psb_c_coo_sparse_mat), allocatable :: acoo - integer, pointer :: idxv(:) + integer(psb_ipk_), pointer :: idxv(:) logical :: rowcnv_,colcnv_,rowscale_,colscale_ character(len=5) :: outfmt_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_cspins.f90 b/base/tools/psb_cspins.f90 index e3ab8e3de..a535ac85a 100644 --- a/base/tools/psb_cspins.f90 +++ b/base/tools/psb_cspins.f90 @@ -56,18 +56,18 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild) !....parameters... type(psb_desc_type), intent(inout) :: desc_a type(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_ - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ @@ -203,16 +203,16 @@ subroutine psb_cspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_cspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_csprn.f90 b/base/tools/psb_csprn.f90 index 995e1d66e..45229bede 100644 --- a/base/tools/psb_csprn.f90 +++ b/base/tools/psb_csprn.f90 @@ -49,13 +49,13 @@ Subroutine psb_csprn(a, desc_a,info,clear) !....Parameters... Type(psb_desc_type), intent(in) :: desc_a Type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear !locals - Integer :: ictxt,np,me,err,err_act - integer :: debug_level, debug_unit - integer :: int_err(5) + integer(psb_ipk_) :: ictxt,np,me,err,err_act + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) character(len=20) :: name logical :: clear_ diff --git a/base/tools/psb_d_map.f90 b/base/tools/psb_d_map.f90 index 8ea74a058..8fa2b95d1 100644 --- a/base/tools/psb_d_map.f90 +++ b/base/tools/psb_d_map.f90 @@ -45,12 +45,12 @@ subroutine psb_d_map_X2Y(alpha,x,beta,y,map,info,work) real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) ! real(psb_dpk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -117,12 +117,12 @@ subroutine psb_d_map_X2Y_vect(alpha,x,beta,y,map,info,work) type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta type(psb_d_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) ! Local type(psb_d_vect_type) :: xt, yt real(psb_dpk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2 ,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2 ,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -209,12 +209,12 @@ subroutine psb_d_map_Y2X(alpha,x,beta,y,map,info,work) real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) ! real(psb_dpk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -280,12 +280,12 @@ subroutine psb_d_map_Y2X_vect(alpha,x,beta,y,map,info,work) type(psb_dlinmap_type), intent(in) :: map real(psb_dpk_), intent(in) :: alpha,beta type(psb_d_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional :: work(:) ! type(psb_d_vect_type) :: xt, yt real(psb_dpk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -363,10 +363,10 @@ function psb_d_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) & type(psb_dlinmap_type) :: this type(psb_desc_type), target :: desc_X, desc_Y type(psb_dspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) ! - integer :: info + integer(psb_ipk_) :: info character(len=20), parameter :: name='psb_linmap' info = psb_success_ diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90 index e096e9151..280177a6c 100644 --- a/base/tools/psb_dallc.f90 +++ b/base/tools/psb_dallc.f90 @@ -50,13 +50,13 @@ subroutine psb_dalloc(x, desc_a, info, n, lb) !....parameters... real(psb_dpk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb !locals - integer :: np,me,err,nr,i,j,err_act - integer :: ictxt,n_ - integer :: int_err(5), exch(3) + integer(psb_ipk_) :: np,me,err,nr,i,j,err_act + integer(psb_ipk_) :: ictxt,n_ + integer(psb_ipk_) :: int_err(5), exch(3) character(len=20) :: name name='psb_geall' @@ -184,13 +184,13 @@ subroutine psb_dallocv(x, desc_a,info,n) !....parameters... real(psb_dpk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -261,13 +261,13 @@ subroutine psb_dalloc_vect(x, desc_a,info,n) !....parameters... type(psb_d_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ @@ -338,13 +338,13 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) !....parameters... type(psb_d_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n,lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n,lb !locals - integer :: np,me,nr,i,err_act, n_, lb_ - integer :: ictxt, int_err(5), exch(1) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: ictxt, int_err(5), exch(1) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ diff --git a/base/tools/psb_dasb.f90 b/base/tools/psb_dasb.f90 index 12c3290f0..0461ebd17 100644 --- a/base/tools/psb_dasb.f90 +++ b/base/tools/psb_dasb.f90 @@ -48,12 +48,12 @@ subroutine psb_dasb(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me,nrow,ncol, err_act - integer :: i1sz, i2sz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz, i2sz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return @@ -181,12 +181,12 @@ subroutine psb_dasbv(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a real(psb_dpk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -256,15 +256,15 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -335,15 +335,15 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_d_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me, i, n - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me, i, n + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index dcbcb3fa1..773b71d58 100644 --- a/base/tools/psb_dcdbldext.F90 +++ b/base/tools/psb_dcdbldext.F90 @@ -73,29 +73,29 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr + integer(psb_ipk_), intent(in) :: novr Type(psb_dspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype ! .. Local Scalars .. - Integer :: i, j, np, me,m,& + integer(psb_ipk_) :: i, j, np, me,m,& & ictxt, lovr, lworks,lworkr, n_row,n_col, n_col_prev, int_err(5),& & index_dim,elem_dim, l_tmp_ovr_idx,l_tmp_halo, nztot,nhalo - Integer :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& + integer(psb_ipk_) :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& & n_elem_send,tot_recv,tot_elem,cntov_o,& & counter_t,n_elem,i_ovr,jj,proc_id,isz, & & idxr, idxs, iszr, iszs, nxch, nsnd, nrcv,lidx, extype_ - integer :: icomm, err_act + integer(psb_ipk_) :: icomm, err_act - integer, allocatable :: irow(:), icol(:) - Integer, allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) - Integer,allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& + integer(psb_ipk_), allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) + integer(psb_ipk_),allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& & t_halo_out(:),temp(:),maskr(:) - Integer,allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) - integer :: debug_level, debug_unit + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_dcdbldext' diff --git a/base/tools/psb_dfree.f90 b/base/tools/psb_dfree.f90 index 46407e909..fe9241099 100644 --- a/base/tools/psb_dfree.f90 +++ b/base/tools/psb_dfree.f90 @@ -45,10 +45,10 @@ subroutine psb_dfree(x, desc_a, info) !....parameters... real(psb_dpk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -115,9 +115,9 @@ subroutine psb_dfreev(x, desc_a, info) !....parameters... real(psb_dpk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -172,9 +172,9 @@ subroutine psb_dfree_vect(x, desc_a, info) !....parameters... type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -230,9 +230,9 @@ subroutine psb_dfree_vect_r2(x, desc_a, info) !....parameters... type(psb_d_vect_type), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act, i + integer(psb_ipk_) :: ictxt,np,me,err_act, i character(len=20) :: name diff --git a/base/tools/psb_dins.f90 b/base/tools/psb_dins.f90 index 5e8902551..9f1b879fa 100644 --- a/base/tools/psb_dins.f90 +++ b/base/tools/psb_dins.f90 @@ -55,19 +55,19 @@ subroutine psb_dinsvi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:) real(psb_dpk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -188,19 +188,19 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:) type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -298,19 +298,19 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:,:) type(psb_d_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5), n - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -460,19 +460,19 @@ subroutine psb_dinsi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:,:) real(psb_dpk_), intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,loc_row,j,n,& + integer(psb_ipk_) :: ictxt,i,loc_row,j,n,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np,me,dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np,me,dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name info=psb_success_ diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 4465ec2ab..6d274e5aa 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -48,15 +48,15 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz !locals - integer :: ictxt, dectype - integer :: np,me,loc_row,loc_col,& + integer(psb_ipk_) :: ictxt, dectype + integer(psb_ipk_) :: np,me,loc_row,loc_col,& & length_ia1,length_ia2, err_act,m,n - integer :: int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err info=psb_success_ diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90 index 246560dac..c18669bbf 100644 --- a/base/tools/psb_dspasb.f90 +++ b/base/tools/psb_dspasb.f90 @@ -57,16 +57,16 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold) !...Parameters.... type(psb_dspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: mold !....Locals.... - integer :: int_err(5) - integer :: np,me,n_col, err_act - integer :: spstate - integer :: ictxt,n_row - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: np,me,n_col, err_act + integer(psb_ipk_) :: spstate + integer(psb_ipk_) :: ictxt,n_row + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_dspfree.f90 b/base/tools/psb_dspfree.f90 index eedd61c29..b58a370f9 100644 --- a/base/tools/psb_dspfree.f90 +++ b/base/tools/psb_dspfree.f90 @@ -46,9 +46,9 @@ subroutine psb_dspfree(a, desc_a,info) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,err_act + integer(psb_ipk_) :: ictxt,err_act character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90 index 25321a75a..26d283355 100644 --- a/base/tools/psb_dsphalo.F90 +++ b/base/tools/psb_dsphalo.F90 @@ -70,24 +70,24 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,& Type(psb_dspmat_type),Intent(in) :: a Type(psb_dspmat_type),Intent(inout) :: blk Type(psb_desc_type),Intent(in), target :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale character(len=5), optional :: outfmt - integer, intent(in), optional :: data + integer(psb_ipk_), intent(in), optional :: data ! ...local scalars.... - Integer :: np,me,counter,proc,i, & + integer(psb_ipk_) :: np,me,counter,proc,i, & & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr - Integer :: l1, icomm, err_act - Integer, allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & + integer(psb_ipk_) :: l1, icomm, err_act + integer(psb_ipk_), allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & & rvsz(:), bsdindx(:),sdsz(:), iasnd(:), jasnd(:) real(psb_dpk_), allocatable :: valsnd(:) type(psb_d_coo_sparse_mat), allocatable :: acoo - integer, pointer :: idxv(:) + integer(psb_ipk_), pointer :: idxv(:) logical :: rowcnv_,colcnv_,rowscale_,colscale_ character(len=5) :: outfmt_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_dspins.f90 b/base/tools/psb_dspins.f90 index f034b02a6..f6ef613f4 100644 --- a/base/tools/psb_dspins.f90 +++ b/base/tools/psb_dspins.f90 @@ -55,18 +55,18 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild) !....parameters... type(psb_desc_type), intent(inout) :: desc_a type(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_ - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ @@ -201,16 +201,16 @@ subroutine psb_dspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_dspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) real(kind=psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_dsprn.f90 b/base/tools/psb_dsprn.f90 index 98fc9efe4..d5dedb7d5 100644 --- a/base/tools/psb_dsprn.f90 +++ b/base/tools/psb_dsprn.f90 @@ -48,13 +48,13 @@ Subroutine psb_dsprn(a, desc_a,info,clear) !....Parameters... Type(psb_desc_type), intent(in) :: desc_a Type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear !locals - Integer :: ictxt,np,me,err,err_act - integer :: debug_level, debug_unit - integer :: int_err(5) + integer(psb_ipk_) :: ictxt,np,me,err,err_act + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) character(len=20) :: name logical :: clear_ diff --git a/base/tools/psb_get_overlap.f90 b/base/tools/psb_get_overlap.f90 index 4ea724818..d6607e83f 100644 --- a/base/tools/psb_get_overlap.f90 +++ b/base/tools/psb_get_overlap.f90 @@ -38,18 +38,18 @@ ! current (calling) process. ! ! Arguments: -! ovrel(:) - integer, allocatable Array containing the output list +! ovrel(:) - integer(psb_ipk_), allocatable Array containing the output list ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code. ! subroutine psb_get_ovrlap(ovrel,desc,info) use psb_base_mod, psb_protect_name => psb_get_ovrlap implicit none - integer, allocatable, intent(out) :: ovrel(:) + integer(psb_ipk_), allocatable, intent(out) :: ovrel(:) type(psb_desc_type), intent(in) :: desc - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j, err_act + integer(psb_ipk_) :: i,j, err_act character(len=20) :: name info = psb_success_ diff --git a/base/tools/psb_glob_to_loc.f90 b/base/tools/psb_glob_to_loc.f90 index 5bec4f273..19fb03319 100644 --- a/base/tools/psb_glob_to_loc.f90 +++ b/base/tools/psb_glob_to_loc.f90 @@ -53,17 +53,17 @@ subroutine psb_glob_to_loc2(x,y,desc_a,info,iact,owned) !...parameters.... type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: x(:) - integer, intent(out) :: y(:), info + integer(psb_ipk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: y(:), info character, intent(in), optional :: iact logical, intent(in), optional :: owned !....locals.... - integer :: n + integer(psb_ipk_) :: n character :: act - integer :: int_err(5), err_act + integer(psb_ipk_) :: int_err(5), err_act logical :: owned_ - integer, parameter :: zero=0 + integer(psb_ipk_), parameter :: zero=0 character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -172,19 +172,19 @@ subroutine psb_glob_to_loc(x,desc_a,info,iact,owned) !...parameters.... type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: owned character, intent(in), optional :: iact !....locals.... - integer :: n + integer(psb_ipk_) :: n character :: act - integer :: err_act + integer(psb_ipk_) :: err_act logical :: owned_ - integer, parameter :: zero=0 + integer(psb_ipk_), parameter :: zero=0 character(len=20) :: name - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np if(psb_get_errstatus() /= 0) return info=psb_success_ @@ -244,13 +244,13 @@ subroutine psb_glob_to_loc2s(x,y,desc_a,info,iact,owned) use psb_base_mod, psb_protect_name => psb_glob_to_loc2s implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x - integer,intent(out) :: y - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x + integer(psb_ipk_),intent(out) :: y + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact logical, intent(in), optional :: owned - integer :: iv1(1), iv2(1) + integer(psb_ipk_) :: iv1(1), iv2(1) iv1(1) = x call psb_glob_to_loc(iv1,iv2,desc_a,info,iact,owned) @@ -261,11 +261,11 @@ subroutine psb_glob_to_locs(x,desc_a,info,iact,owned) use psb_base_mod, psb_protect_name => psb_glob_to_locs implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact logical, intent(in), optional :: owned - integer :: iv1(1) + integer(psb_ipk_) :: iv1(1) iv1(1) = x call psb_glob_to_loc(iv1,desc_a,info,iact,owned) diff --git a/base/tools/psb_ialloc.f90 b/base/tools/psb_ialloc.f90 index 16fdcaacb..d3137f6e9 100644 --- a/base/tools/psb_ialloc.f90 +++ b/base/tools/psb_ialloc.f90 @@ -46,15 +46,15 @@ subroutine psb_ialloc(x, desc_a, info, n, lb) implicit none !....parameters... - integer, allocatable, intent(out) :: x(:,:) + integer(psb_ipk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb !locals - integer :: np,me,err,nr,i,j,err_act - integer :: ictxt,n_ - integer :: int_err(5), exch(3) + integer(psb_ipk_) :: np,me,err,nr,i,j,err_act + integer(psb_ipk_) :: ictxt,n_ + integer(psb_ipk_) :: int_err(5), exch(3) character(len=20) :: name name='psb_geall' @@ -179,15 +179,15 @@ subroutine psb_iallocv(x, desc_a, info,n) implicit none !....parameters... - integer, allocatable, intent(out) :: x(:) + integer(psb_ipk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_iasb.f90 b/base/tools/psb_iasb.f90 index 2777e1f87..bc7f8c08d 100644 --- a/base/tools/psb_iasb.f90 +++ b/base/tools/psb_iasb.f90 @@ -39,7 +39,7 @@ ! We also call the halo routine for good measure. ! ! Arguments: -! x(:,:) - integer,allocatable The matrix to be assembled. +! x(:,:) - integer(psb_ipk_),allocatable The matrix to be assembled. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code subroutine psb_iasb(x, desc_a, info) @@ -47,13 +47,13 @@ subroutine psb_iasb(x, desc_a, info) implicit none type(psb_desc_type), intent(in) :: desc_a - integer, allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: x(:,:) + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me,nrow,ncol,err_act - integer :: int_err(5), i1sz, i2sz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me,nrow,ncol,err_act + integer(psb_ipk_) :: int_err(5), i1sz, i2sz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err if(psb_get_errstatus() /= 0) return @@ -173,7 +173,7 @@ end subroutine psb_iasb ! We also call the halo routine for good measure. ! ! Arguments: -! x(:) - integer,allocatable The matrix to be assembled. +! x(:) - integer(psb_ipk_),allocatable The matrix to be assembled. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code subroutine psb_iasbv(x, desc_a, info) @@ -181,13 +181,13 @@ subroutine psb_iasbv(x, desc_a, info) implicit none type(psb_desc_type), intent(in) :: desc_a - integer, allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), allocatable, intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index 718e6824e..41c91a296 100644 --- a/base/tools/psb_icdasb.F90 +++ b/base/tools/psb_icdasb.F90 @@ -54,17 +54,17 @@ subroutine psb_icdasb(desc_a,info,ext_hv) #endif !...Parameters.... type(psb_desc_type), intent(inout) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: ext_hv !....Locals.... - integer :: int_err(5) - integer,allocatable :: ovrlap_index(:),halo_index(:), ext_index(:) + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_),allocatable :: ovrlap_index(:),halo_index(:), ext_index(:) - integer :: i,np,me, n_col, dectype, err_act, icomm - integer :: ictxt,n_row + integer(psb_ipk_) :: i,np,me, n_col, dectype, err_act, icomm + integer(psb_ipk_) :: ictxt,n_row logical :: ext_hv_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ diff --git a/base/tools/psb_ifree.f90 b/base/tools/psb_ifree.f90 index 0f1f1df34..0fc448eb8 100644 --- a/base/tools/psb_ifree.f90 +++ b/base/tools/psb_ifree.f90 @@ -35,7 +35,7 @@ ! frees a dense integer matrix structure ! ! Arguments: -! x(:,:) - integer, allocatable The dense matrix to be freed. +! x(:,:) - integer(psb_ipk_), allocatable The dense matrix to be freed. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Eventually returns an error code subroutine psb_ifree(x, desc_a, info) @@ -43,12 +43,12 @@ subroutine psb_ifree(x, desc_a, info) implicit none !....parameters... - integer, allocatable, intent(inout) :: x(:,:) + integer(psb_ipk_), allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name @@ -137,18 +137,18 @@ end subroutine psb_ifree ! frees a dense integer matrix structure ! ! Arguments: -! x(:) - integer, allocatable The dense matrix to be freed. +! x(:) - integer(psb_ipk_), allocatable The dense matrix to be freed. ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. Eventually returns an error code subroutine psb_ifreev(x, desc_a,info) use psb_base_mod, psb_protect_name => psb_ifreev implicit none !....parameters... - integer, allocatable, intent(inout) :: x(:) + integer(psb_ipk_), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name diff --git a/base/tools/psb_iins.f90 b/base/tools/psb_iins.f90 index cb176b6eb..dbc567d23 100644 --- a/base/tools/psb_iins.f90 +++ b/base/tools/psb_iins.f90 @@ -55,19 +55,19 @@ subroutine psb_iinsvi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) - integer, intent(in) :: val(:) - integer,intent(inout) :: x(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: val(:) + integer(psb_ipk_),intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -236,19 +236,19 @@ subroutine psb_iinsi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) - integer, intent(in) :: val(:,:) - integer,intent(inout) :: x(:,:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: val(:,:) + integer(psb_ipk_),intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,loc_row,j,n,& + integer(psb_ipk_) :: ictxt,i,loc_row,j,n,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np,me,dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np,me,dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_loc_to_glob.f90 b/base/tools/psb_loc_to_glob.f90 index af942b19b..598b62b09 100644 --- a/base/tools/psb_loc_to_glob.f90 +++ b/base/tools/psb_loc_to_glob.f90 @@ -50,16 +50,16 @@ subroutine psb_loc_to_glob2(x,y,desc_a,info,iact) !...parameters.... type(psb_desc_type), intent(in) :: desc_a - integer, intent(in) :: x(:) - integer, intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: y(:) + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact !....locals.... - integer :: n, i, tmp + integer(psb_ipk_) :: n, i, tmp character :: act - integer :: int_err(5), err_act - integer, parameter :: zero=0 + integer(psb_ipk_) :: int_err(5), err_act + integer(psb_ipk_), parameter :: zero=0 character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -156,15 +156,15 @@ subroutine psb_loc_to_glob(x,desc_a,info,iact) !...parameters.... type(psb_desc_type), intent(in) :: desc_a - integer, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact !....locals.... - integer :: n ,i, tmp, err_act + integer(psb_ipk_) :: n ,i, tmp, err_act character :: act - integer :: int_err(5) - integer, parameter :: zero=0 + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_), parameter :: zero=0 character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -215,12 +215,12 @@ subroutine psb_loc_to_glob2s(x,y,desc_a,info,iact) use psb_tools_mod, psb_protect_name => psb_loc_to_glob2s implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(in) :: x - integer,intent(out) :: y - integer, intent(out) :: info + integer(psb_ipk_),intent(in) :: x + integer(psb_ipk_),intent(out) :: y + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact - integer :: iv1(1), iv2(1) + integer(psb_ipk_) :: iv1(1), iv2(1) iv1(1) = x call psb_loc_to_glob(iv1,iv2,desc_a,info,iact) @@ -232,10 +232,10 @@ subroutine psb_loc_to_globs(x,desc_a,info,iact) use psb_tools_mod, psb_protect_name => psb_loc_to_globs implicit none type(psb_desc_type), intent(in) :: desc_a - integer,intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_),intent(inout) :: x + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: iact - integer :: iv1(1) + integer(psb_ipk_) :: iv1(1) iv1(1) = x call psb_loc_to_glob(iv1,desc_a,info,iact) diff --git a/base/tools/psb_s_map.f90 b/base/tools/psb_s_map.f90 index 1f013aeb7..4760bb056 100644 --- a/base/tools/psb_s_map.f90 +++ b/base/tools/psb_s_map.f90 @@ -45,12 +45,12 @@ subroutine psb_s_map_X2Y(alpha,x,beta,y,map,info,work) real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) ! real(psb_spk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -117,12 +117,12 @@ subroutine psb_s_map_X2Y_vect(alpha,x,beta,y,map,info,work) type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta type(psb_s_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) ! Local type(psb_s_vect_type) :: xt, yt real(psb_spk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2 ,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2 ,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -209,12 +209,12 @@ subroutine psb_s_map_Y2X(alpha,x,beta,y,map,info,work) real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) ! real(psb_spk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -280,12 +280,12 @@ subroutine psb_s_map_Y2X_vect(alpha,x,beta,y,map,info,work) type(psb_slinmap_type), intent(in) :: map real(psb_spk_), intent(in) :: alpha,beta type(psb_s_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_spk_), optional :: work(:) ! type(psb_s_vect_type) :: xt, yt real(psb_spk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -363,10 +363,10 @@ function psb_s_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) & type(psb_slinmap_type) :: this type(psb_desc_type), target :: desc_X, desc_Y type(psb_sspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) ! - integer :: info + integer(psb_ipk_) :: info character(len=20), parameter :: name='psb_linmap' info = psb_success_ diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90 index b71475008..2ce09e020 100644 --- a/base/tools/psb_sallc.f90 +++ b/base/tools/psb_sallc.f90 @@ -50,13 +50,13 @@ subroutine psb_salloc(x, desc_a, info, n, lb) !....parameters... real(psb_spk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb !locals - integer :: np,me,err,nr,i,j,err_act - integer :: ictxt,n_ - integer :: int_err(5), exch(3) + integer(psb_ipk_) :: np,me,err,nr,i,j,err_act + integer(psb_ipk_) :: ictxt,n_ + integer(psb_ipk_) :: int_err(5), exch(3) character(len=20) :: name name='psb_geall' @@ -184,13 +184,13 @@ subroutine psb_sallocv(x, desc_a,info,n) !....parameters... real(psb_spk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -261,13 +261,13 @@ subroutine psb_salloc_vect(x, desc_a,info,n) !....parameters... type(psb_s_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ @@ -338,13 +338,13 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) !....parameters... type(psb_s_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n,lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n,lb !locals - integer :: np,me,nr,i,err_act, n_, lb_ - integer :: ictxt, int_err(5), exch(1) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: ictxt, int_err(5), exch(1) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ diff --git a/base/tools/psb_sasb.f90 b/base/tools/psb_sasb.f90 index 89e6c79cd..915a963a3 100644 --- a/base/tools/psb_sasb.f90 +++ b/base/tools/psb_sasb.f90 @@ -48,12 +48,12 @@ subroutine psb_sasb(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me,nrow,ncol, err_act - integer :: i1sz, i2sz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz, i2sz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return @@ -181,12 +181,12 @@ subroutine psb_sasbv(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -256,15 +256,15 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -336,15 +336,15 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_s_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me, i, n - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me, i, n + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90 index 8e1c80f4c..419f86662 100644 --- a/base/tools/psb_scdbldext.F90 +++ b/base/tools/psb_scdbldext.F90 @@ -73,29 +73,29 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr + integer(psb_ipk_), intent(in) :: novr Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype ! .. Local Scalars .. - Integer :: i, j, np, me,m,& + integer(psb_ipk_) :: i, j, np, me,m,& & ictxt, lovr, lworks,lworkr, n_row,n_col, n_col_prev, int_err(5),& & index_dim,elem_dim, l_tmp_ovr_idx,l_tmp_halo, nztot,nhalo - Integer :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& + integer(psb_ipk_) :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& & n_elem_send,tot_recv,tot_elem,cntov_o,& & counter_t,n_elem,i_ovr,jj,proc_id,isz, & & idxr, idxs, iszr, iszs, nxch, nsnd, nrcv,lidx, extype_ - integer :: icomm, err_act + integer(psb_ipk_) :: icomm, err_act - integer, allocatable :: irow(:), icol(:) - Integer, allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) - Integer,allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& + integer(psb_ipk_), allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) + integer(psb_ipk_),allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& & t_halo_out(:),temp(:),maskr(:) - Integer,allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) - integer :: debug_level, debug_unit + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_scdbldext' diff --git a/base/tools/psb_sfree.f90 b/base/tools/psb_sfree.f90 index 72b634448..a9419c7a6 100644 --- a/base/tools/psb_sfree.f90 +++ b/base/tools/psb_sfree.f90 @@ -45,10 +45,10 @@ subroutine psb_sfree(x, desc_a, info) !....parameters... real(psb_spk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -115,9 +115,9 @@ subroutine psb_sfreev(x, desc_a, info) !....parameters... real(psb_spk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -172,9 +172,9 @@ subroutine psb_sfree_vect(x, desc_a, info) !....parameters... type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -230,9 +230,9 @@ subroutine psb_sfree_vect_r2(x, desc_a, info) !....parameters... type(psb_s_vect_type), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act, i + integer(psb_ipk_) :: ictxt,np,me,err_act, i character(len=20) :: name diff --git a/base/tools/psb_sins.f90 b/base/tools/psb_sins.f90 index 3ab532a25..79d4fdc15 100644 --- a/base/tools/psb_sins.f90 +++ b/base/tools/psb_sins.f90 @@ -55,19 +55,19 @@ subroutine psb_sinsvi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:) real(psb_spk_), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -188,19 +188,19 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:) type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -298,19 +298,19 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:,:) type(psb_s_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5), n - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -460,19 +460,19 @@ subroutine psb_sinsi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:,:) real(psb_spk_), intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,loc_row,j,n,& + integer(psb_ipk_) :: ictxt,i,loc_row,j,n,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np,me,dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np,me,dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index eacd16d7f..f6b0ec3de 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -48,15 +48,15 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz !locals - integer :: ictxt, dectype - integer :: np,me,loc_row,loc_col,& + integer(psb_ipk_) :: ictxt, dectype + integer(psb_ipk_) :: np,me,loc_row,loc_col,& & length_ia1,length_ia2, err_act,m,n - integer :: int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90 index a8d4fc1bd..b495dfdb9 100644 --- a/base/tools/psb_sspasb.f90 +++ b/base/tools/psb_sspasb.f90 @@ -57,16 +57,16 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold) !...Parameters.... type(psb_sspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: mold !....Locals.... - integer :: int_err(5) - integer :: np,me,n_col, err_act - integer :: spstate - integer :: ictxt,n_row - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: np,me,n_col, err_act + integer(psb_ipk_) :: spstate + integer(psb_ipk_) :: ictxt,n_row + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_sspfree.f90 b/base/tools/psb_sspfree.f90 index dd93db2e8..064dfa2a9 100644 --- a/base/tools/psb_sspfree.f90 +++ b/base/tools/psb_sspfree.f90 @@ -46,9 +46,9 @@ subroutine psb_sspfree(a, desc_a,info) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,err_act + integer(psb_ipk_) :: ictxt,err_act character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90 index 6e138d820..4b0b01411 100644 --- a/base/tools/psb_ssphalo.F90 +++ b/base/tools/psb_ssphalo.F90 @@ -70,24 +70,24 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,& Type(psb_sspmat_type),Intent(in) :: a Type(psb_sspmat_type),Intent(inout) :: blk Type(psb_desc_type),Intent(in), target :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale character(len=5), optional :: outfmt - integer, intent(in), optional :: data + integer(psb_ipk_), intent(in), optional :: data ! ...local scalars.... - Integer :: np,me,counter,proc,i, & + integer(psb_ipk_) :: np,me,counter,proc,i, & & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr - Integer :: l1, icomm, err_act - Integer, allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & + integer(psb_ipk_) :: l1, icomm, err_act + integer(psb_ipk_), allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & & rvsz(:), bsdindx(:),sdsz(:), iasnd(:), jasnd(:) real(psb_spk_), allocatable :: valsnd(:) type(psb_s_coo_sparse_mat), allocatable :: acoo - integer, pointer :: idxv(:) + integer(psb_ipk_), pointer :: idxv(:) logical :: rowcnv_,colcnv_,rowscale_,colscale_ character(len=5) :: outfmt_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_sspins.f90 b/base/tools/psb_sspins.f90 index 950d9b55b..9bcd86f13 100644 --- a/base/tools/psb_sspins.f90 +++ b/base/tools/psb_sspins.f90 @@ -55,18 +55,18 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild) !....parameters... type(psb_desc_type), intent(inout) :: desc_a type(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) real(psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_ - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ @@ -201,16 +201,16 @@ subroutine psb_sspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_sspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) real(kind=psb_spk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_ssprn.f90 b/base/tools/psb_ssprn.f90 index ff9d7701a..6d82f2e18 100644 --- a/base/tools/psb_ssprn.f90 +++ b/base/tools/psb_ssprn.f90 @@ -48,13 +48,13 @@ Subroutine psb_ssprn(a, desc_a,info,clear) !....Parameters... Type(psb_desc_type), intent(in) :: desc_a Type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear !locals - Integer :: ictxt,np,me,err,err_act - integer :: debug_level, debug_unit - integer :: int_err(5) + integer(psb_ipk_) :: ictxt,np,me,err,err_act + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) character(len=20) :: name logical :: clear_ diff --git a/base/tools/psb_z_map.f90 b/base/tools/psb_z_map.f90 index 88e878a11..951f8d891 100644 --- a/base/tools/psb_z_map.f90 +++ b/base/tools/psb_z_map.f90 @@ -45,12 +45,12 @@ subroutine psb_z_map_X2Y(alpha,x,beta,y,map,info,work) complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) ! complex(psb_dpk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -117,12 +117,12 @@ subroutine psb_z_map_X2Y_vect(alpha,x,beta,y,map,info,work) type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta type(psb_z_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) ! Local type(psb_z_vect_type) :: xt, yt complex(psb_dpk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2 ,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2 ,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_X2Y' @@ -209,12 +209,12 @@ subroutine psb_z_map_Y2X(alpha,x,beta,y,map,info,work) complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(inout) :: x(:) complex(psb_dpk_), intent(out) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) ! complex(psb_dpk_), allocatable :: xt(:), yt(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -280,12 +280,12 @@ subroutine psb_z_map_Y2X_vect(alpha,x,beta,y,map,info,work) type(psb_zlinmap_type), intent(in) :: map complex(psb_dpk_), intent(in) :: alpha,beta type(psb_z_vect_type), intent(inout) :: x,y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info complex(psb_dpk_), optional :: work(:) ! type(psb_z_vect_type) :: xt, yt complex(psb_dpk_), allocatable :: xta(:), yta(:) - integer :: i, j, nr1, nc1,nr2, nc2,& + integer(psb_ipk_) :: i, j, nr1, nc1,nr2, nc2,& & map_kind, nr, ictxt character(len=20), parameter :: name='psb_map_Y2X' @@ -363,10 +363,10 @@ function psb_z_linmap(map_kind,desc_X, desc_Y, map_X2Y, map_Y2X,iaggr,naggr) & type(psb_zlinmap_type) :: this type(psb_desc_type), target :: desc_X, desc_Y type(psb_zspmat_type), intent(in) :: map_X2Y, map_Y2X - integer, intent(in) :: map_kind - integer, intent(in), optional :: iaggr(:), naggr(:) + integer(psb_ipk_), intent(in) :: map_kind + integer(psb_ipk_), intent(in), optional :: iaggr(:), naggr(:) ! - integer :: info + integer(psb_ipk_) :: info character(len=20), parameter :: name='psb_linmap' info = psb_success_ diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90 index 7d7fa6c35..ed076bf4b 100644 --- a/base/tools/psb_zallc.f90 +++ b/base/tools/psb_zallc.f90 @@ -50,13 +50,13 @@ subroutine psb_zalloc(x, desc_a, info, n, lb) !....parameters... complex(psb_dpk_), allocatable, intent(out) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n, lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n, lb !locals - integer :: np,me,err,nr,i,j,err_act - integer :: ictxt,n_ - integer :: int_err(5),exch(3) + integer(psb_ipk_) :: np,me,err,nr,i,j,err_act + integer(psb_ipk_) :: ictxt,n_ + integer(psb_ipk_) :: int_err(5),exch(3) character(len=20) :: name name='psb_geall' @@ -183,13 +183,13 @@ subroutine psb_zallocv(x, desc_a,info,n) !....parameters... complex(psb_dpk_), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -261,13 +261,13 @@ subroutine psb_zalloc_vect(x, desc_a,info,n) !....parameters... type(psb_z_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n !locals - integer :: np,me,nr,i,err_act - integer :: ictxt, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: ictxt, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ @@ -338,13 +338,13 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) !....parameters... type(psb_z_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer,intent(out) :: info - integer, optional, intent(in) :: n,lb + integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: n,lb !locals - integer :: np,me,nr,i,err_act, n_, lb_ - integer :: ictxt, int_err(5), exch(1) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: ictxt, int_err(5), exch(1) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info=psb_success_ diff --git a/base/tools/psb_zasb.f90 b/base/tools/psb_zasb.f90 index 622ad8faa..4be0befb7 100644 --- a/base/tools/psb_zasb.f90 +++ b/base/tools/psb_zasb.f90 @@ -48,12 +48,12 @@ subroutine psb_zasb(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), allocatable, intent(inout) :: x(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me,nrow,ncol, err_act - integer :: i1sz, i2sz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz, i2sz + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return @@ -180,12 +180,12 @@ subroutine psb_zasbv(x, desc_a, info) type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), allocatable, intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -256,15 +256,15 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ @@ -336,15 +336,15 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch) type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info class(psb_z_base_vect_type), intent(in), optional :: mold logical, intent(in), optional :: scratch ! local variables - integer :: ictxt,np,me, i, n - integer :: int_err(5), i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: ictxt,np,me, i, n + integer(psb_ipk_) :: int_err(5), i1sz,nrow,ncol, err_act logical :: scratch_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err info = psb_success_ diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index b61c81944..7c3be51f7 100644 --- a/base/tools/psb_zcdbldext.F90 +++ b/base/tools/psb_zcdbldext.F90 @@ -73,30 +73,30 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype) #endif ! .. Array Arguments .. - integer, intent(in) :: novr + integer(psb_ipk_), intent(in) :: novr Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in), target :: desc_a Type(psb_desc_type), Intent(out) :: desc_ov - integer, intent(out) :: info - integer, intent(in),optional :: extype + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in),optional :: extype ! .. Local Scalars .. - Integer :: i, j, np, me,m,& + integer(psb_ipk_) :: i, j, np, me,m,& & ictxt, lovr, lworks,lworkr, n_row,n_col, n_col_prev, int_err(5),& & index_dim,elem_dim, l_tmp_ovr_idx,l_tmp_halo, nztot,nhalo - Integer :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& + integer(psb_ipk_) :: counter,counter_h, counter_o, counter_e,idx,gidx,proc,n_elem_recv,& & n_elem_send,tot_recv,tot_elem,cntov_o,& & counter_t,n_elem,i_ovr,jj,proc_id,isz, & & idxr, idxs, iszr, iszs, nxch, nsnd, nrcv,lidx, extype_ - integer :: icomm, err_act + integer(psb_ipk_) :: icomm, err_act - integer, allocatable :: irow(:), icol(:) - Integer, allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) - Integer,allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& + integer(psb_ipk_), allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: tmp_halo(:),tmp_ovr_idx(:), orig_ovr(:) + integer(psb_ipk_),allocatable :: halo(:),works(:),workr(:),t_halo_in(:),& & t_halo_out(:),temp(:),maskr(:) - Integer,allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) - integer :: debug_level, debug_unit + integer(psb_ipk_),allocatable :: brvindx(:),rvsz(:), bsdindx(:),sdsz(:) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err name='psb_zcdbldext' diff --git a/base/tools/psb_zfree.f90 b/base/tools/psb_zfree.f90 index 6bef8a7f6..157cbe226 100644 --- a/base/tools/psb_zfree.f90 +++ b/base/tools/psb_zfree.f90 @@ -45,10 +45,10 @@ subroutine psb_zfree(x, desc_a, info) !....parameters... complex(psb_dpk_),allocatable, intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name @@ -115,10 +115,10 @@ subroutine psb_zfreev(x, desc_a, info) !....parameters... complex(psb_dpk_),allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act character(len=20) :: name @@ -177,9 +177,9 @@ subroutine psb_zfree_vect(x, desc_a, info) !....parameters... type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name @@ -235,9 +235,9 @@ subroutine psb_zfree_vect_r2(x, desc_a, info) !....parameters... type(psb_z_vect_type), allocatable, intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt,np,me,err_act, i + integer(psb_ipk_) :: ictxt,np,me,err_act, i character(len=20) :: name diff --git a/base/tools/psb_zins.f90 b/base/tools/psb_zins.f90 index 38fff1705..610a1d638 100644 --- a/base/tools/psb_zins.f90 +++ b/base/tools/psb_zins.f90 @@ -56,19 +56,19 @@ subroutine psb_zinsvi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:) complex(psb_dpk_),intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return @@ -188,19 +188,19 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:) type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -298,19 +298,19 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) type(psb_z_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,& + integer(psb_ipk_) :: ictxt,i,& & loc_rows,loc_cols,mglob,err_act, int_err(5), n - integer :: np, me, dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if (psb_errstatus_fatal()) return @@ -461,19 +461,19 @@ subroutine psb_zinsi(m, irw, val, x, desc_a, info, dupl) ! must be inserted !....parameters... - integer, intent(in) :: m - integer, intent(in) :: irw(:) + integer(psb_ipk_), intent(in) :: m + integer(psb_ipk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) complex(psb_dpk_),intent(inout) :: x(:,:) type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer, optional, intent(in) :: dupl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl !locals..... - integer :: ictxt,i,loc_row,j,n,& + integer(psb_ipk_) :: ictxt,i,loc_row,j,n,& & loc_rows,loc_cols,mglob,err_act, int_err(5) - integer :: np,me,dupl_ - integer, allocatable :: irl(:) + integer(psb_ipk_) :: np,me,dupl_ + integer(psb_ipk_), allocatable :: irl(:) character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index cb6e9bc25..1ad3a3207 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -48,15 +48,15 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: nnz + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz !locals - integer :: ictxt, dectype - integer :: np,me,loc_row,loc_col,& + integer(psb_ipk_) :: ictxt, dectype + integer(psb_ipk_) :: np,me,loc_row,loc_col,& & length_ia1,length_ia2, err_act,m,n - integer :: int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90 index 59b39d6a2..28c33fd04 100644 --- a/base/tools/psb_zspasb.f90 +++ b/base/tools/psb_zspasb.f90 @@ -57,16 +57,16 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold) !...Parameters.... type(psb_zspmat_type), intent (inout) :: a type(psb_desc_type), intent(in) :: desc_a - integer, intent(out) :: info - integer,optional, intent(in) :: dupl, upd + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_),optional, intent(in) :: dupl, upd character(len=*), optional, intent(in) :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: mold !....Locals.... - integer :: int_err(5) - integer :: np,me,n_col, err_act - integer :: spstate - integer :: ictxt,n_row - integer :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: np,me,n_col, err_act + integer(psb_ipk_) :: spstate + integer(psb_ipk_) :: ictxt,n_row + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_zspfree.f90 b/base/tools/psb_zspfree.f90 index a13a22c01..c90550bc5 100644 --- a/base/tools/psb_zspfree.f90 +++ b/base/tools/psb_zspfree.f90 @@ -46,9 +46,9 @@ subroutine psb_zspfree(a, desc_a,info) !....parameters... type(psb_desc_type), intent(in) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !...locals.... - integer :: ictxt, err_act + integer(psb_ipk_) :: ictxt, err_act character(len=20) :: name if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90 index 1b1491ec7..4d006b125 100644 --- a/base/tools/psb_zsphalo.F90 +++ b/base/tools/psb_zsphalo.F90 @@ -70,24 +70,24 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,& Type(psb_zspmat_type),Intent(in) :: a Type(psb_zspmat_type),Intent(inout) :: blk Type(psb_desc_type),Intent(in), target :: desc_a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, optional, intent(in) :: rowcnv,colcnv,rowscale,colscale character(len=5), optional :: outfmt - integer, intent(in), optional :: data + integer(psb_ipk_), intent(in), optional :: data ! ...local scalars.... - Integer :: np,me,counter,proc,i, & + integer(psb_ipk_) :: np,me,counter,proc,i, & & n_el_send,k,n_el_recv,ictxt, idx, r, tot_elem,& & n_elem, j, ipx,mat_recv, iszs, iszr,idxs,idxr,nz,& & irmin,icmin,irmax,icmax,data_,ngtz,totxch,nxs, nxr - Integer :: l1, icomm, err_act - Integer, allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & + integer(psb_ipk_) :: l1, icomm, err_act + integer(psb_ipk_), allocatable :: sdid(:,:), brvindx(:),rvid(:,:), & & rvsz(:), bsdindx(:),sdsz(:), iasnd(:), jasnd(:) complex(psb_dpk_), allocatable :: valsnd(:) type(psb_z_coo_sparse_mat), allocatable :: acoo - integer, pointer :: idxv(:) + integer(psb_ipk_), pointer :: idxv(:) logical :: rowcnv_,colcnv_,rowscale_,colscale_ character(len=5) :: outfmt_ - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/base/tools/psb_zspins.f90 b/base/tools/psb_zspins.f90 index cb9f3514f..dec04fb90 100644 --- a/base/tools/psb_zspins.f90 +++ b/base/tools/psb_zspins.f90 @@ -55,18 +55,18 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild) !....parameters... type(psb_desc_type), intent(inout) :: desc_a type(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: rebuild !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 + integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_ - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ @@ -201,16 +201,16 @@ subroutine psb_zspins_2desc(nz,ia,ja,val,a,desc_ar,desc_ac,info) type(psb_desc_type), intent(in) :: desc_ar type(psb_desc_type), intent(inout) :: desc_ac type(psb_zspmat_type), intent(inout) :: a - integer, intent(in) :: nz,ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz,ia(:),ja(:) complex(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals..... - integer :: nrow, err_act, ncol, spstate - integer :: ictxt,np,me + integer(psb_ipk_) :: nrow, err_act, ncol, spstate + integer(psb_ipk_) :: ictxt,np,me logical, parameter :: debug=.false. - integer, parameter :: relocsz=200 - integer, allocatable :: ila(:),jla(:) + integer(psb_ipk_), parameter :: relocsz=200 + integer(psb_ipk_), allocatable :: ila(:),jla(:) character(len=20) :: name, ch_err info = psb_success_ diff --git a/base/tools/psb_zsprn.f90 b/base/tools/psb_zsprn.f90 index 4666d79d5..15500155c 100644 --- a/base/tools/psb_zsprn.f90 +++ b/base/tools/psb_zsprn.f90 @@ -49,13 +49,13 @@ Subroutine psb_zsprn(a, desc_a,info,clear) !....Parameters... Type(psb_desc_type), intent(in) :: desc_a Type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear !locals - Integer :: ictxt,np,me,err,err_act - integer :: debug_level, debug_unit - integer :: int_err(5) + integer(psb_ipk_) :: ictxt,np,me,err,err_act + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: int_err(5) character(len=20) :: name logical :: clear_ diff --git a/krylov/psb_base_inner_krylov_mod.f90 b/krylov/psb_base_inner_krylov_mod.f90 index 72b5c6bfc..cc23514a0 100644 --- a/krylov/psb_base_inner_krylov_mod.f90 +++ b/krylov/psb_base_inner_krylov_mod.f90 @@ -41,13 +41,13 @@ Module psb_base_inner_krylov_mod module procedure psb_d_end_conv end interface - integer, parameter :: psb_ik_bni_=1, psb_ik_rni_=2, psb_ik_ani_=3 - integer, parameter :: psb_ik_xni_=4, psb_ik_bn2_=5, psb_ik_xn2_=6 - integer, parameter :: psb_ik_errnum_=7, psb_ik_errden_=8, psb_ik_eps_=9, psb_ik_rn2_=10 - integer, parameter :: psb_ik_stopc_=1, psb_ik_trace_=2, psb_ik_itmax_=3 - integer, parameter :: psb_ik_ivsz_=16 + integer(psb_ipk_), parameter :: psb_ik_bni_=1, psb_ik_rni_=2, psb_ik_ani_=3 + integer(psb_ipk_), parameter :: psb_ik_xni_=4, psb_ik_bn2_=5, psb_ik_xn2_=6 + integer(psb_ipk_), parameter :: psb_ik_errnum_=7, psb_ik_errden_=8, psb_ik_eps_=9, psb_ik_rn2_=10 + integer(psb_ipk_), parameter :: psb_ik_stopc_=1, psb_ik_trace_=2, psb_ik_itmax_=3 + integer(psb_ipk_), parameter :: psb_ik_ivsz_=16 type psb_itconv_type - integer :: controls(psb_ik_ivsz_) + integer(psb_ipk_) :: controls(psb_ik_ivsz_) real(psb_dpk_) :: values(psb_ik_ivsz_) end type psb_itconv_type @@ -58,7 +58,7 @@ contains implicit none character(len=*), intent(in) :: methdname character(len=*), parameter :: fmt='(a18,1x,a4,3(2x,a15))' - integer, parameter :: outlen=18 + integer(psb_ipk_), parameter :: outlen=18 character(len=len(methdname)) :: mname character(len=outlen) :: outname @@ -73,10 +73,10 @@ contains !use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: me, itx, itrace + integer(psb_ipk_), intent(in) :: me, itx, itrace real(psb_dpk_), intent(in) :: errnum, errden, eps character(len=*), parameter :: fmt='(a18,1x,i4,3(2x,es15.9))' - integer, parameter :: outlen=18 + integer(psb_ipk_), parameter :: outlen=18 character(len=len(methdname)) :: mname character(len=outlen) :: outname @@ -96,10 +96,10 @@ contains !use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: me, it + integer(psb_ipk_), intent(in) :: me, it real(psb_dpk_), intent(in) :: errnum, errden, eps real(psb_dpk_), optional, intent(out) :: err - integer, optional, intent(out) :: iter + integer(psb_ipk_), optional, intent(out) :: iter character(len=*), parameter :: fmt='(a,2x,es15.9,1x,a,1x,i4,1x,a)' character(len=*), parameter :: fmt1='(a,3(2x,es15.9))' @@ -134,14 +134,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info real(psb_dpk_), optional, intent(out) :: err - integer, optional, intent(out) :: iter + integer(psb_ipk_), optional, intent(out) :: iter - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act real(psb_dpk_) :: errnum, errden, eps character(len=20) :: name diff --git a/krylov/psb_c_inner_krylov_mod.f90 b/krylov/psb_c_inner_krylov_mod.f90 index 3d79e0393..3a7214eb3 100644 --- a/krylov/psb_c_inner_krylov_mod.f90 +++ b/krylov/psb_c_inner_krylov_mod.f90 @@ -52,15 +52,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace, itmax + integer(psb_ipk_), intent(in) :: stopc, trace, itmax type(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(in) :: eps type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -122,14 +122,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it complex(psb_spk_), intent(in) :: x(:), r(:) type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: psb_c_check_conv - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -197,15 +197,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_cspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: eps type(psb_c_vect_type), intent(inout) :: b type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -266,14 +266,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it type(psb_c_vect_type), intent(inout) :: x, r type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_cbicg.f90 b/krylov/psb_cbicg.f90 index d6fc06eed..2087330c2 100644 --- a/krylov/psb_cbicg.f90 +++ b/krylov/psb_cbicg.f90 @@ -107,21 +107,21 @@ subroutine psb_cbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) complex(psb_spk_), intent(in) :: b(:) complex(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) complex(psb_spk_), pointer :: ww(:), q(:),& & r(:), p(:), zt(:), pt(:), z(:), rt(:),qt(:) - integer :: int_err(5) - integer ::itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) ::itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr @@ -349,22 +349,22 @@ subroutine psb_cbicg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:) type(psb_c_vect_type), allocatable, target :: wwrk(:) type(psb_c_vect_type), pointer :: ww, q, r, p,& & zt, pt, z, rt, qt - integer :: int_err(5) - integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_ccg.f90 b/krylov/psb_ccg.f90 index 8b0790f2b..bf2ac77de 100644 --- a/krylov/psb_ccg.f90 +++ b/krylov/psb_ccg.f90 @@ -109,17 +109,17 @@ subroutine psb_ccg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data complex(psb_spk_), allocatable, target :: aux(:), wwrk(:,:) complex(psb_spk_), pointer :: q(:), p(:), r(:), z(:), w(:) complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr character(len=20) :: name @@ -297,18 +297,18 @@ subroutine psb_ccg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data complex(psb_spk_), allocatable, target :: aux(:) type(psb_c_vect_type), allocatable, target :: wwrk(:) type(psb_c_vect_type), pointer :: q, p, r, z, w complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat character(len=20) :: name diff --git a/krylov/psb_ccgs.f90 b/krylov/psb_ccgs.f90 index dc53e8293..20d1b1906 100644 --- a/krylov/psb_ccgs.f90 +++ b/krylov/psb_ccgs.f90 @@ -106,18 +106,18 @@ Subroutine psb_ccgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Complex(psb_spk_), Intent(in) :: b(:) Complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Complex(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) Complex(psb_spk_), Pointer :: ww(:), q(:),& & r(:), p(:), v(:), s(:), z(:), f(:), rt(:),qt(:),uv(:) - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr @@ -341,19 +341,19 @@ Subroutine psb_ccgs_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:) type(psb_c_vect_type), allocatable, target :: wwrk(:) type(psb_c_vect_type), pointer :: ww, q, r, p, v,& & s, z, f, rt, qt, uv - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_ccgstab.f90 b/krylov/psb_ccgstab.f90 index 47da73baa..0b3c3e027 100644 --- a/krylov/psb_ccgstab.f90 +++ b/krylov/psb_ccgstab.f90 @@ -106,19 +106,19 @@ subroutine psb_ccgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Complex(psb_spk_), Intent(in) :: b(:) Complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data Complex(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) Complex(psb_spk_), Pointer :: q(:),& & r(:), p(:), v(:), s(:), t(:), z(:), f(:) - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit - Integer :: itx, isvch, ictxt, err_act - Integer :: istop_ + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt, err_act + integer(psb_ipk_) :: istop_ complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr @@ -369,21 +369,21 @@ Subroutine psb_ccgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data complex(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) type(psb_c_vect_type) :: q, r, p, v, s, t, z, f - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. - Integer, Parameter :: irmax = 8 - Integer :: itx, isvch, ictxt, err_act, i - Integer :: istop_ + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt, err_act, i + integer(psb_ipk_) :: istop_ real(psb_dpk_) :: derr complex(psb_spk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_ccgstabl.f90 b/krylov/psb_ccgstabl.f90 index 45d84ac87..1700bd869 100644 --- a/krylov/psb_ccgstabl.f90 +++ b/krylov/psb_ccgstabl.f90 @@ -117,21 +117,21 @@ Subroutine psb_ccgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:),wwrk(:,:),uh(:,:), rh(:,:) complex(psb_spk_), Pointer :: ww(:), q(:), r(:), rt0(:), p(:), v(:), & & s(:), t(:), z(:), f(:), gamma(:), gamma1(:), gamma2(:), taum(:,:), sigma(:) - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_spk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega type(psb_itconv_type) :: stopdat @@ -426,9 +426,9 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:), gamma(:),& @@ -437,12 +437,12 @@ Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Pointer :: ww, q, r, rt0, p, v, & & s, t, z, f - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_spk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega real(psb_dpk_) :: derr diff --git a/krylov/psb_ckrylov.f90 b/krylov/psb_ckrylov.f90 index 19ebb514d..be067a1d5 100644 --- a/krylov/psb_ckrylov.f90 +++ b/krylov/psb_ckrylov.f90 @@ -90,105 +90,105 @@ Subroutine psb_ckrylov(method,a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,i complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err interface subroutine psb_ccg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: b(:) complex(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_cprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_ccg subroutine psb_cbicg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: b(:) complex(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_cprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_cbicg subroutine psb_ccgstab(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: b(:) complex(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_cprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_ccgstab Subroutine psb_ccgstabl(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_cprec_type), intent(in) :: prec complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_ccgstabl Subroutine psb_crgmres(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_cprec_type), intent(in) :: prec complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_crgmres subroutine psb_ccgs(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_spk_), intent(in) :: b(:) complex(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_cprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_ccgs end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ @@ -258,110 +258,104 @@ Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond interface subroutine psb_ccg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type,& - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err,cond end subroutine psb_ccg_vect subroutine psb_cbicg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type,& - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_cbicg_vect subroutine psb_ccgstab_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type,& - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps class(psb_cprec_type), intent(inout) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_ccgstab_vect Subroutine psb_ccgstabl_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err, itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, & - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_ccgstabl_vect Subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type,& - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_crgmres_vect subroutine psb_ccgs_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type,& - & psb_spk_, psb_c_vect_type - use psb_prec_mod, only : psb_cprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_cspmat_type, psb_cprec_type, psb_c_vect_type type(psb_cspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_ccgs_vect end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_crgmres.f90 b/krylov/psb_crgmres.f90 index 2a9b83996..a2163e4e1 100644 --- a/krylov/psb_crgmres.f90 +++ b/krylov/psb_crgmres.f90 @@ -119,21 +119,21 @@ Subroutine psb_crgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data complex(psb_spk_), allocatable, target :: aux(:),w(:),w1(:), v(:,:) complex(psb_spk_), allocatable :: c(:),s(:), h(:,:), rs(:),rst(:),xt(:) Real(psb_spk_) :: tmp complex(psb_spk_) :: rti, rti1, scal - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: rni, xni, bni, ani,bn2 real(psb_dpk_) :: errnum, errden, deps, derr character(len=20) :: name @@ -481,7 +481,7 @@ contains ! october 31, 1992 ! ! .. scalar arguments .. - integer incx, incy, n + integer(psb_ipk_) :: incx, incy, n real(psb_spk_) c complex(psb_spk_) s ! .. @@ -525,7 +525,7 @@ contains ! == = ================================================================== ! ! .. local scalars .. - integer i, ix, iy + integer(psb_ipk_) :: i, ix, iy complex(psb_dpk_) stemp ! .. ! .. intrinsic functions .. @@ -605,9 +605,9 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data complex(psb_spk_), allocatable :: aux(:) @@ -616,12 +616,12 @@ subroutine psb_crgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_c_vect_type) :: w, w1, xt real(psb_spk_) :: tmp complex(psb_spk_) :: scal, gm, rti, rti1 - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False., use_srot=.true. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: rni, xni, bni, ani,bn2, dt real(psb_dpk_) :: errnum, errden, deps, derr character(len=20) :: name @@ -978,7 +978,7 @@ contains ! october 31, 1992 ! ! .. scalar arguments .. - integer incx, incy, n + integer(psb_ipk_) :: incx, incy, n real(psb_spk_) c complex(psb_spk_) s ! .. @@ -1022,7 +1022,7 @@ contains ! == = ================================================================== ! ! .. local scalars .. - integer i, ix, iy + integer(psb_ipk_) :: i, ix, iy complex(psb_dpk_) stemp ! .. ! .. intrinsic functions .. diff --git a/krylov/psb_d_inner_krylov_mod.f90 b/krylov/psb_d_inner_krylov_mod.f90 index 5c8b853ca..0fa72a516 100644 --- a/krylov/psb_d_inner_krylov_mod.f90 +++ b/krylov/psb_d_inner_krylov_mod.f90 @@ -53,14 +53,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: b(:), eps type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -120,14 +120,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it real(psb_dpk_), intent(in) :: x(:), r(:) type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -195,15 +195,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: eps type(psb_d_vect_type), intent(inout) :: b type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -264,14 +264,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it type(psb_d_vect_type), intent(inout) :: x, r type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_dbicg.f90 b/krylov/psb_dbicg.f90 index 4e9337619..79f03b957 100644 --- a/krylov/psb_dbicg.f90 +++ b/krylov/psb_dbicg.f90 @@ -107,21 +107,21 @@ !!$ real(psb_dpk_), intent(in) :: b(:) !!$ real(psb_dpk_), intent(inout) :: x(:) !!$ real(psb_dpk_), intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ integer, optional, intent(in) :: itmax, itrace, istop -!!$ integer, optional, intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop +!!$ integer(psb_ipk_), optional, intent(out) :: iter !!$ real(psb_dpk_), optional, intent(out) :: err !!$! !$ local data !!$ real(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) !!$ real(psb_dpk_), pointer :: ww(:), q(:),& !!$ & r(:), p(:), zt(:), pt(:), z(:), rt(:),qt(:) -!!$ integer :: int_err(5) -!!$ integer ::itmax_, naux, mglob, it, itrace_,& +!!$ integer(psb_ipk_) :: int_err(5) +!!$ integer(psb_ipk_) ::itmax_, naux, mglob, it, itrace_,& !!$ & np,me, n_row, n_col, istop_, err_act -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ logical, parameter :: exchange=.true., noexchange=.false. -!!$ integer, parameter :: irmax = 8 -!!$ integer :: itx, isvch, ictxt +!!$ integer(psb_ipk_), parameter :: irmax = 8 +!!$ integer(psb_ipk_) :: itx, isvch, ictxt !!$ real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma !!$ type(psb_itconv_type) :: stopdat !!$ character(len=20) :: name,ch_err @@ -342,22 +342,22 @@ subroutine psb_dbicg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err !!$ local data real(psb_dpk_), allocatable, target :: aux(:) type(psb_d_vect_type), allocatable, target :: wwrk(:) type(psb_d_vect_type), pointer :: ww, q, r, p,& & zt, pt, z, rt, qt - integer :: int_err(5) - integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat character(len=20) :: name,ch_err diff --git a/krylov/psb_dcg.F90 b/krylov/psb_dcg.F90 index a6a4a7583..c9d874af5 100644 --- a/krylov/psb_dcg.F90 +++ b/krylov/psb_dcg.F90 @@ -107,19 +107,19 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err,cond !!$! !$ Local data !!$ real(psb_dpk_), allocatable, target :: aux(:), wwrk(:,:),& !!$ & td(:),tu(:),eig(:),ewrk(:) -!!$ integer, allocatable :: ibl(:), ispl(:), iwrk(:) +!!$ integer(psb_ipk_), allocatable :: ibl(:), ispl(:), iwrk(:) !!$ real(psb_dpk_), pointer :: q(:), p(:), r(:), z(:), w(:) !!$ real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old -!!$ integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& +!!$ integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& !!$ & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ type(psb_itconv_type) :: stopdat !!$ logical :: do_cond !!$ character(len=20) :: name @@ -334,19 +334,19 @@ subroutine psb_dcg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond !!$ Local data real(psb_dpk_), allocatable, target :: aux(:), td(:),tu(:),eig(:),ewrk(:) - integer, allocatable :: ibl(:), ispl(:), iwrk(:) + integer(psb_ipk_), allocatable :: ibl(:), ispl(:), iwrk(:) type(psb_d_vect_type), allocatable, target :: wwrk(:) type(psb_d_vect_type), pointer :: q, p, r, z, w real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit type(psb_itconv_type) :: stopdat logical :: do_cond character(len=20) :: name diff --git a/krylov/psb_dcgs.f90 b/krylov/psb_dcgs.f90 index 69c90f113..bdee82dd1 100644 --- a/krylov/psb_dcgs.f90 +++ b/krylov/psb_dcgs.f90 @@ -106,18 +106,18 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$! !$ local data !!$ Real(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) !!$ Real(psb_dpk_), Pointer :: ww(:), q(:),& !!$ & r(:), p(:), v(:), s(:), z(:), f(:), rt(:),qt(:),uv(:) -!!$ Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& +!!$ integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& !!$ & np,me, n_row, n_col,istop_, err_act -!!$ Integer :: itx, isvch, ictxt -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_) :: itx, isvch, ictxt +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ Real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma !!$ type(psb_itconv_type) :: stopdat !!$ character(len=20) :: name @@ -335,19 +335,19 @@ Subroutine psb_dcgs_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data Real(psb_dpk_), allocatable, target :: aux(:) type(psb_d_vect_type), allocatable, target :: wwrk(:) type(psb_d_vect_type), pointer :: ww, q, r, p, v,& & s, z, f, rt, qt, uv - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat character(len=20) :: name diff --git a/krylov/psb_dcgstab.F90 b/krylov/psb_dcgstab.F90 index 40f2aa5cf..c05e438e5 100644 --- a/krylov/psb_dcgstab.F90 +++ b/krylov/psb_dcgstab.F90 @@ -107,21 +107,21 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$! !$ Local data !!$ Real(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) !!$ Real(psb_dpk_), Pointer :: q(:),& !!$ & r(:), p(:), v(:), s(:), t(:), z(:), f(:) -!!$ Integer :: itmax_, naux, mglob, it,itrace_,& +!!$ integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& !!$ & np,me, n_row, n_col -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. -!!$ Integer, Parameter :: irmax = 8 -!!$ Integer :: itx, isvch, ictxt, err_act, i -!!$ Integer :: istop_ +!!$ integer(psb_ipk_), Parameter :: irmax = 8 +!!$ integer(psb_ipk_) :: itx, isvch, ictxt, err_act, i +!!$ integer(psb_ipk_) :: istop_ !!$ Real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma, omega, tau !!$ type(psb_itconv_type) :: stopdat !!$ @@ -436,21 +436,21 @@ Subroutine psb_dcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ Local data Real(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) type(psb_d_vect_type) :: q, r, p, v, s, t, z, f - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. - Integer, Parameter :: irmax = 8 - Integer :: itx, isvch, ictxt, err_act, i - Integer :: istop_ + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt, err_act, i + integer(psb_ipk_) :: istop_ Real(psb_dpk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat real(psb_dpk_), external :: ddot diff --git a/krylov/psb_dcgstabl.f90 b/krylov/psb_dcgstabl.f90 index 05fb8444f..b79dbd883 100644 --- a/krylov/psb_dcgstabl.f90 +++ b/krylov/psb_dcgstabl.f90 @@ -117,9 +117,9 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, irst,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$! !$ local data !!$ Real(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:),uh(:,:), rh(:,:),& @@ -127,12 +127,12 @@ !!$ Real(psb_dpk_), Pointer :: ww(:), q(:), r(:), rt0(:), p(:), v(:), & !!$ & s(:), t(:), z(:), f(:) !!$ -!!$ Integer :: itmax_, naux, mglob, it, itrace_,& +!!$ integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& !!$ & np,me, n_row, n_col, nl, err_act !!$ Logical, Parameter :: exchange=.True., noexchange=.False. -!!$ Integer, Parameter :: irmax = 8 -!!$ Integer :: itx, i, isvch, ictxt,istop_,j, int_err(5) -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_), Parameter :: irmax = 8 +!!$ integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, int_err(5) +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ Real(psb_dpk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& !!$ & omega !!$ type(psb_itconv_type) :: stopdat @@ -420,9 +420,9 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data Real(psb_dpk_), allocatable, target :: aux(:), gamma(:),& @@ -431,12 +431,12 @@ Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Pointer :: ww, q, r, rt0, p, v, & & s, t, z, f - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_dkrylov.f90 b/krylov/psb_dkrylov.f90 index 57b71ab4e..c0df9acd9 100644 --- a/krylov/psb_dkrylov.f90 +++ b/krylov/psb_dkrylov.f90 @@ -91,9 +91,9 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, irst,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err,cond !!$ !!$ interface @@ -107,9 +107,9 @@ !!$ real(psb_dpk_), intent(inout) :: x(:) !!$ real(psb_dpk_), intent(in) :: eps !!$ class(psb_dprec_type), intent(in) :: prec -!!$ integer, intent(out) :: info -!!$ integer, optional, intent(in) :: itmax, itrace,istop -!!$ integer, optional, intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop +!!$ integer(psb_ipk_), optional, intent(out) :: iter !!$ real(psb_dpk_), optional, intent(out) :: err,cond !!$ end subroutine psb_dcg !!$ subroutine psb_dbicg(a,prec,b,x,eps,& @@ -122,9 +122,9 @@ !!$ real(psb_dpk_), intent(inout) :: x(:) !!$ real(psb_dpk_), intent(in) :: eps !!$ class(psb_dprec_type), intent(in) :: prec -!!$ integer, intent(out) :: info -!!$ integer, optional, intent(in) :: itmax, itrace,istop -!!$ integer, optional, intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop +!!$ integer(psb_ipk_), optional, intent(out) :: iter !!$ real(psb_dpk_), optional, intent(out) :: err !!$ end subroutine psb_dbicg !!$ subroutine psb_dcgstab(a,prec,b,x,eps,& @@ -137,9 +137,9 @@ !!$ real(psb_dpk_), intent(inout) :: x(:) !!$ real(psb_dpk_), intent(in) :: eps !!$ class(psb_dprec_type), intent(in) :: prec -!!$ integer, intent(out) :: info -!!$ integer, optional, intent(in) :: itmax, itrace,istop -!!$ integer, optional, intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop +!!$ integer(psb_ipk_), optional, intent(out) :: iter !!$ real(psb_dpk_), optional, intent(out) :: err !!$ end subroutine psb_dcgstab !!$ Subroutine psb_dcgstabl(a,prec,b,x,eps,desc_a,info,& @@ -152,9 +152,9 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, irst,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$ end subroutine psb_dcgstabl !!$ Subroutine psb_drgmres(a,prec,b,x,eps,desc_a,info,& @@ -167,9 +167,9 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, irst,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$ end subroutine psb_drgmres !!$ subroutine psb_dcgs(a,prec,b,x,eps,desc_a,info,& @@ -182,13 +182,13 @@ !!$ real(psb_dpk_), intent(in) :: b(:) !!$ real(psb_dpk_), intent(inout) :: x(:) !!$ real(psb_dpk_), intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ integer, optional, intent(in) :: itmax, itrace,istop -!!$ integer, optional, intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop +!!$ integer(psb_ipk_), optional, intent(out) :: iter !!$ real(psb_dpk_), optional, intent(out) :: err !!$ end subroutine psb_dcgs !!$ end interface -!!$ integer :: ictxt,me,np,err_act +!!$ integer(psb_ipk_) :: ictxt,me,np,err_act !!$ character(len=20) :: name !!$ !!$ info = psb_success_ @@ -258,110 +258,104 @@ Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond interface subroutine psb_dcg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type,& - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err,cond end subroutine psb_dcg_vect subroutine psb_dbicg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type,& - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_dbicg_vect subroutine psb_dcgstab_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type,& - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps class(psb_dprec_type), intent(inout) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_dcgstab_vect Subroutine psb_dcgstabl_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err, itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type, & - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type Type(psb_dspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_dcgstabl_vect Subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type,& - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type Type(psb_dspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_drgmres_vect subroutine psb_dcgs_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type,& - & psb_dpk_, psb_d_vect_type - use psb_prec_mod, only : psb_dprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_dspmat_type, psb_dprec_type, psb_d_vect_type type(psb_dspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_dcgs_vect end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_drgmres.f90 b/krylov/psb_drgmres.f90 index fb55f800f..a4d079de3 100644 --- a/krylov/psb_drgmres.f90 +++ b/krylov/psb_drgmres.f90 @@ -120,20 +120,20 @@ !!$ Real(psb_dpk_), Intent(in) :: b(:) !!$ Real(psb_dpk_), Intent(inout) :: x(:) !!$ Real(psb_dpk_), Intent(in) :: eps -!!$ integer, intent(out) :: info -!!$ Integer, Optional, Intent(in) :: itmax, itrace, irst,istop -!!$ Integer, Optional, Intent(out) :: iter +!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop +!!$ integer(psb_ipk_), Optional, Intent(out) :: iter !!$ Real(psb_dpk_), Optional, Intent(out) :: err !!$! !$ local data !!$ Real(psb_dpk_), allocatable, target :: aux(:),w(:),w1(:), v(:,:) !!$ Real(psb_dpk_), allocatable :: c(:),s(:), h(:,:), rs(:),rst(:),xt(:) !!$ Real(psb_dpk_) :: scal, gm, rti, rti1 -!!$ Integer ::litmax, naux, mglob, it,k, itrace_,& +!!$ integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& !!$ & np,me, n_row, n_col, nl, int_err(5) !!$ Logical, Parameter :: exchange=.True., noexchange=.False., use_drot=.true. -!!$ Integer, Parameter :: irmax = 8 -!!$ Integer :: itx, i, isvch, ictxt,istop_, err_act -!!$ integer :: debug_level, debug_unit +!!$ integer(psb_ipk_), Parameter :: irmax = 8 +!!$ integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act +!!$ integer(psb_ipk_) :: debug_level, debug_unit !!$ Real(psb_dpk_) :: rni, xni, bni, ani,bn2, dt !!$ real(psb_dpk_), external :: dnrm2 !!$ real(psb_dpk_) :: errnum, errden @@ -480,9 +480,9 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data Real(psb_dpk_), allocatable :: aux(:) @@ -490,12 +490,12 @@ subroutine psb_drgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_d_vect_type), allocatable :: v(:) type(psb_d_vect_type) :: w, w1, xt Real(psb_dpk_) :: scal, gm, rti, rti1 - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False., use_drot=.true. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: rni, xni, bni, ani,bn2, dt real(psb_dpk_), external :: dnrm2 real(psb_dpk_) :: errnum, errden diff --git a/krylov/psb_krylov_mod.f90 b/krylov/psb_krylov_mod.f90 index 20ace1bc1..12327c9bf 100644 --- a/krylov/psb_krylov_mod.f90 +++ b/krylov/psb_krylov_mod.f90 @@ -42,7 +42,7 @@ Module psb_krylov_mod Subroutine psb_skrylov(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_ use psb_prec_mod,only : psb_sprec_type character(len=*) :: method @@ -52,17 +52,17 @@ Module psb_krylov_mod Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond end Subroutine psb_skrylov Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, & + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_sspmat_type, & & psb_spk_, psb_s_vect_type - use psb_prec_mod,only : psb_sprec_type + use psb_prec_mod, only : psb_sprec_type character(len=*) :: method Type(psb_sspmat_type), Intent(in) :: a @@ -71,16 +71,16 @@ Module psb_krylov_mod type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond end Subroutine psb_skrylov_vect Subroutine psb_ckrylov(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_ - use psb_prec_mod,only : psb_cprec_type + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_ + use psb_prec_mod, only : psb_cprec_type character(len=*) :: method Type(psb_cspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a @@ -88,17 +88,17 @@ Module psb_krylov_mod complex(psb_spk_), Intent(in) :: b(:) complex(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end Subroutine psb_ckrylov Subroutine psb_ckrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_cspmat_type, & + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_cspmat_type, & & psb_spk_, psb_c_vect_type - use psb_prec_mod,only : psb_cprec_type + use psb_prec_mod, only : psb_cprec_type character(len=*) :: method Type(psb_cspmat_type), Intent(in) :: a @@ -107,17 +107,17 @@ Module psb_krylov_mod type(psb_c_vect_type), Intent(inout) :: b type(psb_c_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond end Subroutine psb_ckrylov_vect Subroutine psb_dkrylov(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type, psb_dpk_ - use psb_prec_mod,only : psb_dprec_type + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_ + use psb_prec_mod, only : psb_dprec_type character(len=*) :: method Type(psb_dspmat_type), Intent(in) :: a @@ -126,18 +126,18 @@ Module psb_krylov_mod Real(psb_dpk_), Intent(in) :: b(:) Real(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond end Subroutine psb_dkrylov Subroutine psb_dkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_dspmat_type, & + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_dspmat_type, & & psb_dpk_, psb_d_vect_type - use psb_prec_mod,only : psb_dprec_type + use psb_prec_mod, only : psb_dprec_type character(len=*) :: method Type(psb_dspmat_type), Intent(in) :: a @@ -146,16 +146,16 @@ Module psb_krylov_mod type(psb_d_vect_type), Intent(inout) :: b type(psb_d_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond end Subroutine psb_dkrylov_vect Subroutine psb_zkrylov(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod,only : psb_zprec_type + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_ + use psb_prec_mod, only : psb_zprec_type character(len=*) :: method Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a @@ -163,17 +163,17 @@ Module psb_krylov_mod complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end Subroutine psb_zkrylov Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& & itmax,iter,err,itrace,irst,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, & + use psb_base_mod, only : psb_ipk_, psb_desc_type, psb_zspmat_type, & & psb_dpk_, psb_z_vect_type - use psb_prec_mod,only : psb_zprec_type + use psb_prec_mod, only : psb_zprec_type character(len=*) :: method Type(psb_zspmat_type), Intent(in) :: a @@ -182,9 +182,9 @@ Module psb_krylov_mod type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond end Subroutine psb_zkrylov_vect diff --git a/krylov/psb_s_inner_krylov_mod.f90 b/krylov/psb_s_inner_krylov_mod.f90 index 79294f7b9..c9c0b1fe8 100644 --- a/krylov/psb_s_inner_krylov_mod.f90 +++ b/krylov/psb_s_inner_krylov_mod.f90 @@ -53,14 +53,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: b(:), eps type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -120,14 +120,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it real(psb_spk_), intent(in) :: x(:), r(:) type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -194,15 +194,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: eps type(psb_s_vect_type), intent(inout) :: b type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -263,14 +263,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it type(psb_s_vect_type), intent(inout) :: x, r type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_sbicg.f90 b/krylov/psb_sbicg.f90 index a2aff0d21..b4b319405 100644 --- a/krylov/psb_sbicg.f90 +++ b/krylov/psb_sbicg.f90 @@ -108,21 +108,21 @@ subroutine psb_sbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) real(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err !!$ local data real(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) real(psb_spk_), pointer :: ww(:), q(:),& & r(:), p(:), zt(:), pt(:), z(:), rt(:),qt(:) - integer :: int_err(5) - integer ::itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) ::itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt real(psb_spk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr @@ -345,22 +345,22 @@ subroutine psb_sbicg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err !!$ local data real(psb_spk_), allocatable, target :: aux(:) type(psb_s_vect_type), allocatable, target :: wwrk(:) type(psb_s_vect_type), pointer :: ww, q, r, p,& & zt, pt, z, rt, qt - integer :: int_err(5) - integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt real(psb_spk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_scg.F90 b/krylov/psb_scg.F90 index 112601698..97015952b 100644 --- a/krylov/psb_scg.F90 +++ b/krylov/psb_scg.F90 @@ -109,19 +109,19 @@ subroutine psb_scg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop,cond) Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond !!$ Local data real(psb_spk_), allocatable, target :: aux(:), wwrk(:,:), td(:),tu(:),eig(:),ewrk(:) - integer, allocatable :: ibl(:), ispl(:), iwrk(:) + integer(psb_ipk_), allocatable :: ibl(:), ispl(:), iwrk(:) real(psb_spk_), pointer :: q(:), p(:), r(:), z(:), w(:) real(psb_spk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz real(psb_dpk_) :: derr - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit type(psb_itconv_type) :: stopdat logical :: do_cond character(len=20) :: name @@ -339,19 +339,19 @@ subroutine psb_scg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond !!$ Local data real(psb_spk_), allocatable, target :: aux(:), td(:),tu(:),eig(:),ewrk(:) - integer, allocatable :: ibl(:), ispl(:), iwrk(:) + integer(psb_ipk_), allocatable :: ibl(:), ispl(:), iwrk(:) type(psb_s_vect_type), allocatable, target :: wwrk(:) type(psb_s_vect_type), pointer :: q, p, r, z, w real(psb_spk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat logical :: do_cond diff --git a/krylov/psb_scgs.f90 b/krylov/psb_scgs.f90 index 15ed66c3e..b47595988 100644 --- a/krylov/psb_scgs.f90 +++ b/krylov/psb_scgs.f90 @@ -108,18 +108,18 @@ Subroutine psb_scgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) Real(psb_spk_), Pointer :: ww(:), q(:),& & r(:), p(:), v(:), s(:), z(:), f(:), rt(:),qt(:),uv(:) - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat real(psb_dpk_) :: derr @@ -342,19 +342,19 @@ Subroutine psb_scgs_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable, target :: aux(:) type(psb_s_vect_type), allocatable, target :: wwrk(:) type(psb_s_vect_type), pointer :: ww, q, r, p, v,& & s, z, f, rt, qt, uv - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_scgstab.F90 b/krylov/psb_scgstab.F90 index f0dd8db03..0f6f4f250 100644 --- a/krylov/psb_scgstab.F90 +++ b/krylov/psb_scgstab.F90 @@ -107,29 +107,29 @@ Subroutine psb_scgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data Real(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) Real(psb_spk_), Pointer :: q(:),& & r(:), p(:), v(:), s(:), t(:), z(:), f(:) - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. - Integer, Parameter :: irmax = 8 - Integer :: itx, isvch, ictxt, err_act - Integer :: istop_ + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt, err_act + integer(psb_ipk_) :: istop_ real(psb_dpk_) :: derr Real(psb_spk_) :: alpha, beta, omega Real(psb_spk_) :: rho, rho_old, sigma, tau type(psb_itconv_type) :: stopdat #ifdef MPE_KRYLOV - Integer istpb, istpe, ifctb, ifcte, imerr, irank, icomm,immb,imme - Integer mpe_log_get_event_number,mpe_Describe_state,mpe_log_event + Integer(psb_ipk_) :: istpb, istpe, ifctb, ifcte, imerr, irank, icomm,immb,imme + Integer(psb_ipk_) :: mpe_log_get_event_number,mpe_Describe_state,mpe_log_event #endif character(len=20) :: name character(len=*), parameter :: methdname='BiCGStab' @@ -417,9 +417,9 @@ Subroutine psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ Local data Real(psb_spk_), allocatable, target :: aux(:),wwrk(:,:) @@ -427,13 +427,13 @@ Subroutine psb_scgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist !!$ & r(:), p(:), v(:), s(:), t(:), z(:), f(:) type(psb_s_vect_type) :: q, r, p, v, s, t, z, f - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. - Integer, Parameter :: irmax = 8 - Integer :: itx, isvch, ictxt, err_act, i - Integer :: istop_ + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt, err_act, i + integer(psb_ipk_) :: istop_ real(psb_dpk_) :: derr Real(psb_spk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_scgstabl.f90 b/krylov/psb_scgstabl.f90 index c4434a168..722966c73 100644 --- a/krylov/psb_scgstabl.f90 +++ b/krylov/psb_scgstabl.f90 @@ -117,21 +117,21 @@ Subroutine psb_scgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable, target :: aux(:),wwrk(:,:),uh(:,:), rh(:,:) Real(psb_spk_), Pointer :: ww(:), q(:), r(:), rt0(:), p(:), v(:), & & s(:), t(:), z(:), f(:), gamma(:), gamma1(:), gamma2(:), taum(:,:), sigma(:) - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega type(psb_itconv_type) :: stopdat @@ -424,9 +424,9 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable, target :: aux(:), gamma(:),& @@ -435,12 +435,12 @@ Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Pointer :: ww, q, r, rt0, p, v, & & s, t, z, f - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega real(psb_dpk_) :: derr diff --git a/krylov/psb_skrylov.f90 b/krylov/psb_skrylov.f90 index 68d69a2fe..dae5f32db 100644 --- a/krylov/psb_skrylov.f90 +++ b/krylov/psb_skrylov.f90 @@ -88,108 +88,109 @@ Subroutine psb_skrylov(method,a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,i Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond + interface subroutine psb_scg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_sprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err,cond end subroutine psb_scg subroutine psb_sbicg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_sprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_sbicg subroutine psb_scgstab(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a real(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps class(psb_sprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_scgstab Subroutine psb_scgstabl(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err, itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_sprec_type), intent(in) :: prec Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_scgstabl Subroutine psb_srgmres(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_sprec_type), intent(in) :: prec Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_srgmres subroutine psb_scgs(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_ - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_sprec_type), intent(in) :: prec real(psb_spk_), intent(in) :: b(:) real(psb_spk_), intent(inout) :: x(:) real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_scgs end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name @@ -259,110 +260,104 @@ Subroutine psb_skrylov_vect(method,a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err,cond interface subroutine psb_scg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type,& - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err,cond end subroutine psb_scg_vect subroutine psb_sbicg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type,& - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_sbicg_vect subroutine psb_scgstab_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type,& - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps class(psb_sprec_type), intent(inout) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_scgstab_vect Subroutine psb_scgstabl_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err, itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type, & - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_scgstabl_vect Subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type,& - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type Type(psb_sspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err end subroutine psb_srgmres_vect subroutine psb_scgs_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_sspmat_type,& - & psb_spk_, psb_s_vect_type - use psb_prec_mod, only : psb_sprec_type + import :: psb_ipk_, psb_spk_, psb_desc_type, & + & psb_sspmat_type, psb_sprec_type, psb_s_vect_type type(psb_sspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x real(psb_spk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_spk_), optional, intent(out) :: err end subroutine psb_scgs_vect end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_srgmres.f90 b/krylov/psb_srgmres.f90 index 97b28ee5b..f6895c00e 100644 --- a/krylov/psb_srgmres.f90 +++ b/krylov/psb_srgmres.f90 @@ -120,20 +120,20 @@ subroutine psb_srgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist Real(psb_spk_), Intent(in) :: b(:) Real(psb_spk_), Intent(inout) :: x(:) Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable, target :: aux(:),w(:),w1(:), v(:,:) Real(psb_spk_), allocatable :: c(:),s(:), h(:,:), rs(:),rst(:),xt(:) Real(psb_spk_) :: scal, gm, rti, rti1 - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: rni, xni, bni, ani,bn2, dt real(psb_dpk_) :: errnum, errden, deps, derr character(len=20) :: name @@ -501,9 +501,9 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), Intent(inout) :: b type(psb_s_vect_type), Intent(inout) :: x Real(psb_spk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_spk_), Optional, Intent(out) :: err !!$ local data Real(psb_spk_), allocatable :: aux(:) @@ -511,12 +511,12 @@ subroutine psb_srgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_s_vect_type), allocatable :: v(:) type(psb_s_vect_type) :: w, w1, xt Real(psb_spk_) :: scal, gm, rti, rti1 - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False., use_srot=.true. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_spk_) :: rni, xni, bni, ani,bn2, dt real(psb_dpk_) :: errnum, errden, deps, derr character(len=20) :: name diff --git a/krylov/psb_z_inner_krylov_mod.f90 b/krylov/psb_z_inner_krylov_mod.f90 index 0902c1328..e5439b672 100644 --- a/krylov/psb_z_inner_krylov_mod.f90 +++ b/krylov/psb_z_inner_krylov_mod.f90 @@ -55,15 +55,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace, itmax + integer(psb_ipk_), intent(in) :: stopc, trace, itmax type(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: b(:) real(psb_dpk_), intent(in) :: eps type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -124,14 +124,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it complex(psb_dpk_), intent(in) :: x(:), r(:) type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: psb_z_check_conv - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -199,15 +199,15 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: stopc, trace,itmax + integer(psb_ipk_), intent(in) :: stopc, trace,itmax type(psb_zspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: eps type(psb_z_vect_type), intent(inout) :: b type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ @@ -268,14 +268,14 @@ contains use psb_base_mod implicit none character(len=*), intent(in) :: methdname - integer, intent(in) :: it + integer(psb_ipk_), intent(in) :: it type(psb_z_vect_type), intent(inout) :: x, r type(psb_desc_type), intent(in) :: desc_a type(psb_itconv_type) :: stopdat logical :: res - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: ictxt, me, np, err_act + integer(psb_ipk_) :: ictxt, me, np, err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_zbicg.f90 b/krylov/psb_zbicg.f90 index a487ac5f3..7bc74c1b8 100644 --- a/krylov/psb_zbicg.f90 +++ b/krylov/psb_zbicg.f90 @@ -107,21 +107,21 @@ subroutine psb_zbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) complex(psb_dpk_), intent(in) :: b(:) complex(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) complex(psb_dpk_), pointer :: ww(:), q(:),& & r(:), p(:), zt(:), pt(:), z(:), rt(:),qt(:) - integer :: int_err(5) - integer ::itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) ::itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat character(len=20) :: name,ch_err @@ -343,22 +343,22 @@ subroutine psb_zbicg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace, istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace, istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:) type(psb_z_vect_type), allocatable, target :: wwrk(:) type(psb_z_vect_type), pointer :: ww, q, r, p,& & zt, pt, z, rt, qt - integer :: int_err(5) - integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: int_err(5) + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit logical, parameter :: exchange=.true., noexchange=.false. - integer, parameter :: irmax = 8 - integer :: itx, isvch, ictxt + integer(psb_ipk_), parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_zcg.F90 b/krylov/psb_zcg.F90 index e59c16d1c..ecdbe90c5 100644 --- a/krylov/psb_zcg.F90 +++ b/krylov/psb_zcg.F90 @@ -109,17 +109,17 @@ subroutine psb_zcg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ Local data complex(psb_dpk_), allocatable, target :: aux(:), wwrk(:,:) complex(psb_dpk_), pointer :: q(:), p(:), r(:), z(:), w(:) complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit type(psb_itconv_type) :: stopdat character(len=20) :: name character(len=*), parameter :: methdname='CG' @@ -293,18 +293,18 @@ subroutine psb_zcg_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ Local data complex(psb_dpk_), allocatable, target :: aux(:) type(psb_z_vect_type), allocatable, target :: wwrk(:) type(psb_z_vect_type), pointer :: q, p, r, z, w complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma,alpha_old,beta_old - integer :: itmax_, istop_, naux, mglob, it, itx, itrace_,& + integer(psb_ipk_) :: itmax_, istop_, naux, mglob, it, itx, itrace_,& & np,me, n_col, isvch, ictxt, n_row,err_act, int_err(5), ieg,nspl, istebz - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat character(len=20) :: name diff --git a/krylov/psb_zcgs.f90 b/krylov/psb_zcgs.f90 index b1248a2c4..729ba908c 100644 --- a/krylov/psb_zcgs.f90 +++ b/krylov/psb_zcgs.f90 @@ -106,18 +106,18 @@ Subroutine psb_zcgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Complex(psb_dpk_), Intent(in) :: b(:) Complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data Complex(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) Complex(psb_dpk_), Pointer :: ww(:), q(:),& & r(:), p(:), v(:), s(:), z(:), f(:), rt(:),qt(:),uv(:) - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma type(psb_itconv_type) :: stopdat character(len=20) :: name @@ -335,19 +335,19 @@ Subroutine psb_zcgs_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:) type(psb_z_vect_type), allocatable, target :: wwrk(:) type(psb_z_vect_type), pointer :: ww, q, r, p, v,& & s, z, f, rt, qt, uv - Integer :: itmax_, naux, mglob, it, itrace_,int_err(5),& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,int_err(5),& & np,me, n_row, n_col,istop_, err_act - Integer :: itx, isvch, ictxt - integer :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma real(psb_dpk_) :: derr type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_zcgstab.f90 b/krylov/psb_zcgstab.f90 index 6104be4c8..24e19824c 100644 --- a/krylov/psb_zcgstab.f90 +++ b/krylov/psb_zcgstab.f90 @@ -106,19 +106,19 @@ subroutine psb_zcgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop) Complex(psb_dpk_), Intent(in) :: b(:) Complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ Local data Complex(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) Complex(psb_dpk_), Pointer :: q(:),& & r(:), p(:), v(:), s(:), t(:), z(:), f(:) - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit - Integer :: itx, isvch, ictxt, err_act - Integer :: istop_ + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_ipk_) :: itx, isvch, ictxt, err_act + integer(psb_ipk_) :: istop_ complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat !!$ Integer istpb, istpe, ifctb, ifcte, imerr, irank, icomm,immb,imme @@ -364,21 +364,21 @@ Subroutine psb_zcgstab_vect(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,ist type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ Local data complex(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:) type(psb_z_vect_type) :: q, r, p, v, s, t, z, f - Integer :: itmax_, naux, mglob, it,itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it,itrace_,& & np,me, n_row, n_col - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit Logical, Parameter :: exchange=.True., noexchange=.False., debug1 = .False. - Integer, Parameter :: irmax = 8 - Integer :: itx, isvch, ictxt, err_act, i - Integer :: istop_ + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, isvch, ictxt, err_act, i + integer(psb_ipk_) :: istop_ real(psb_dpk_) :: derr complex(psb_dpk_) :: alpha, beta, rho, rho_old, sigma, omega, tau type(psb_itconv_type) :: stopdat diff --git a/krylov/psb_zcgstabl.f90 b/krylov/psb_zcgstabl.f90 index 991cba4ca..1c57e6dbf 100644 --- a/krylov/psb_zcgstabl.f90 +++ b/krylov/psb_zcgstabl.f90 @@ -117,21 +117,21 @@ Subroutine psb_zcgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:),wwrk(:,:),uh(:,:), rh(:,:) complex(psb_dpk_), Pointer :: ww(:), q(:), r(:), rt0(:), p(:), v(:), & & s(:), t(:), z(:), f(:), gamma(:), gamma1(:), gamma2(:), taum(:,:), sigma(:) - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_dpk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega type(psb_itconv_type) :: stopdat @@ -421,9 +421,9 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:), gamma(:),& @@ -432,12 +432,12 @@ Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Pointer :: ww, q, r, rt0, p, v, & & s, t, z, f - Integer :: itmax_, naux, mglob, it, itrace_,& + integer(psb_ipk_) :: itmax_, naux, mglob, it, itrace_,& & np,me, n_row, n_col, nl, err_act Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_,j, k, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit complex(psb_dpk_) :: alpha, beta, rho, rho_old, rni, xni, bni, ani,bn2,& & omega real(psb_dpk_) :: derr diff --git a/krylov/psb_zkrylov.f90 b/krylov/psb_zkrylov.f90 index 46222c544..d8edad315 100644 --- a/krylov/psb_zkrylov.f90 +++ b/krylov/psb_zkrylov.f90 @@ -89,105 +89,105 @@ Subroutine psb_zkrylov(method,a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,i complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err interface subroutine psb_zcg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: b(:) complex(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(in) :: eps class(psb_zprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zcg subroutine psb_zbicg(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: b(:) complex(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(in) :: eps class(psb_zprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zbicg subroutine psb_zcgstab(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: b(:) complex(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(in) :: eps class(psb_zprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zcgstab Subroutine psb_zcgstabl(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_zcgstabl Subroutine psb_zrgmres(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_zrgmres subroutine psb_zcgs(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_ - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a complex(psb_dpk_), intent(in) :: b(:) complex(psb_dpk_), intent(inout) :: x(:) real(psb_dpk_), intent(in) :: eps class(psb_zprec_type), intent(in) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zcgs end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ @@ -258,110 +258,104 @@ Subroutine psb_zkrylov_vect(method,a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err,cond interface subroutine psb_zcg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop,cond) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type,& - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err,cond end subroutine psb_zcg_vect subroutine psb_zbicg_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type,& - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zbicg_vect subroutine psb_zcgstab_vect(a,prec,b,x,eps,& & desc_a,info,itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type,& - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps class(psb_zprec_type), intent(inout) :: prec - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zcgstab_vect Subroutine psb_zcgstabl_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err, itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type, & - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_zcgstabl_vect Subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,irst,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type,& - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type Type(psb_zspmat_type), Intent(in) :: a Type(psb_desc_type), Intent(in) :: desc_a class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err end subroutine psb_zrgmres_vect subroutine psb_zcgs_vect(a,prec,b,x,eps,desc_a,info,& &itmax,iter,err,itrace,istop) - use psb_base_mod, only : psb_desc_type, psb_zspmat_type,& - & psb_dpk_, psb_z_vect_type - use psb_prec_mod, only : psb_zprec_type + import :: psb_ipk_, psb_dpk_, psb_desc_type, & + & psb_zspmat_type, psb_zprec_type, psb_z_vect_type type(psb_zspmat_type), intent(in) :: a type(psb_desc_type), intent(in) :: desc_a class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x real(psb_dpk_), intent(in) :: eps - integer, intent(out) :: info - integer, optional, intent(in) :: itmax, itrace,istop - integer, optional, intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: itmax, itrace,istop + integer(psb_ipk_), optional, intent(out) :: iter real(psb_dpk_), optional, intent(out) :: err end subroutine psb_zcgs_vect end interface - integer :: ictxt,me,np,err_act + integer(psb_ipk_) :: ictxt,me,np,err_act character(len=20) :: name info = psb_success_ diff --git a/krylov/psb_zrgmres.f90 b/krylov/psb_zrgmres.f90 index 8c91a72dc..1667e72e5 100644 --- a/krylov/psb_zrgmres.f90 +++ b/krylov/psb_zrgmres.f90 @@ -119,21 +119,21 @@ Subroutine psb_zrgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist complex(psb_dpk_), Intent(in) :: b(:) complex(psb_dpk_), Intent(inout) :: x(:) Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data complex(psb_dpk_), allocatable, target :: aux(:),w(:),w1(:), v(:,:) complex(psb_dpk_), allocatable :: c(:),s(:), h(:,:), rs(:),rst(:),xt(:) Real(psb_dpk_) :: tmp complex(psb_dpk_) :: rti, rti1, scal - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: rni, xni, bni, ani,bn2 real(psb_dpk_), external :: dznrm2 real(psb_dpk_) :: errnum, errden @@ -476,7 +476,7 @@ contains ! october 31, 1992 ! ! .. scalar arguments .. - integer incx, incy, n + integer(psb_ipk_) :: incx, incy, n real(psb_dpk_) c complex(psb_dpk_) s ! .. @@ -520,7 +520,7 @@ contains ! == = ================================================================== ! ! .. local scalars .. - integer i, ix, iy + integer(psb_ipk_) :: i, ix, iy complex(psb_dpk_) stemp ! .. ! .. intrinsic functions .. @@ -600,9 +600,9 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type), Intent(inout) :: b type(psb_z_vect_type), Intent(inout) :: x Real(psb_dpk_), Intent(in) :: eps - integer, intent(out) :: info - Integer, Optional, Intent(in) :: itmax, itrace, irst,istop - Integer, Optional, Intent(out) :: iter + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), Optional, Intent(in) :: itmax, itrace, irst,istop + integer(psb_ipk_), Optional, Intent(out) :: iter Real(psb_dpk_), Optional, Intent(out) :: err !!$ local data complex(psb_dpk_), allocatable :: aux(:) @@ -611,12 +611,12 @@ subroutine psb_zrgmres_vect(a,prec,b,x,eps,desc_a,info,& type(psb_z_vect_type) :: w, w1, xt real(psb_dpk_) :: tmp complex(psb_dpk_) :: scal, gm, rti, rti1 - Integer ::litmax, naux, mglob, it,k, itrace_,& + integer(psb_ipk_) ::litmax, naux, mglob, it,k, itrace_,& & np,me, n_row, n_col, nl, int_err(5) Logical, Parameter :: exchange=.True., noexchange=.False., use_srot=.true. - Integer, Parameter :: irmax = 8 - Integer :: itx, i, isvch, ictxt,istop_, err_act - integer :: debug_level, debug_unit + integer(psb_ipk_), Parameter :: irmax = 8 + integer(psb_ipk_) :: itx, i, isvch, ictxt,istop_, err_act + integer(psb_ipk_) :: debug_level, debug_unit Real(psb_dpk_) :: rni, xni, bni, ani,bn2, dt real(psb_dpk_) :: errnum, errden, deps, derr character(len=20) :: name @@ -972,7 +972,7 @@ contains ! october 31, 1992 ! ! .. scalar arguments .. - integer incx, incy, n + integer(psb_ipk_) :: incx, incy, n real(psb_dpk_) c complex(psb_dpk_) s ! .. @@ -1016,7 +1016,7 @@ contains ! == = ================================================================== ! ! .. local scalars .. - integer i, ix, iy + integer(psb_ipk_) :: i, ix, iy complex(psb_dpk_) stemp ! .. ! .. intrinsic functions .. diff --git a/opt/psb_d_ell_impl.f90 b/opt/psb_d_ell_impl.f90 index d75f70f01..1a5a198ef 100644 --- a/opt/psb_d_ell_impl.f90 +++ b/opt/psb_d_ell_impl.f90 @@ -19,14 +19,14 @@ subroutine psb_d_ell_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_csmv' logical, parameter :: debug=.false. @@ -90,13 +90,13 @@ contains subroutine psb_d_ell_csmv_inner(m,n,alpha,nc,ja,ldj,val,ldv,& & is_triangle,is_unit, x,beta,y,tra) - integer, intent(in) :: m,n,nc,ldj,ldv,ja(ldj,*) + integer(psb_ipk_), intent(in) :: m,n,nc,ldj,ldv,ja(ldj,*) real(psb_dpk_), intent(in) :: alpha, beta, x(*),val(ldv,*) real(psb_dpk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra - integer :: i,j,k, ir, jc, m4 + integer(psb_ipk_) :: i,j,k, ir, jc, m4 real(psb_dpk_) :: acc(4) @@ -364,14 +364,14 @@ subroutine psb_d_ell_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nxy + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nxy real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_csmm' logical, parameter :: debug=.false. @@ -440,14 +440,14 @@ subroutine psb_d_ell_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_d_ell_csmm_inner(m,n,nxy,alpha,nc,ja,ldj,val,ldv,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,acc) - integer, intent(in) :: m,n,ldx,ldy,nxy,nc,ldj,ldv - integer, intent(in) :: ja(ldj,*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nxy,nc,ldj,ldv + integer(psb_ipk_), intent(in) :: ja(ldj,*) real(psb_dpk_), intent(in) :: alpha, beta, x(ldx,*),val(ldv,*) real(psb_dpk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra real(psb_dpk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == dzero) then @@ -667,15 +667,15 @@ subroutine psb_d_ell_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_cssv' logical, parameter :: debug=.false. @@ -789,14 +789,14 @@ contains subroutine inner_ellsv(tra,lower,unit,n,nc,irn,idiag,ja,ldj,val,ldv,x,y,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: n,nc,ldj,ldv - integer, intent(in) :: irn(*),idiag(*), ja(ldj,*) + integer(psb_ipk_), intent(in) :: n,nc,ldj,ldv + integer(psb_ipk_), intent(in) :: irn(*),idiag(*), ja(ldj,*) real(psb_dpk_), intent(in) :: val(ldv,*) real(psb_dpk_), intent(in) :: x(*) real(psb_dpk_), intent(out) :: y(*) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_) :: acc ! @@ -941,14 +941,14 @@ subroutine psb_d_ell_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nxy + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nxy real(psb_dpk_), allocatable :: tmp(:,:), acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_cssm' logical, parameter :: debug=.false. @@ -1071,14 +1071,14 @@ contains & x,ldx,y,ldy,acc,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: n,nc,ldj,ldv,nxy,ldx,ldy - integer, intent(in) :: irn(*),idiag(*), ja(ldj,*) + integer(psb_ipk_), intent(in) :: n,nc,ldj,ldv,nxy,ldx,ldy + integer(psb_ipk_), intent(in) :: irn(*),idiag(*), ja(ldj,*) real(psb_dpk_), intent(in) :: val(ldv,*) real(psb_dpk_), intent(in) :: x(ldx,nxy) real(psb_dpk_), intent(out) :: y(ldy,nxy), acc(nxy) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc ! ! The only error condition here is if @@ -1221,10 +1221,10 @@ function psb_d_ell_csnmi(a) result(res) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csnmi' logical, parameter :: debug=.false. @@ -1247,11 +1247,11 @@ function psb_d_ell_csnm1(a) result(res) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_csnm1' logical, parameter :: debug=.false. @@ -1283,11 +1283,11 @@ subroutine psb_d_ell_rowsum(d,a) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1331,11 +1331,11 @@ subroutine psb_d_ell_arwsum(d,a) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1379,11 +1379,11 @@ subroutine psb_d_ell_colsum(d,a) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1430,11 +1430,11 @@ subroutine psb_d_ell_aclsum(d,a) class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1482,9 +1482,9 @@ subroutine psb_d_ell_get_diag(a,d,info) implicit none class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1530,9 +1530,9 @@ subroutine psb_d_ell_scal(d,a,info) implicit none class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1570,9 +1570,9 @@ subroutine psb_d_ell_scals(d,a,info) implicit none class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1615,10 +1615,10 @@ subroutine psb_d_ell_reallocate_nz(nz,a) use psb_base_mod use psb_d_ell_mat_mod, psb_protect_name => psb_d_ell_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_ell_sparse_mat), intent(inout) :: a - integer :: m, nzrm - Integer :: err_act, info + integer(psb_ipk_) :: m, nzrm + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_ell_reallocate_nz' logical, parameter :: debug=.false. @@ -1656,8 +1656,8 @@ subroutine psb_d_ell_mold(a,b,info) implicit none class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1683,10 +1683,10 @@ subroutine psb_d_ell_allocate_mnnz(m,n,a,nz) use psb_base_mod use psb_d_ell_mat_mod, psb_protect_name => psb_d_ell_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_ell_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1750,17 +1750,17 @@ subroutine psb_d_ell_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1844,15 +1844,15 @@ contains implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='ell_getptn' debug_unit = psb_get_debug_unit() @@ -1917,18 +1917,18 @@ subroutine psb_d_ell_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -2013,16 +2013,16 @@ contains implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -2090,13 +2090,13 @@ subroutine psb_d_ell_csgetblk(imin,imax,a,b,info,& class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -2148,15 +2148,15 @@ subroutine psb_d_ell_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2235,14 +2235,14 @@ contains implicit none class(psb_d_ell_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_ell_srch_upd' info = psb_success_ @@ -2422,7 +2422,7 @@ subroutine psb_d_ell_reinit(a,clear) class(psb_d_ell_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2468,7 +2468,7 @@ subroutine psb_d_ell_trim(a) use psb_d_ell_mat_mod, psb_protect_name => psb_d_ell_trim implicit none class(psb_d_ell_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m, nzm + integer(psb_ipk_) :: err_act, info, nz, m, nzm character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2502,19 +2502,19 @@ subroutine psb_d_ell_print(iout,a,iv,eirs,eics,head,ivr,ivc) use psb_d_ell_mat_mod, psb_protect_name => psb_d_ell_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_ell_print' logical, parameter :: debug=.false. character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(eirs)) then irs = eirs @@ -2586,15 +2586,15 @@ subroutine psb_d_cp_ell_from_coo(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2613,14 +2613,14 @@ subroutine psb_d_cp_ell_to_coo(a,b,info) class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,k,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,k,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2653,14 +2653,14 @@ subroutine psb_d_mv_ell_to_coo(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,k,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,k,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2714,14 +2714,14 @@ subroutine psb_d_mv_ell_from_coo(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,k, idl,err_act, nc, nzm, ir, ic - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,k, idl,err_act, nc, nzm, ir, ic + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2803,14 +2803,14 @@ subroutine psb_d_mv_ell_to_fmt(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2842,14 +2842,14 @@ subroutine psb_d_cp_ell_to_fmt(a,b,info) class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2881,14 +2881,14 @@ subroutine psb_d_mv_ell_from_fmt(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2921,14 +2921,14 @@ subroutine psb_d_cp_ell_from_fmt(a,b,info) class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2960,7 +2960,7 @@ subroutine psb_d_ell_cp_from(a,b) type(psb_d_ell_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -3000,7 +3000,7 @@ subroutine psb_d_ell_mv_from(a,b) type(psb_d_ell_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/opt/psb_d_ell_mat_mod.f90 b/opt/psb_d_ell_mat_mod.f90 index f4f3223e4..e4cea7b1a 100644 --- a/opt/psb_d_ell_mat_mod.f90 +++ b/opt/psb_d_ell_mat_mod.f90 @@ -19,7 +19,7 @@ module psb_d_ell_mat_mod ! 5. Within a row, the indices are sorted for use of SV. ! - integer, allocatable :: irn(:), ja(:,:), idiag(:) + integer(psb_ipk_), allocatable :: irn(:), ja(:,:), idiag(:) real(psb_dpk_), allocatable :: val(:,:) contains @@ -72,7 +72,7 @@ module psb_d_ell_mat_mod interface subroutine psb_d_ell_reallocate_nz(nz,a) import :: psb_d_ell_sparse_mat - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_ell_sparse_mat), intent(inout) :: a end subroutine psb_d_ell_reallocate_nz end interface @@ -97,28 +97,28 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_ell_mold end interface interface subroutine psb_d_ell_allocate_mnnz(m,n,a,nz) import :: psb_d_ell_sparse_mat - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_ell_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_ell_allocate_mnnz end interface interface subroutine psb_d_ell_print(iout,a,iv,eirs,eics,head,ivr,ivc) import :: psb_d_ell_sparse_mat - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_ell_print end interface @@ -127,7 +127,7 @@ module psb_d_ell_mat_mod import :: psb_d_coo_sparse_mat, psb_d_ell_sparse_mat class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_ell_to_coo end interface @@ -136,7 +136,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_coo_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_ell_from_coo end interface @@ -145,7 +145,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_base_sparse_mat class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_ell_to_fmt end interface @@ -154,7 +154,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_base_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_ell_from_fmt end interface @@ -163,7 +163,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_coo_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_ell_to_coo end interface @@ -172,7 +172,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_coo_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_ell_from_coo end interface @@ -181,7 +181,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_base_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_ell_to_fmt end interface @@ -190,7 +190,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_d_base_sparse_mat class(psb_d_ell_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_ell_from_fmt end interface @@ -216,10 +216,10 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_ell_csput end interface @@ -228,13 +228,13 @@ module psb_d_ell_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_ell_csgetptn end interface @@ -244,14 +244,14 @@ module psb_d_ell_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_ell_csgetrow end interface @@ -262,11 +262,11 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_ell_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_ell_csgetblk end interface @@ -277,7 +277,7 @@ module psb_d_ell_mat_mod class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_ell_cssv subroutine psb_d_ell_cssm(alpha,a,x,beta,y,info,trans) @@ -285,7 +285,7 @@ module psb_d_ell_mat_mod class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_ell_cssm end interface @@ -296,7 +296,7 @@ module psb_d_ell_mat_mod class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_ell_csmv subroutine psb_d_ell_csmm(alpha,a,x,beta,y,info,trans) @@ -304,7 +304,7 @@ module psb_d_ell_mat_mod class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_ell_csmm end interface @@ -363,7 +363,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_ell_get_diag end interface @@ -372,7 +372,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_ell_scal end interface @@ -381,7 +381,7 @@ module psb_d_ell_mat_mod import :: psb_d_ell_sparse_mat, psb_dpk_ class(psb_d_ell_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_ell_scals end interface @@ -423,14 +423,14 @@ contains function d_ell_get_nzeros(a) result(res) implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = sum(a%irn(1:a%get_nrows())) end function d_ell_get_nzeros function d_ell_get_size(a) result(res) implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 @@ -458,8 +458,8 @@ contains implicit none class(psb_d_ell_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/prec/Makefile b/prec/Makefile index 672d00d45..ac92049a3 100644 --- a/prec/Makefile +++ b/prec/Makefile @@ -47,7 +47,7 @@ psb_c_bjacprec.o psb_c_diagprec.o psb_c_nullprec.o: psb_prec_mod.o psb_c_base_pr psb_z_bjacprec.o psb_z_diagprec.o psb_z_nullprec.o: psb_prec_mod.o psb_z_base_prec_mod.o veryclean: clean - /bin/rm -f $(LIBNAME) + /bin/rm -f $(LIBNAME) *$(.mod) iclean: cd impl && $(MAKE) clean diff --git a/prec/impl/psb_c_bjacprec_impl.f90 b/prec/impl/psb_c_bjacprec_impl.f90 index 23d816692..0aad243f1 100644 --- a/prec/impl/psb_c_bjacprec_impl.f90 +++ b/prec/impl/psb_c_bjacprec_impl.f90 @@ -4,10 +4,10 @@ subroutine psb_c_bjac_dump(prec,info,prefix,head) use psb_c_bjacprec, psb_protect_name => psb_c_bjac_dump implicit none class(psb_c_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - integer :: i, j, il1, iln, lname, lev - integer :: ictxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: ictxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than @@ -48,16 +48,16 @@ subroutine psb_c_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_spk_),intent(in) :: alpha,beta type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col complex(psb_spk_), pointer :: ww(:), aux(:) type(psb_c_vect_type) :: wv, wv1 - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='c_bjac_prec_apply' character(len=20) :: ch_err @@ -206,15 +206,15 @@ subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col complex(psb_spk_), pointer :: ww(:), aux(:) - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='c_bjac_prec_apply' character(len=20) :: ch_err @@ -356,8 +356,8 @@ subroutine psb_c_bjac_precinit(prec,info) Implicit None class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_bjac_precinit' call psb_erractionsave(err_act) @@ -399,20 +399,20 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold ! .. Local Scalars .. - integer :: i, m - integer :: int_err(5) + integer(psb_ipk_) :: i, m + integer(psb_ipk_) :: int_err(5) character :: trans, unitd type(psb_c_csr_sparse_mat), allocatable :: lf, uf complex(psb_spk_), allocatable :: dd(:) - integer nztota, err_act, n_row, nrow_a,n_col, nhalo - integer :: ictxt,np,me + integer(psb_ipk_) :: nztota, err_act, n_row, nrow_a,n_col, nhalo + integer(psb_ipk_) :: ictxt,np,me character(len=20) :: name='c_bjac_precbld' character(len=20) :: ch_err @@ -552,10 +552,10 @@ subroutine psb_c_bjac_precseti(prec,what,val,info) Implicit None class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_bjac_precset' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_c_diagprec_impl.f90 b/prec/impl/psb_c_diagprec_impl.f90 index 7ebdb5af8..94025e8e4 100644 --- a/prec/impl/psb_c_diagprec_impl.f90 +++ b/prec/impl/psb_c_diagprec_impl.f90 @@ -8,10 +8,10 @@ subroutine psb_c_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_c_vect_type),intent(inout) :: x complex(psb_spk_),intent(in) :: alpha, beta type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_prec_apply' complex(psb_spk_), pointer :: ww(:) class(psb_c_base_vect_type), allocatable :: dw @@ -92,10 +92,10 @@ subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character :: trans_ character(len=20) :: name='c_diag_prec_apply' complex(psb_spk_), pointer :: ww(:) @@ -191,12 +191,12 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow,i + integer(psb_ipk_) :: err_act, nrow,i character(len=20) :: name='c_diag_precbld' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_c_nullprec_impl.f90 b/prec/impl/psb_c_nullprec_impl.f90 index eb16158a9..1c2829669 100644 --- a/prec/impl/psb_c_nullprec_impl.f90 +++ b/prec/impl/psb_c_nullprec_impl.f90 @@ -7,10 +7,10 @@ subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_c_vect_type),intent(inout) :: x complex(psb_spk_),intent(in) :: alpha, beta type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) @@ -62,10 +62,10 @@ subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_c_prec_type_impl.f90 b/prec/impl/psb_c_prec_type_impl.f90 index a4bf60cde..226b5d43b 100644 --- a/prec/impl/psb_c_prec_type_impl.f90 +++ b/prec/impl/psb_c_prec_type_impl.f90 @@ -39,13 +39,13 @@ subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work) class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) character :: trans_ complex(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_c_apply2v' @@ -112,14 +112,14 @@ subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work) type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) type(psb_c_vect_type) :: ww character :: trans_ complex(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_c_apply1v' @@ -189,13 +189,13 @@ subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work) class(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) character :: trans_ complex(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name='psb_c_apply2v' @@ -259,11 +259,11 @@ subroutine psb_c_apply1v(prec,x,desc_data,info,trans) type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans character :: trans_ - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act complex(psb_spk_), pointer :: WW(:), w1(:) character(len=20) :: name name='psb_c_apply1v' diff --git a/prec/impl/psb_cilu_fct.f90 b/prec/impl/psb_cilu_fct.f90 index 41b49abf0..0af0f9737 100644 --- a/prec/impl/psb_cilu_fct.f90 +++ b/prec/impl/psb_cilu_fct.f90 @@ -39,14 +39,14 @@ subroutine psb_cilu_fct(a,l,u,d,info,blck) use psb_base_mod implicit none ! .. Scalar Arguments .. - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! .. Array Arguments .. type(psb_cspmat_type),intent(in) :: a type(psb_c_csr_sparse_mat),intent(inout) :: l,u type(psb_cspmat_type),intent(in), optional, target :: blck complex(psb_spk_), intent(inout) :: d(:) ! .. Local Scalars .. - integer :: l1, l2,m,err_act + integer(psb_ipk_) :: l1, l2,m,err_act type(psb_cspmat_type), pointer :: blck_ character(len=20) :: name, ch_err name='psb_ilu_fct' @@ -118,15 +118,15 @@ contains implicit none type(psb_cspmat_type) :: a,b - integer :: m,ma,mb,l1,l2,info - integer, dimension(:) :: lia1,lia2,uia1,uia2 + integer(psb_ipk_) :: m,ma,mb,l1,l2,info + integer(psb_ipk_), dimension(:) :: lia1,lia2,uia1,uia2 complex(psb_spk_), dimension(:) :: laspk,uaspk,d - integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz + integer(psb_ipk_) :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz complex(psb_spk_) :: dia,temp - integer, parameter :: nrb=60 + integer(psb_ipk_), parameter :: nrb=60 type(psb_c_coo_sparse_mat) :: trw - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name, ch_err name='psb_cilu_fctint' diff --git a/prec/impl/psb_cprecbld.f90 b/prec/impl/psb_cprecbld.f90 index 50ea079fb..c4a4508d9 100644 --- a/prec/impl/psb_cprecbld.f90 +++ b/prec/impl/psb_cprecbld.f90 @@ -38,19 +38,19 @@ subroutine psb_cprecbld(a,desc_a,p,info,upd,amold,afmt,vmold) type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_cprec_type),intent(inout) :: p - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold ! Local scalars - Integer :: err, n_row, n_col,ictxt,& + integer(psb_ipk_) :: err, n_row, n_col,ictxt,& & me,np,mglob, err_act - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character :: upd_ - integer,parameter :: iroot=psb_root_,iout=60,ilout=40 + integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40 character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/prec/impl/psb_cprecinit.f90 b/prec/impl/psb_cprecinit.f90 index eac5f710b..8f6e65d0f 100644 --- a/prec/impl/psb_cprecinit.f90 +++ b/prec/impl/psb_cprecinit.f90 @@ -40,7 +40,7 @@ subroutine psb_cprecinit(p,ptype,info) type(psb_cprec_type), intent(inout) :: p character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ diff --git a/prec/impl/psb_cprecset.f90 b/prec/impl/psb_cprecset.f90 index 07a3a20be..8b1038fe1 100644 --- a/prec/impl/psb_cprecset.f90 +++ b/prec/impl/psb_cprecset.f90 @@ -35,8 +35,8 @@ subroutine psb_cprecseti(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_cprecseti implicit none type(psb_cprec_type), intent(inout) :: p - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ @@ -60,9 +60,9 @@ subroutine psb_cprecsetr(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_cprecsetr implicit none type(psb_cprec_type), intent(inout) :: p - integer :: what + integer(psb_ipk_) :: what real(psb_spk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ diff --git a/prec/impl/psb_d_bjacprec_impl.f90 b/prec/impl/psb_d_bjacprec_impl.f90 index d24c354f2..5c9e7ddf4 100644 --- a/prec/impl/psb_d_bjacprec_impl.f90 +++ b/prec/impl/psb_d_bjacprec_impl.f90 @@ -4,10 +4,10 @@ subroutine psb_d_bjac_dump(prec,info,prefix,head) use psb_d_bjacprec, psb_protect_name => psb_d_bjac_dump implicit none class(psb_d_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - integer :: i, j, il1, iln, lname, lev - integer :: ictxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: ictxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than @@ -48,16 +48,16 @@ subroutine psb_d_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_dpk_),intent(in) :: alpha,beta type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col real(psb_dpk_), pointer :: ww(:), aux(:) type(psb_d_vect_type) :: wv, wv1 - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='d_bjac_prec_apply' character(len=20) :: ch_err @@ -206,15 +206,15 @@ subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col real(psb_dpk_), pointer :: ww(:), aux(:) - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='d_bjac_prec_apply' character(len=20) :: ch_err @@ -356,8 +356,8 @@ subroutine psb_d_bjac_precinit(prec,info) Implicit None class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_bjac_precinit' call psb_erractionsave(err_act) @@ -399,20 +399,20 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold ! .. Local Scalars .. - integer :: i, m - integer :: int_err(5) + integer(psb_ipk_) :: i, m + integer(psb_ipk_) :: int_err(5) character :: trans, unitd type(psb_d_csr_sparse_mat), allocatable :: lf, uf real(psb_dpk_), allocatable :: dd(:) - integer nztota, err_act, n_row, nrow_a,n_col, nhalo - integer :: ictxt,np,me + integer(psb_ipk_) :: nztota, err_act, n_row, nrow_a,n_col, nhalo + integer(psb_ipk_) :: ictxt,np,me character(len=20) :: name='d_bjac_precbld' character(len=20) :: ch_err @@ -552,10 +552,10 @@ subroutine psb_d_bjac_precseti(prec,what,val,info) Implicit None class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_bjac_precset' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_d_diagprec_impl.f90 b/prec/impl/psb_d_diagprec_impl.f90 index 025d4033f..df8443296 100644 --- a/prec/impl/psb_d_diagprec_impl.f90 +++ b/prec/impl/psb_d_diagprec_impl.f90 @@ -8,10 +8,10 @@ subroutine psb_d_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_d_vect_type),intent(inout) :: x real(psb_dpk_),intent(in) :: alpha, beta type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_prec_apply' real(psb_dpk_), pointer :: ww(:) class(psb_d_base_vect_type), allocatable :: dw @@ -92,10 +92,10 @@ subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character :: trans_ character(len=20) :: name='d_diag_prec_apply' real(psb_dpk_), pointer :: ww(:) @@ -191,12 +191,12 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow,i + integer(psb_ipk_) :: err_act, nrow,i character(len=20) :: name='d_diag_precbld' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_d_nullprec_impl.f90 b/prec/impl/psb_d_nullprec_impl.f90 index 07c817fe0..cc47dc515 100644 --- a/prec/impl/psb_d_nullprec_impl.f90 +++ b/prec/impl/psb_d_nullprec_impl.f90 @@ -7,10 +7,10 @@ subroutine psb_d_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_d_vect_type),intent(inout) :: x real(psb_dpk_),intent(in) :: alpha, beta type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) @@ -62,10 +62,10 @@ subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_d_prec_type_impl.f90 b/prec/impl/psb_d_prec_type_impl.f90 index 844c22ceb..398a25936 100644 --- a/prec/impl/psb_d_prec_type_impl.f90 +++ b/prec/impl/psb_d_prec_type_impl.f90 @@ -39,13 +39,13 @@ subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work) class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) character :: trans_ real(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_d_apply2v' @@ -112,14 +112,14 @@ subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work) type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) type(psb_d_vect_type) :: ww character :: trans_ real(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_d_apply1v' @@ -189,13 +189,13 @@ subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work) class(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) character :: trans_ real(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name='psb_d_apply2v' @@ -259,11 +259,11 @@ subroutine psb_d_apply1v(prec,x,desc_data,info,trans) type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans character :: trans_ - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act real(psb_dpk_), pointer :: WW(:), w1(:) character(len=20) :: name name='psb_d_apply1v' diff --git a/prec/impl/psb_dilu_fct.f90 b/prec/impl/psb_dilu_fct.f90 index 0d7fc4305..229486d20 100644 --- a/prec/impl/psb_dilu_fct.f90 +++ b/prec/impl/psb_dilu_fct.f90 @@ -39,14 +39,14 @@ subroutine psb_dilu_fct(a,l,u,d,info,blck) use psb_base_mod implicit none ! .. Scalar Arguments .. - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! .. Array Arguments .. type(psb_dspmat_type),intent(in) :: a type(psb_d_csr_sparse_mat),intent(inout) :: l,u type(psb_dspmat_type),intent(in), optional, target :: blck real(psb_dpk_), intent(inout) :: d(:) ! .. Local Scalars .. - integer :: l1,l2,m,err_act + integer(psb_ipk_) :: l1,l2,m,err_act type(psb_dspmat_type), pointer :: blck_ character(len=20) :: name, ch_err name='psb_ilu_fct' @@ -121,15 +121,15 @@ contains type(psb_dspmat_type), target :: a type(psb_dspmat_type), target :: b - integer :: m,ma,mb,l1,l2,info - integer, dimension(:) :: lia1,lia2,uia1,uia2 + integer(psb_ipk_) :: m,ma,mb,l1,l2,info + integer(psb_ipk_), dimension(:) :: lia1,lia2,uia1,uia2 real(psb_dpk_), dimension(:) :: laspk,uaspk,d - integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz + integer(psb_ipk_) :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz real(psb_dpk_) :: dia,temp - integer, parameter :: nrb=60 + integer(psb_ipk_), parameter :: nrb=60 type(psb_d_coo_sparse_mat) :: trw - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name, ch_err diff --git a/prec/impl/psb_dprecbld.f90 b/prec/impl/psb_dprecbld.f90 index 7435c8d82..d26207221 100644 --- a/prec/impl/psb_dprecbld.f90 +++ b/prec/impl/psb_dprecbld.f90 @@ -38,19 +38,19 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd,amold,afmt,vmold) type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_dprec_type),intent(inout) :: p - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold ! Local scalars - Integer :: err, n_row, n_col,ictxt,& + integer(psb_ipk_) :: err, n_row, n_col,ictxt,& & me,np,mglob, err_act - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character :: upd_ - integer,parameter :: iroot=psb_root_,iout=60,ilout=40 + integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40 character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/prec/impl/psb_dprecinit.f90 b/prec/impl/psb_dprecinit.f90 index 85785d865..e74caa6d4 100644 --- a/prec/impl/psb_dprecinit.f90 +++ b/prec/impl/psb_dprecinit.f90 @@ -39,7 +39,7 @@ subroutine psb_dprecinit(p,ptype,info) implicit none type(psb_dprec_type), intent(inout) :: p character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ diff --git a/prec/impl/psb_dprecset.f90 b/prec/impl/psb_dprecset.f90 index 51495a40a..6c18f976a 100644 --- a/prec/impl/psb_dprecset.f90 +++ b/prec/impl/psb_dprecset.f90 @@ -35,8 +35,8 @@ subroutine psb_dprecseti(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_dprecseti implicit none type(psb_dprec_type), intent(inout) :: p - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ @@ -60,9 +60,9 @@ subroutine psb_dprecsetr(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_dprecsetr implicit none type(psb_dprec_type), intent(inout) :: p - integer :: what + integer(psb_ipk_) :: what real(psb_dpk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ diff --git a/prec/impl/psb_s_bjacprec_impl.f90 b/prec/impl/psb_s_bjacprec_impl.f90 index 2d862d675..730da01b7 100644 --- a/prec/impl/psb_s_bjacprec_impl.f90 +++ b/prec/impl/psb_s_bjacprec_impl.f90 @@ -4,10 +4,10 @@ subroutine psb_s_bjac_dump(prec,info,prefix,head) use psb_s_bjacprec, psb_protect_name => psb_s_bjac_dump implicit none class(psb_s_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - integer :: i, j, il1, iln, lname, lev - integer :: ictxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: ictxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than @@ -48,16 +48,16 @@ subroutine psb_s_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_spk_),intent(in) :: alpha,beta type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col real(psb_spk_), pointer :: ww(:), aux(:) type(psb_s_vect_type) :: wv, wv1 - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='s_bjac_prec_apply' character(len=20) :: ch_err @@ -206,15 +206,15 @@ subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col real(psb_spk_), pointer :: ww(:), aux(:) - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='s_bjac_prec_apply' character(len=20) :: ch_err @@ -356,8 +356,8 @@ subroutine psb_s_bjac_precinit(prec,info) Implicit None class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_bjac_precinit' call psb_erractionsave(err_act) @@ -399,20 +399,20 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold ! .. Local Scalars .. - integer :: i, m - integer :: int_err(5) + integer(psb_ipk_) :: i, m + integer(psb_ipk_) :: int_err(5) character :: trans, unitd type(psb_s_csr_sparse_mat), allocatable :: lf, uf real(psb_spk_), allocatable :: dd(:) - integer nztota, err_act, n_row, nrow_a,n_col, nhalo - integer :: ictxt,np,me + integer(psb_ipk_) :: nztota, err_act, n_row, nrow_a,n_col, nhalo + integer(psb_ipk_) :: ictxt,np,me character(len=20) :: name='s_bjac_precbld' character(len=20) :: ch_err @@ -552,10 +552,10 @@ subroutine psb_s_bjac_precseti(prec,what,val,info) Implicit None class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_bjac_precset' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_s_diagprec_impl.f90 b/prec/impl/psb_s_diagprec_impl.f90 index eede3e8c5..97f42f7c4 100644 --- a/prec/impl/psb_s_diagprec_impl.f90 +++ b/prec/impl/psb_s_diagprec_impl.f90 @@ -8,10 +8,10 @@ subroutine psb_s_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_s_vect_type),intent(inout) :: x real(psb_spk_),intent(in) :: alpha, beta type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_prec_apply' real(psb_spk_), pointer :: ww(:) class(psb_s_base_vect_type), allocatable :: dw @@ -92,10 +92,10 @@ subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character :: trans_ character(len=20) :: name='s_diag_prec_apply' real(psb_spk_), pointer :: ww(:) @@ -191,12 +191,12 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow,i + integer(psb_ipk_) :: err_act, nrow,i character(len=20) :: name='s_diag_precbld' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_s_nullprec_impl.f90 b/prec/impl/psb_s_nullprec_impl.f90 index a34207a9e..e6de7d3be 100644 --- a/prec/impl/psb_s_nullprec_impl.f90 +++ b/prec/impl/psb_s_nullprec_impl.f90 @@ -7,10 +7,10 @@ subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_s_vect_type),intent(inout) :: x real(psb_spk_),intent(in) :: alpha, beta type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) @@ -62,10 +62,10 @@ subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_s_prec_type_impl.f90 b/prec/impl/psb_s_prec_type_impl.f90 index a82957f0a..bea4cfce9 100644 --- a/prec/impl/psb_s_prec_type_impl.f90 +++ b/prec/impl/psb_s_prec_type_impl.f90 @@ -39,13 +39,13 @@ subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work) class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) character :: trans_ real(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_s_apply2v' @@ -112,14 +112,14 @@ subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work) type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) type(psb_s_vect_type) :: ww character :: trans_ real(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_s_apply1v' @@ -189,13 +189,13 @@ subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work) class(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) character :: trans_ real(psb_spk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name='psb_s_apply2v' @@ -259,11 +259,11 @@ subroutine psb_s_apply1v(prec,x,desc_data,info,trans) type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans character :: trans_ - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act real(psb_spk_), pointer :: WW(:), w1(:) character(len=20) :: name name='psb_s_apply1v' diff --git a/prec/impl/psb_silu_fct.f90 b/prec/impl/psb_silu_fct.f90 index 256983257..2e6774f1e 100644 --- a/prec/impl/psb_silu_fct.f90 +++ b/prec/impl/psb_silu_fct.f90 @@ -39,14 +39,14 @@ subroutine psb_silu_fct(a,l,u,d,info,blck) use psb_base_mod implicit none ! .. Scalar Arguments .. - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! .. Array Arguments .. type(psb_sspmat_type),intent(in) :: a type(psb_s_csr_sparse_mat),intent(inout) :: l,u type(psb_sspmat_type),intent(in), optional, target :: blck real(psb_spk_), intent(inout) :: d(:) ! .. Local Scalars .. - integer :: l1,l2,m,err_act + integer(psb_ipk_) :: l1,l2,m,err_act type(psb_sspmat_type), pointer :: blck_ character(len=20) :: name, ch_err name='psb_ilu_fct' @@ -121,15 +121,15 @@ contains type(psb_sspmat_type) :: a type(psb_sspmat_type) :: b - integer :: m,ma,mb,l1,l2,info - integer, dimension(:) :: lia1,lia2,uia1,uia2 + integer(psb_ipk_) :: m,ma,mb,l1,l2,info + integer(psb_ipk_), dimension(:) :: lia1,lia2,uia1,uia2 real(psb_spk_), dimension(:) :: laspk,uaspk,d - integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz + integer(psb_ipk_) :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz real(psb_spk_) :: dia,temp - integer, parameter :: nrb=60 + integer(psb_ipk_), parameter :: nrb=60 type(psb_s_coo_sparse_mat) :: trw - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name, ch_err name='psb_silu_fctint' diff --git a/prec/impl/psb_sprecbld.f90 b/prec/impl/psb_sprecbld.f90 index c88f6e5d1..c68bf654a 100644 --- a/prec/impl/psb_sprecbld.f90 +++ b/prec/impl/psb_sprecbld.f90 @@ -38,19 +38,19 @@ subroutine psb_sprecbld(a,desc_a,p,info,upd,amold,afmt,vmold) type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_sprec_type),intent(inout) :: p - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold ! Local scalars - Integer :: err, n_row, n_col,ictxt,& + integer(psb_ipk_) :: err, n_row, n_col,ictxt,& & me,np,mglob, err_act - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character :: upd_ - integer,parameter :: iroot=psb_root_,iout=60,ilout=40 + integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40 character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/prec/impl/psb_sprecinit.f90 b/prec/impl/psb_sprecinit.f90 index 652ed14ea..e9580770c 100644 --- a/prec/impl/psb_sprecinit.f90 +++ b/prec/impl/psb_sprecinit.f90 @@ -39,7 +39,7 @@ subroutine psb_sprecinit(p,ptype,info) implicit none type(psb_sprec_type), intent(inout) :: p character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ diff --git a/prec/impl/psb_sprecset.f90 b/prec/impl/psb_sprecset.f90 index f6fa6ed15..51ba55972 100644 --- a/prec/impl/psb_sprecset.f90 +++ b/prec/impl/psb_sprecset.f90 @@ -35,8 +35,8 @@ subroutine psb_sprecseti(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_sprecseti implicit none type(psb_sprec_type), intent(inout) :: p - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ @@ -59,9 +59,9 @@ subroutine psb_sprecsetr(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_sprecsetr implicit none type(psb_sprec_type), intent(inout) :: p - integer :: what + integer(psb_ipk_) :: what real(psb_spk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ diff --git a/prec/impl/psb_z_bjacprec_impl.f90 b/prec/impl/psb_z_bjacprec_impl.f90 index 72944926b..327ecf851 100644 --- a/prec/impl/psb_z_bjacprec_impl.f90 +++ b/prec/impl/psb_z_bjacprec_impl.f90 @@ -4,10 +4,10 @@ subroutine psb_z_bjac_dump(prec,info,prefix,head) use psb_z_bjacprec, psb_protect_name => psb_z_bjac_dump implicit none class(psb_z_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - integer :: i, j, il1, iln, lname, lev - integer :: ictxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: ictxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than @@ -48,16 +48,16 @@ subroutine psb_z_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_dpk_),intent(in) :: alpha,beta type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col complex(psb_dpk_), pointer :: ww(:), aux(:) type(psb_z_vect_type) :: wv, wv1 - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='z_bjac_prec_apply' character(len=20) :: ch_err @@ -206,15 +206,15 @@ subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) ! Local variables - integer :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col complex(psb_dpk_), pointer :: ww(:), aux(:) - integer :: ictxt,np,me, err_act, int_err(5) - integer :: debug_level, debug_unit + integer(psb_ipk_) :: ictxt,np,me, err_act, int_err(5) + integer(psb_ipk_) :: debug_level, debug_unit character :: trans_ character(len=20) :: name='z_bjac_prec_apply' character(len=20) :: ch_err @@ -356,8 +356,8 @@ subroutine psb_z_bjac_precinit(prec,info) Implicit None class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_bjac_precinit' call psb_erractionsave(err_act) @@ -399,20 +399,20 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold ! .. Local Scalars .. - integer :: i, m - integer :: int_err(5) + integer(psb_ipk_) :: i, m + integer(psb_ipk_) :: int_err(5) character :: trans, unitd type(psb_z_csr_sparse_mat), allocatable :: lf, uf complex(psb_dpk_), allocatable :: dd(:) - integer nztota, err_act, n_row, nrow_a,n_col, nhalo - integer :: ictxt,np,me + integer(psb_ipk_) :: nztota, err_act, n_row, nrow_a,n_col, nhalo + integer(psb_ipk_) :: ictxt,np,me character(len=20) :: name='z_bjac_precbld' character(len=20) :: ch_err @@ -552,10 +552,10 @@ subroutine psb_z_bjac_precseti(prec,what,val,info) Implicit None class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_bjac_precset' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_z_diagprec_impl.f90 b/prec/impl/psb_z_diagprec_impl.f90 index 3b5fae6ef..7ece43211 100644 --- a/prec/impl/psb_z_diagprec_impl.f90 +++ b/prec/impl/psb_z_diagprec_impl.f90 @@ -8,10 +8,10 @@ subroutine psb_z_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_z_vect_type),intent(inout) :: x complex(psb_dpk_),intent(in) :: alpha, beta type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_prec_apply' complex(psb_dpk_), pointer :: ww(:) class(psb_z_base_vect_type), allocatable :: dw @@ -92,10 +92,10 @@ subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character :: trans_ character(len=20) :: name='z_diag_prec_apply' complex(psb_dpk_), pointer :: ww(:) @@ -191,12 +191,12 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow,i + integer(psb_ipk_) :: err_act, nrow,i character(len=20) :: name='z_diag_precbld' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_z_nullprec_impl.f90 b/prec/impl/psb_z_nullprec_impl.f90 index 31898b74a..c9450102f 100644 --- a/prec/impl/psb_z_nullprec_impl.f90 +++ b/prec/impl/psb_z_nullprec_impl.f90 @@ -7,10 +7,10 @@ subroutine psb_z_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) type(psb_z_vect_type),intent(inout) :: x complex(psb_dpk_),intent(in) :: alpha, beta type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) @@ -62,10 +62,10 @@ subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_prec_apply' call psb_erractionsave(err_act) diff --git a/prec/impl/psb_z_prec_type_impl.f90 b/prec/impl/psb_z_prec_type_impl.f90 index 6670dd5d0..9cfcdb9fa 100644 --- a/prec/impl/psb_z_prec_type_impl.f90 +++ b/prec/impl/psb_z_prec_type_impl.f90 @@ -39,13 +39,13 @@ subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work) class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) character :: trans_ complex(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_z_apply2v' @@ -112,14 +112,14 @@ subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work) type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) type(psb_z_vect_type) :: ww character :: trans_ complex(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name = 'psb_z_apply1v' @@ -189,13 +189,13 @@ subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work) class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) character :: trans_ complex(psb_dpk_), pointer :: work_(:) - integer :: ictxt,np,me,err_act + integer(psb_ipk_) :: ictxt,np,me,err_act character(len=20) :: name name='psb_z_apply2v' @@ -259,11 +259,11 @@ subroutine psb_z_apply1v(prec,x,desc_data,info,trans) type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans character :: trans_ - integer :: ictxt,np,me, err_act + integer(psb_ipk_) :: ictxt,np,me, err_act complex(psb_dpk_), pointer :: WW(:), w1(:) character(len=20) :: name name='psb_z_apply1v' diff --git a/prec/impl/psb_zilu_fct.f90 b/prec/impl/psb_zilu_fct.f90 index e661f055a..36318bb0c 100644 --- a/prec/impl/psb_zilu_fct.f90 +++ b/prec/impl/psb_zilu_fct.f90 @@ -39,14 +39,14 @@ subroutine psb_zilu_fct(a,l,u,d,info,blck) use psb_base_mod implicit none ! .. Scalar Arguments .. - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info ! .. Array Arguments .. type(psb_zspmat_type),intent(in) :: a type(psb_z_csr_sparse_mat),intent(inout) :: l,u type(psb_zspmat_type),intent(in), optional, target :: blck complex(psb_dpk_), intent(inout) :: d(:) ! .. Local Scalars .. - integer :: l1, l2,m,err_act + integer(psb_ipk_) :: l1, l2,m,err_act type(psb_zspmat_type), pointer :: blck_ character(len=20) :: name, ch_err name='psb_ilu_fct' @@ -118,15 +118,15 @@ contains implicit none type(psb_zspmat_type) :: a,b - integer :: m,ma,mb,l1,l2,info - integer, dimension(:) :: lia1,lia2,uia1,uia2 + integer(psb_ipk_) :: m,ma,mb,l1,l2,info + integer(psb_ipk_), dimension(:) :: lia1,lia2,uia1,uia2 complex(psb_dpk_), dimension(:) :: laspk,uaspk,d - integer :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz + integer(psb_ipk_) :: i,j,k,l,low1,low2,kk,jj,ll, irb, ktrw,err_act, nz complex(psb_dpk_) :: dia,temp - integer, parameter :: nrb=60 + integer(psb_ipk_), parameter :: nrb=60 type(psb_z_coo_sparse_mat) :: trw - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character(len=20) :: name, ch_err name='psb_zilu_fctint' diff --git a/prec/impl/psb_zprecbld.f90 b/prec/impl/psb_zprecbld.f90 index e9c3b49a8..8f2a9d175 100644 --- a/prec/impl/psb_zprecbld.f90 +++ b/prec/impl/psb_zprecbld.f90 @@ -38,19 +38,19 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd,amold,afmt,vmold) type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_zprec_type),intent(inout) :: p - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold ! Local scalars - Integer :: err, n_row, n_col,ictxt,& + integer(psb_ipk_) :: err, n_row, n_col,ictxt,& & me,np,mglob, err_act - integer :: int_err(5) + integer(psb_ipk_) :: int_err(5) character :: upd_ - integer,parameter :: iroot=psb_root_,iout=60,ilout=40 + integer(psb_ipk_),parameter :: iroot=psb_root_,iout=60,ilout=40 character(len=20) :: name, ch_err if(psb_get_errstatus() /= 0) return diff --git a/prec/impl/psb_zprecinit.f90 b/prec/impl/psb_zprecinit.f90 index 8d9edc18d..485c104d7 100644 --- a/prec/impl/psb_zprecinit.f90 +++ b/prec/impl/psb_zprecinit.f90 @@ -40,7 +40,7 @@ subroutine psb_zprecinit(p,ptype,info) type(psb_zprec_type), intent(inout) :: p character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = psb_success_ diff --git a/prec/impl/psb_zprecset.f90 b/prec/impl/psb_zprecset.f90 index dfe6053ad..fa77105ce 100644 --- a/prec/impl/psb_zprecset.f90 +++ b/prec/impl/psb_zprecset.f90 @@ -35,8 +35,8 @@ subroutine psb_zprecseti(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_zprecseti implicit none type(psb_zprec_type), intent(inout) :: p - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ @@ -60,9 +60,9 @@ subroutine psb_zprecsetr(p,what,val,info) use psb_prec_mod, psb_protect_name => psb_zprecsetr implicit none type(psb_zprec_type), intent(inout) :: p - integer :: what + integer(psb_ipk_) :: what real(psb_dpk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=20) :: name='precset' info = psb_success_ diff --git a/prec/psb_c_base_prec_mod.f90 b/prec/psb_c_base_prec_mod.f90 index 3624fdf5b..482a6f6b9 100644 --- a/prec/psb_c_base_prec_mod.f90 +++ b/prec/psb_c_base_prec_mod.f90 @@ -36,7 +36,7 @@ module psb_c_base_prec_mod ! Reduces size of .mod file. - use psb_base_mod, only : psb_spk_, psb_long_int_k_,& + use psb_base_mod, only : psb_spk_, psb_ipk_, psb_long_int_k_,& & psb_desc_type, psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, & & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, psb_success_,& @@ -46,7 +46,7 @@ module psb_c_base_prec_mod use psb_prec_const_mod type psb_c_base_prec_type - integer :: ictxt + integer(psb_ipk_) :: ictxt contains procedure, pass(prec) :: set_ctxt => psb_c_base_set_ctxt procedure, pass(prec) :: get_ctxt => psb_c_base_get_ctxt @@ -81,10 +81,10 @@ contains complex(psb_spk_),intent(in) :: alpha, beta type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_prec_apply' call psb_erractionsave(err_act) @@ -117,10 +117,10 @@ contains complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_prec_apply' call psb_erractionsave(err_act) @@ -150,8 +150,8 @@ contains Implicit None class(psb_c_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precinit' call psb_erractionsave(err_act) @@ -182,12 +182,12 @@ contains type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precbld' call psb_erractionsave(err_act) @@ -216,10 +216,10 @@ contains Implicit None class(psb_c_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precseti' call psb_erractionsave(err_act) @@ -248,10 +248,10 @@ contains Implicit None class(psb_c_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precsetr' call psb_erractionsave(err_act) @@ -280,10 +280,10 @@ contains Implicit None class(psb_c_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precsetc' call psb_erractionsave(err_act) @@ -312,9 +312,9 @@ contains Implicit None class(psb_c_base_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precfree' call psb_erractionsave(err_act) @@ -345,9 +345,9 @@ contains Implicit None class(psb_c_base_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='c_base_precdescr' call psb_erractionsave(err_act) @@ -376,9 +376,9 @@ contains subroutine psb_c_base_precdump(prec,info,prefix,head) implicit none class(psb_c_base_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_base_precdump' call psb_erractionsave(err_act) @@ -407,7 +407,7 @@ contains subroutine psb_c_base_set_ctxt(prec,ictxt) implicit none class(psb_c_base_prec_type), intent(inout) :: prec - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt prec%ictxt = ictxt @@ -423,7 +423,7 @@ contains function psb_c_base_get_ctxt(prec) result(val) class(psb_c_base_prec_type), intent(in) :: prec - integer :: val + integer(psb_ipk_) :: val val = prec%ictxt return diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90 index 4aecc72ac..709354663 100644 --- a/prec/psb_c_bjacprec.f90 +++ b/prec/psb_c_bjacprec.f90 @@ -3,7 +3,7 @@ module psb_c_bjacprec use psb_c_base_prec_mod type, extends(psb_c_base_prec_type) :: psb_c_bjac_prec_type - integer, allocatable :: iprcparm(:) + integer(psb_ipk_), allocatable :: iprcparm(:) type(psb_cspmat_type), allocatable :: av(:) type(psb_c_vect_type), allocatable :: dv contains @@ -31,22 +31,22 @@ module psb_c_bjacprec interface subroutine psb_c_bjac_dump(prec,info,prefix,head) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ class(psb_c_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head end subroutine psb_c_bjac_dump end interface interface subroutine psb_c_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_bjac_prec_type), intent(inout) :: prec complex(psb_spk_),intent(in) :: alpha,beta type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_bjac_apply_vect @@ -54,14 +54,14 @@ module psb_c_bjacprec interface subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_bjac_prec_type), intent(in) :: prec complex(psb_spk_),intent(in) :: alpha,beta complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_bjac_apply @@ -69,20 +69,20 @@ module psb_c_bjacprec interface subroutine psb_c_bjac_precinit(prec,info) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_bjac_precinit end interface interface subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_, & + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_, & & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold @@ -92,39 +92,39 @@ module psb_c_bjacprec interface subroutine psb_c_bjac_precseti(prec,what,val,info) - import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_bjac_precseti end interface !!$ interface !!$ subroutine psb_c_bjac_precsetr(prec,what,val,info) -!!$ import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ !!$ class(psb_c_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ real(psb_spk_), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_c_bjac_precsetr !!$ end interface !!$ !!$ interface !!$ subroutine psb_c_bjac_precsetc(prec,what,val,info) -!!$ import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ !!$ class(psb_c_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ character(len=*), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_c_bjac_precsetc !!$ end interface !!$ !!$ interface !!$ subroutine psb_c_bjac_precfree(prec,info) -!!$ import :: psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_c_bjac_prec_type, psb_c_vect_type, psb_spk_ !!$ class(psb_c_bjac_prec_type), intent(inout) :: prec -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_c_bjac_precfree !!$ end interface @@ -135,11 +135,11 @@ contains Implicit None class(psb_c_bjac_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='c_bjac_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) @@ -211,10 +211,10 @@ contains Implicit None class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_bjac_precset' call psb_erractionsave(err_act) @@ -238,10 +238,10 @@ contains Implicit None class(psb_c_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_bjac_precset' call psb_erractionsave(err_act) @@ -265,9 +265,9 @@ contains Implicit None class(psb_c_bjac_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, i + integer(psb_ipk_) :: err_act, i character(len=20) :: name='c_bjac_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_c_diagprec.f90 b/prec/psb_c_diagprec.f90 index b5a4cd833..dc488c814 100644 --- a/prec/psb_c_diagprec.f90 +++ b/prec/psb_c_diagprec.f90 @@ -28,13 +28,13 @@ module psb_c_diagprec interface subroutine psb_c_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_diag_prec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x complex(psb_spk_),intent(in) :: alpha, beta type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_diag_apply_vect @@ -42,13 +42,13 @@ module psb_c_diagprec interface subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_diag_prec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_diag_apply @@ -56,12 +56,12 @@ module psb_c_diagprec interface subroutine psb_c_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_, & + import :: psb_ipk_, psb_desc_type, psb_c_diag_prec_type, psb_c_vect_type, psb_spk_, & & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold @@ -77,8 +77,8 @@ contains Implicit None class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_precinit' call psb_erractionsave(err_act) @@ -103,10 +103,10 @@ contains Implicit None class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_precset' call psb_erractionsave(err_act) @@ -130,10 +130,10 @@ contains Implicit None class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_precset' call psb_erractionsave(err_act) @@ -156,10 +156,10 @@ contains Implicit None class(psb_c_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_precset' call psb_erractionsave(err_act) @@ -183,9 +183,9 @@ contains Implicit None class(psb_c_diag_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_diag_precset' call psb_erractionsave(err_act) @@ -212,12 +212,12 @@ contains Implicit None class(psb_c_diag_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='c_diag_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_c_nullprec.f90 b/prec/psb_c_nullprec.f90 index 3667e94f6..a60b866e9 100644 --- a/prec/psb_c_nullprec.f90 +++ b/prec/psb_c_nullprec.f90 @@ -23,13 +23,13 @@ module psb_c_nullprec interface subroutine psb_c_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_null_prec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_null_prec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_null_prec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x complex(psb_spk_),intent(in) :: alpha, beta type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_null_apply_vect @@ -37,13 +37,13 @@ module psb_c_nullprec interface subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_c_null_prec_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_c_null_prec_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_c_null_prec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(in) :: alpha, beta complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_null_apply @@ -58,8 +58,8 @@ contains Implicit None class(psb_c_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precinit' call psb_erractionsave(err_act) @@ -86,12 +86,12 @@ contains type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_c_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precbld' call psb_erractionsave(err_act) @@ -116,10 +116,10 @@ contains Implicit None class(psb_c_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precset' call psb_erractionsave(err_act) @@ -143,10 +143,10 @@ contains Implicit None class(psb_c_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precset' call psb_erractionsave(err_act) @@ -170,10 +170,10 @@ contains Implicit None class(psb_c_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precset' call psb_erractionsave(err_act) @@ -197,9 +197,9 @@ contains Implicit None class(psb_c_null_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='c_null_precset' call psb_erractionsave(err_act) @@ -225,11 +225,11 @@ contains Implicit None class(psb_c_null_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='c_null_precset' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_c_prec_mod.f90 b/prec/psb_c_prec_mod.f90 index 40798f276..add08d833 100644 --- a/prec/psb_c_prec_mod.f90 +++ b/prec/psb_c_prec_mod.f90 @@ -36,14 +36,14 @@ module psb_c_prec_mod interface psb_precbld subroutine psb_cprecbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_cspmat_type,& + import :: psb_ipk_, psb_desc_type, psb_cspmat_type,& & psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type, & & psb_cprec_type implicit none type(psb_cspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_cprec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in),optional :: upd character(len=*), intent(in), optional :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: amold @@ -53,37 +53,37 @@ module psb_c_prec_mod interface psb_precinit subroutine psb_cprecinit(prec,ptype,info) - import :: psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type + import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type implicit none type(psb_cprec_type), intent(inout) :: prec character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cprecinit end interface interface psb_precset subroutine psb_cprecseti(prec,what,val,info) - import :: psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type + import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type implicit none type(psb_cprec_type), intent(inout) :: prec - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info end subroutine psb_cprecseti subroutine psb_cprecsetr(prec,what,val,info) - import :: psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type + import :: psb_ipk_, psb_desc_type, psb_cspmat_type, psb_spk_, psb_cprec_type implicit none type(psb_cprec_type), intent(inout) :: prec - integer :: what + integer(psb_ipk_) :: what real(psb_spk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_cprecsetr end interface interface psb_ilu_fct subroutine psb_cilu_fct(a,l,u,d,info,blck) - import :: psb_desc_type, psb_cspmat_type, & + import :: psb_ipk_, psb_desc_type, psb_cspmat_type, & & psb_c_csr_sparse_mat, psb_spk_ - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_cspmat_type),intent(in) :: a type(psb_c_csr_sparse_mat),intent(inout) :: l,u type(psb_cspmat_type),intent(in), optional, target :: blck diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90 index 07495d84c..a751b9219 100644 --- a/prec/psb_c_prec_type.f90 +++ b/prec/psb_c_prec_type.f90 @@ -71,12 +71,12 @@ module psb_c_prec_type interface subroutine psb_c_apply2_vect(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_apply2_vect @@ -84,11 +84,11 @@ module psb_c_prec_type interface subroutine psb_c_apply1_vect(prec,x,desc_data,info,trans,work) - import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(inout) :: prec type(psb_c_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_apply1_vect @@ -96,12 +96,12 @@ module psb_c_prec_type interface subroutine psb_c_apply2v(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_c_apply2v @@ -109,11 +109,11 @@ module psb_c_prec_type interface subroutine psb_c_apply1v(prec,x,desc_data,info,trans) - import :: psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_cprec_type, psb_c_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_cprec_type), intent(in) :: prec complex(psb_spk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans end subroutine psb_c_apply1v end interface @@ -122,8 +122,8 @@ contains subroutine psb_cfile_prec_descr(p,iout) type(psb_cprec_type), intent(in) :: p - integer, intent(in), optional :: iout - integer :: iout_,info + integer(psb_ipk_), intent(in), optional :: iout + integer(psb_ipk_) :: iout_,info character(len=20) :: name='prec_descr' if (present(iout)) then @@ -143,7 +143,7 @@ contains subroutine psb_c_prec_dump(prec,info,prefix,head) implicit none type(psb_cprec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head ! len of prefix_ @@ -163,8 +163,8 @@ contains subroutine psb_c_precfree(p,info) type(psb_cprec_type), intent(inout) :: p - integer, intent(out) :: info - integer :: me, err_act,i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: me, err_act,i character(len=20) :: name if(psb_get_errstatus() /= 0) return info=psb_success_ @@ -199,7 +199,7 @@ contains function psb_cprec_sizeof(prec) result(val) type(psb_cprec_type), intent(in) :: prec integer(psb_long_int_k_) :: val - integer :: i + integer(psb_ipk_) :: i val = 0 if (allocated(prec%prec)) then diff --git a/prec/psb_d_base_prec_mod.f90 b/prec/psb_d_base_prec_mod.f90 index c67ddd341..fb46f2f6a 100644 --- a/prec/psb_d_base_prec_mod.f90 +++ b/prec/psb_d_base_prec_mod.f90 @@ -36,7 +36,7 @@ module psb_d_base_prec_mod ! Reduces size of .mod file. - use psb_base_mod, only : psb_dpk_, psb_long_int_k_,& + use psb_base_mod, only : psb_dpk_, psb_ipk_, psb_long_int_k_,& & psb_desc_type, psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, & & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, psb_success_,& @@ -46,7 +46,7 @@ module psb_d_base_prec_mod use psb_prec_const_mod type psb_d_base_prec_type - integer :: ictxt + integer(psb_ipk_) :: ictxt contains procedure, pass(prec) :: set_ctxt => psb_d_base_set_ctxt procedure, pass(prec) :: get_ctxt => psb_d_base_get_ctxt @@ -81,10 +81,10 @@ contains real(psb_dpk_),intent(in) :: alpha, beta type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_prec_apply' call psb_erractionsave(err_act) @@ -117,10 +117,10 @@ contains real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_prec_apply' call psb_erractionsave(err_act) @@ -150,8 +150,8 @@ contains Implicit None class(psb_d_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precinit' call psb_erractionsave(err_act) @@ -182,12 +182,12 @@ contains type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precbld' call psb_erractionsave(err_act) @@ -216,10 +216,10 @@ contains Implicit None class(psb_d_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precseti' call psb_erractionsave(err_act) @@ -248,10 +248,10 @@ contains Implicit None class(psb_d_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precsetr' call psb_erractionsave(err_act) @@ -280,10 +280,10 @@ contains Implicit None class(psb_d_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precsetc' call psb_erractionsave(err_act) @@ -312,9 +312,9 @@ contains Implicit None class(psb_d_base_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precfree' call psb_erractionsave(err_act) @@ -345,9 +345,9 @@ contains Implicit None class(psb_d_base_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='d_base_precdescr' call psb_erractionsave(err_act) @@ -376,9 +376,9 @@ contains subroutine psb_d_base_precdump(prec,info,prefix,head) implicit none class(psb_d_base_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_base_precdump' call psb_erractionsave(err_act) @@ -407,7 +407,7 @@ contains subroutine psb_d_base_set_ctxt(prec,ictxt) implicit none class(psb_d_base_prec_type), intent(inout) :: prec - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt prec%ictxt = ictxt @@ -423,7 +423,7 @@ contains function psb_d_base_get_ctxt(prec) result(val) class(psb_d_base_prec_type), intent(in) :: prec - integer :: val + integer(psb_ipk_) :: val val = prec%ictxt return diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90 index 170a63593..86994b104 100644 --- a/prec/psb_d_bjacprec.f90 +++ b/prec/psb_d_bjacprec.f90 @@ -3,7 +3,7 @@ module psb_d_bjacprec use psb_d_base_prec_mod type, extends(psb_d_base_prec_type) :: psb_d_bjac_prec_type - integer, allocatable :: iprcparm(:) + integer(psb_ipk_), allocatable :: iprcparm(:) type(psb_dspmat_type), allocatable :: av(:) type(psb_d_vect_type), allocatable :: dv contains @@ -31,22 +31,22 @@ module psb_d_bjacprec interface subroutine psb_d_bjac_dump(prec,info,prefix,head) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ class(psb_d_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head end subroutine psb_d_bjac_dump end interface interface subroutine psb_d_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_bjac_prec_type), intent(inout) :: prec real(psb_dpk_),intent(in) :: alpha,beta type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_bjac_apply_vect @@ -54,14 +54,14 @@ module psb_d_bjacprec interface subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_bjac_prec_type), intent(in) :: prec real(psb_dpk_),intent(in) :: alpha,beta real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_bjac_apply @@ -69,20 +69,20 @@ module psb_d_bjacprec interface subroutine psb_d_bjac_precinit(prec,info) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_bjac_precinit end interface interface subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_, & + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_, & & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold @@ -92,39 +92,39 @@ module psb_d_bjacprec interface subroutine psb_d_bjac_precseti(prec,what,val,info) - import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_bjac_precseti end interface !!$ interface !!$ subroutine psb_d_bjac_precsetr(prec,what,val,info) -!!$ import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ !!$ class(psb_d_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ real(psb_dpk_), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_d_bjac_precsetr !!$ end interface !!$ !!$ interface !!$ subroutine psb_d_bjac_precsetc(prec,what,val,info) -!!$ import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ !!$ class(psb_d_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ character(len=*), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_d_bjac_precsetc !!$ end interface !!$ !!$ interface !!$ subroutine psb_d_bjac_precfree(prec,info) -!!$ import :: psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_d_bjac_prec_type, psb_d_vect_type, psb_dpk_ !!$ class(psb_d_bjac_prec_type), intent(inout) :: prec -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_d_bjac_precfree !!$ end interface @@ -135,11 +135,11 @@ contains Implicit None class(psb_d_bjac_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='d_bjac_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) @@ -211,10 +211,10 @@ contains Implicit None class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_bjac_precset' call psb_erractionsave(err_act) @@ -238,10 +238,10 @@ contains Implicit None class(psb_d_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_bjac_precset' call psb_erractionsave(err_act) @@ -265,9 +265,9 @@ contains Implicit None class(psb_d_bjac_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, i + integer(psb_ipk_) :: err_act, i character(len=20) :: name='d_bjac_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_d_diagprec.f90 b/prec/psb_d_diagprec.f90 index c671af762..f116d8793 100644 --- a/prec/psb_d_diagprec.f90 +++ b/prec/psb_d_diagprec.f90 @@ -28,13 +28,13 @@ module psb_d_diagprec interface subroutine psb_d_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_diag_prec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x real(psb_dpk_),intent(in) :: alpha, beta type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_diag_apply_vect @@ -42,13 +42,13 @@ module psb_d_diagprec interface subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_diag_prec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_diag_apply @@ -56,12 +56,12 @@ module psb_d_diagprec interface subroutine psb_d_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_, & + import :: psb_ipk_, psb_desc_type, psb_d_diag_prec_type, psb_d_vect_type, psb_dpk_, & & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold @@ -77,8 +77,8 @@ contains Implicit None class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_precinit' call psb_erractionsave(err_act) @@ -103,10 +103,10 @@ contains Implicit None class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_precset' call psb_erractionsave(err_act) @@ -130,10 +130,10 @@ contains Implicit None class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_precset' call psb_erractionsave(err_act) @@ -156,10 +156,10 @@ contains Implicit None class(psb_d_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_precset' call psb_erractionsave(err_act) @@ -183,9 +183,9 @@ contains Implicit None class(psb_d_diag_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_diag_precset' call psb_erractionsave(err_act) @@ -212,12 +212,12 @@ contains Implicit None class(psb_d_diag_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='d_diag_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_d_nullprec.f90 b/prec/psb_d_nullprec.f90 index 6dc615182..d956f1951 100644 --- a/prec/psb_d_nullprec.f90 +++ b/prec/psb_d_nullprec.f90 @@ -23,13 +23,13 @@ module psb_d_nullprec interface subroutine psb_d_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_null_prec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_null_prec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_null_prec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x real(psb_dpk_),intent(in) :: alpha, beta type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_null_apply_vect @@ -37,13 +37,13 @@ module psb_d_nullprec interface subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_d_null_prec_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_d_null_prec_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_d_null_prec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(in) :: alpha, beta real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_null_apply @@ -58,8 +58,8 @@ contains Implicit None class(psb_d_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precinit' call psb_erractionsave(err_act) @@ -86,12 +86,12 @@ contains type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_d_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precbld' call psb_erractionsave(err_act) @@ -116,10 +116,10 @@ contains Implicit None class(psb_d_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precset' call psb_erractionsave(err_act) @@ -143,10 +143,10 @@ contains Implicit None class(psb_d_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precset' call psb_erractionsave(err_act) @@ -170,10 +170,10 @@ contains Implicit None class(psb_d_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precset' call psb_erractionsave(err_act) @@ -197,9 +197,9 @@ contains Implicit None class(psb_d_null_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='d_null_precset' call psb_erractionsave(err_act) @@ -225,11 +225,11 @@ contains Implicit None class(psb_d_null_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='d_null_precset' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_d_prec_mod.f90 b/prec/psb_d_prec_mod.f90 index 83eb0b64a..cb2e988b7 100644 --- a/prec/psb_d_prec_mod.f90 +++ b/prec/psb_d_prec_mod.f90 @@ -36,14 +36,14 @@ module psb_d_prec_mod interface psb_precbld subroutine psb_dprecbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_dspmat_type,& + import :: psb_ipk_, psb_desc_type, psb_dspmat_type,& & psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type, & & psb_dprec_type implicit none type(psb_dspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_dprec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in),optional :: upd character(len=*), intent(in), optional :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: amold @@ -53,37 +53,37 @@ module psb_d_prec_mod interface psb_precinit subroutine psb_dprecinit(prec,ptype,info) - import :: psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type + import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type implicit none type(psb_dprec_type), intent(inout) :: prec character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dprecinit end interface interface psb_precset subroutine psb_dprecseti(prec,what,val,info) - import :: psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type + import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type implicit none type(psb_dprec_type), intent(inout) :: prec - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info end subroutine psb_dprecseti subroutine psb_dprecsetr(prec,what,val,info) - import :: psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type + import :: psb_ipk_, psb_desc_type, psb_dspmat_type, psb_dpk_, psb_dprec_type implicit none type(psb_dprec_type), intent(inout) :: prec - integer :: what + integer(psb_ipk_) :: what real(psb_dpk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_dprecsetr end interface interface psb_ilu_fct subroutine psb_dilu_fct(a,l,u,d,info,blck) - import :: psb_desc_type, psb_dspmat_type, & + import :: psb_ipk_, psb_desc_type, psb_dspmat_type, & & psb_d_csr_sparse_mat, psb_dpk_ - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_dspmat_type),intent(in) :: a type(psb_d_csr_sparse_mat),intent(inout) :: l,u type(psb_dspmat_type),intent(in), optional, target :: blck diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index 3bc0ad220..c03326d3e 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -71,12 +71,12 @@ module psb_d_prec_type interface subroutine psb_d_apply2_vect(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_apply2_vect @@ -84,11 +84,11 @@ module psb_d_prec_type interface subroutine psb_d_apply1_vect(prec,x,desc_data,info,trans,work) - import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(inout) :: prec type(psb_d_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_apply1_vect @@ -96,12 +96,12 @@ module psb_d_prec_type interface subroutine psb_d_apply2v(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_d_apply2v @@ -109,11 +109,11 @@ module psb_d_prec_type interface subroutine psb_d_apply1v(prec,x,desc_data,info,trans) - import :: psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_dprec_type, psb_d_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans end subroutine psb_d_apply1v end interface @@ -122,8 +122,8 @@ contains subroutine psb_dfile_prec_descr(p,iout) type(psb_dprec_type), intent(in) :: p - integer, intent(in), optional :: iout - integer :: iout_,info + integer(psb_ipk_), intent(in), optional :: iout + integer(psb_ipk_) :: iout_,info character(len=20) :: name='prec_descr' if (present(iout)) then @@ -143,7 +143,7 @@ contains subroutine psb_d_prec_dump(prec,info,prefix,head) implicit none type(psb_dprec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head ! len of prefix_ @@ -163,8 +163,8 @@ contains subroutine psb_d_precfree(p,info) type(psb_dprec_type), intent(inout) :: p - integer, intent(out) :: info - integer :: me, err_act,i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: me, err_act,i character(len=20) :: name if(psb_get_errstatus() /= 0) return info=psb_success_ @@ -199,7 +199,7 @@ contains function psb_dprec_sizeof(prec) result(val) type(psb_dprec_type), intent(in) :: prec integer(psb_long_int_k_) :: val - integer :: i + integer(psb_ipk_) :: i val = 0 if (allocated(prec%prec)) then diff --git a/prec/psb_prec_const_mod.f90 b/prec/psb_prec_const_mod.f90 index 45b49cb4c..bf4626a80 100644 --- a/prec/psb_prec_const_mod.f90 +++ b/prec/psb_prec_const_mod.f90 @@ -35,29 +35,29 @@ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! module psb_prec_const_mod - use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,& + use psb_base_mod, only : psb_dpk_, psb_spk_, psb_ipk_, psb_long_int_k_,& & psb_err_unit, psb_inp_unit, psb_out_unit - integer, parameter :: psb_min_prec_=0, psb_noprec_=0, psb_diag_=1, & + integer(psb_ipk_), parameter :: psb_min_prec_=0, psb_noprec_=0, psb_diag_=1, & & psb_bjac_=2, psb_max_prec_=2 ! Entries in iprcparm: preconditioner type, factorization type, ! prolongation type, restriction type, renumbering algorithm, ! number of overlap layers, pointer to SuperLU factors, ! levels of fill in for ILU(N), - integer, parameter :: psb_p_type_=1, psb_f_type_=2 - integer, parameter :: psb_ilu_fill_in_=8 + integer(psb_ipk_), parameter :: psb_p_type_=1, psb_f_type_=2 + integer(psb_ipk_), parameter :: psb_ilu_fill_in_=8 !Renumbering. SEE BELOW - integer, parameter :: psb_renum_none_=0, psb_renum_glb_=1, psb_renum_gps_=2 - integer, parameter :: psb_ifpsz=10 + integer(psb_ipk_), parameter :: psb_renum_none_=0, psb_renum_glb_=1, psb_renum_gps_=2 + integer(psb_ipk_), parameter :: psb_ifpsz=10 ! Entries in rprcparm: ILU(E) epsilon, smoother omega - integer, parameter :: psb_fact_eps_=1 - integer, parameter :: psb_rfpsz=4 + integer(psb_ipk_), parameter :: psb_fact_eps_=1 + integer(psb_ipk_), parameter :: psb_rfpsz=4 ! Factorization types: none, ILU(N), ILU(E) - integer, parameter :: psb_f_none_=0,psb_f_ilu_n_=1 + integer(psb_ipk_), parameter :: psb_f_none_=0,psb_f_ilu_n_=1 ! Fields for sparse matrices ensembles: - integer, parameter :: psb_l_pr_=1, psb_u_pr_=2, psb_bp_ilu_avsz=2 - integer, parameter :: psb_max_avsz=psb_bp_ilu_avsz + integer(psb_ipk_), parameter :: psb_l_pr_=1, psb_u_pr_=2, psb_bp_ilu_avsz=2 + integer(psb_ipk_), parameter :: psb_max_avsz=psb_bp_ilu_avsz interface psb_check_def @@ -70,7 +70,7 @@ contains function pr_to_str(iprec) - integer, intent(in) :: iprec + integer(psb_ipk_), intent(in) :: iprec character(len=10) :: pr_to_str select case(iprec) @@ -88,14 +88,14 @@ contains function is_legal_prec(ip) - integer, intent(in) :: ip + integer(psb_ipk_), intent(in) :: ip logical :: is_legal_prec is_legal_prec = ((ip>=psb_noprec_).and.(ip<=psb_bjac_)) return end function is_legal_prec function is_legal_ml_fact(ip) - integer, intent(in) :: ip + integer(psb_ipk_), intent(in) :: ip logical :: is_legal_ml_fact is_legal_ml_fact = (ip == psb_f_ilu_n_) @@ -111,12 +111,13 @@ contains subroutine psb_icheck_def(ip,name,id,is_legal) - integer, intent(inout) :: ip - integer, intent(in) :: id + integer(psb_ipk_), intent(inout) :: ip + integer(psb_ipk_), intent(in) :: id character(len=*), intent(in) :: name interface function is_legal(i) - integer, intent(in) :: i + import :: psb_ipk_ + integer(psb_ipk_), intent(in) :: i logical :: is_legal end function is_legal end interface @@ -133,7 +134,7 @@ contains character(len=*), intent(in) :: name interface function is_legal(i) - use psb_const_mod + import :: psb_ipk_, psb_spk_ real(psb_spk_), intent(in) :: i logical :: is_legal end function is_legal @@ -151,7 +152,7 @@ contains character(len=*), intent(in) :: name interface function is_legal(i) - use psb_const_mod + import :: psb_ipk_, psb_spk_, psb_dpk_ real(psb_dpk_), intent(in) :: i logical :: is_legal end function is_legal diff --git a/prec/psb_s_base_prec_mod.f90 b/prec/psb_s_base_prec_mod.f90 index 4a8d475a0..62bfe93a9 100644 --- a/prec/psb_s_base_prec_mod.f90 +++ b/prec/psb_s_base_prec_mod.f90 @@ -36,7 +36,7 @@ module psb_s_base_prec_mod ! Reduces size of .mod file. - use psb_base_mod, only : psb_spk_, psb_long_int_k_,& + use psb_base_mod, only : psb_spk_, psb_ipk_, psb_long_int_k_,& & psb_desc_type, psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, & & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, psb_success_,& @@ -46,7 +46,7 @@ module psb_s_base_prec_mod use psb_prec_const_mod type psb_s_base_prec_type - integer :: ictxt + integer(psb_ipk_) :: ictxt contains procedure, pass(prec) :: set_ctxt => psb_s_base_set_ctxt procedure, pass(prec) :: get_ctxt => psb_s_base_get_ctxt @@ -81,10 +81,10 @@ contains real(psb_spk_),intent(in) :: alpha, beta type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_prec_apply' call psb_erractionsave(err_act) @@ -117,10 +117,10 @@ contains real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_prec_apply' call psb_erractionsave(err_act) @@ -150,8 +150,8 @@ contains Implicit None class(psb_s_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precinit' call psb_erractionsave(err_act) @@ -182,12 +182,12 @@ contains type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precbld' call psb_erractionsave(err_act) @@ -216,10 +216,10 @@ contains Implicit None class(psb_s_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precseti' call psb_erractionsave(err_act) @@ -248,10 +248,10 @@ contains Implicit None class(psb_s_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precsetr' call psb_erractionsave(err_act) @@ -280,10 +280,10 @@ contains Implicit None class(psb_s_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precsetc' call psb_erractionsave(err_act) @@ -312,9 +312,9 @@ contains Implicit None class(psb_s_base_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precfree' call psb_erractionsave(err_act) @@ -345,9 +345,9 @@ contains Implicit None class(psb_s_base_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='s_base_precdescr' call psb_erractionsave(err_act) @@ -376,9 +376,9 @@ contains subroutine psb_s_base_precdump(prec,info,prefix,head) implicit none class(psb_s_base_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_base_precdump' call psb_erractionsave(err_act) @@ -407,7 +407,7 @@ contains subroutine psb_s_base_set_ctxt(prec,ictxt) implicit none class(psb_s_base_prec_type), intent(inout) :: prec - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt prec%ictxt = ictxt @@ -423,7 +423,7 @@ contains function psb_s_base_get_ctxt(prec) result(val) class(psb_s_base_prec_type), intent(in) :: prec - integer :: val + integer(psb_ipk_) :: val val = prec%ictxt return diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90 index 576f48160..eb308f510 100644 --- a/prec/psb_s_bjacprec.f90 +++ b/prec/psb_s_bjacprec.f90 @@ -3,7 +3,7 @@ module psb_s_bjacprec use psb_s_base_prec_mod type, extends(psb_s_base_prec_type) :: psb_s_bjac_prec_type - integer, allocatable :: iprcparm(:) + integer(psb_ipk_), allocatable :: iprcparm(:) type(psb_sspmat_type), allocatable :: av(:) type(psb_s_vect_type), allocatable :: dv contains @@ -31,22 +31,22 @@ module psb_s_bjacprec interface subroutine psb_s_bjac_dump(prec,info,prefix,head) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ class(psb_s_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head end subroutine psb_s_bjac_dump end interface interface subroutine psb_s_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_bjac_prec_type), intent(inout) :: prec real(psb_spk_),intent(in) :: alpha,beta type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_bjac_apply_vect @@ -54,14 +54,14 @@ module psb_s_bjacprec interface subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_bjac_prec_type), intent(in) :: prec real(psb_spk_),intent(in) :: alpha,beta real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_bjac_apply @@ -69,20 +69,20 @@ module psb_s_bjacprec interface subroutine psb_s_bjac_precinit(prec,info) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_bjac_precinit end interface interface subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_, & + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_, & & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold @@ -92,39 +92,39 @@ module psb_s_bjacprec interface subroutine psb_s_bjac_precseti(prec,what,val,info) - import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_bjac_precseti end interface !!$ interface !!$ subroutine psb_s_bjac_precsetr(prec,what,val,info) -!!$ import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ !!$ class(psb_s_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ real(psb_spk_), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_s_bjac_precsetr !!$ end interface !!$ !!$ interface !!$ subroutine psb_s_bjac_precsetc(prec,what,val,info) -!!$ import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ !!$ class(psb_s_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ character(len=*), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_s_bjac_precsetc !!$ end interface !!$ !!$ interface !!$ subroutine psb_s_bjac_precfree(prec,info) -!!$ import :: psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_s_bjac_prec_type, psb_s_vect_type, psb_spk_ !!$ class(psb_s_bjac_prec_type), intent(inout) :: prec -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_s_bjac_precfree !!$ end interface @@ -135,11 +135,11 @@ contains Implicit None class(psb_s_bjac_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='s_bjac_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) @@ -211,10 +211,10 @@ contains Implicit None class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_bjac_precset' call psb_erractionsave(err_act) @@ -238,10 +238,10 @@ contains Implicit None class(psb_s_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_bjac_precset' call psb_erractionsave(err_act) @@ -265,9 +265,9 @@ contains Implicit None class(psb_s_bjac_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, i + integer(psb_ipk_) :: err_act, i character(len=20) :: name='s_bjac_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_s_diagprec.f90 b/prec/psb_s_diagprec.f90 index 41dcd41a6..87304ccce 100644 --- a/prec/psb_s_diagprec.f90 +++ b/prec/psb_s_diagprec.f90 @@ -28,13 +28,13 @@ module psb_s_diagprec interface subroutine psb_s_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_diag_prec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x real(psb_spk_),intent(in) :: alpha, beta type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_diag_apply_vect @@ -42,13 +42,13 @@ module psb_s_diagprec interface subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_diag_prec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_diag_apply @@ -56,12 +56,12 @@ module psb_s_diagprec interface subroutine psb_s_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_, & + import :: psb_ipk_, psb_desc_type, psb_s_diag_prec_type, psb_s_vect_type, psb_spk_, & & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold @@ -77,8 +77,8 @@ contains Implicit None class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_precinit' call psb_erractionsave(err_act) @@ -103,10 +103,10 @@ contains Implicit None class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_precset' call psb_erractionsave(err_act) @@ -130,10 +130,10 @@ contains Implicit None class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_precset' call psb_erractionsave(err_act) @@ -156,10 +156,10 @@ contains Implicit None class(psb_s_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_precset' call psb_erractionsave(err_act) @@ -183,9 +183,9 @@ contains Implicit None class(psb_s_diag_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_diag_precset' call psb_erractionsave(err_act) @@ -212,12 +212,12 @@ contains Implicit None class(psb_s_diag_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='s_diag_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_s_nullprec.f90 b/prec/psb_s_nullprec.f90 index b8690f945..e460b46d1 100644 --- a/prec/psb_s_nullprec.f90 +++ b/prec/psb_s_nullprec.f90 @@ -23,13 +23,13 @@ module psb_s_nullprec interface subroutine psb_s_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_null_prec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_null_prec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_null_prec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x real(psb_spk_),intent(in) :: alpha, beta type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_null_apply_vect @@ -37,13 +37,13 @@ module psb_s_nullprec interface subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_s_null_prec_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_s_null_prec_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_s_null_prec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(in) :: alpha, beta real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_null_apply @@ -58,8 +58,8 @@ contains Implicit None class(psb_s_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precinit' call psb_erractionsave(err_act) @@ -86,12 +86,12 @@ contains type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_s_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precbld' call psb_erractionsave(err_act) @@ -116,10 +116,10 @@ contains Implicit None class(psb_s_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precset' call psb_erractionsave(err_act) @@ -143,10 +143,10 @@ contains Implicit None class(psb_s_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precset' call psb_erractionsave(err_act) @@ -170,10 +170,10 @@ contains Implicit None class(psb_s_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precset' call psb_erractionsave(err_act) @@ -197,9 +197,9 @@ contains Implicit None class(psb_s_null_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='s_null_precset' call psb_erractionsave(err_act) @@ -225,11 +225,11 @@ contains Implicit None class(psb_s_null_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='s_null_precset' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_s_prec_mod.f90 b/prec/psb_s_prec_mod.f90 index a3fe0e39c..c8b6168a9 100644 --- a/prec/psb_s_prec_mod.f90 +++ b/prec/psb_s_prec_mod.f90 @@ -36,14 +36,14 @@ module psb_s_prec_mod interface psb_precbld subroutine psb_sprecbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_sspmat_type,& + import :: psb_ipk_, psb_desc_type, psb_sspmat_type,& & psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type, & & psb_sprec_type implicit none type(psb_sspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_sprec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in),optional :: upd character(len=*), intent(in), optional :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: amold @@ -53,37 +53,37 @@ module psb_s_prec_mod interface psb_precinit subroutine psb_sprecinit(prec,ptype,info) - import :: psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type + import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type implicit none type(psb_sprec_type), intent(inout) :: prec character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sprecinit end interface interface psb_precset subroutine psb_sprecseti(prec,what,val,info) - import :: psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type + import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type implicit none type(psb_sprec_type), intent(inout) :: prec - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info end subroutine psb_sprecseti subroutine psb_sprecsetr(prec,what,val,info) - import :: psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type + import :: psb_ipk_, psb_desc_type, psb_sspmat_type, psb_spk_, psb_sprec_type implicit none type(psb_sprec_type), intent(inout) :: prec - integer :: what + integer(psb_ipk_) :: what real(psb_spk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_sprecsetr end interface interface psb_ilu_fct subroutine psb_silu_fct(a,l,u,d,info,blck) - import :: psb_desc_type, psb_sspmat_type, & + import :: psb_ipk_, psb_desc_type, psb_sspmat_type, & & psb_s_csr_sparse_mat, psb_spk_ - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_sspmat_type),intent(in) :: a type(psb_s_csr_sparse_mat),intent(inout) :: l,u type(psb_sspmat_type),intent(in), optional, target :: blck diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90 index 0f410ba1d..7bd29d007 100644 --- a/prec/psb_s_prec_type.f90 +++ b/prec/psb_s_prec_type.f90 @@ -71,12 +71,12 @@ module psb_s_prec_type interface subroutine psb_s_apply2_vect(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_apply2_vect @@ -84,11 +84,11 @@ module psb_s_prec_type interface subroutine psb_s_apply1_vect(prec,x,desc_data,info,trans,work) - import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(inout) :: prec type(psb_s_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_apply1_vect @@ -96,12 +96,12 @@ module psb_s_prec_type interface subroutine psb_s_apply2v(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans real(psb_spk_),intent(inout), optional, target :: work(:) end subroutine psb_s_apply2v @@ -109,11 +109,11 @@ module psb_s_prec_type interface subroutine psb_s_apply1v(prec,x,desc_data,info,trans) - import :: psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ + import :: psb_ipk_, psb_desc_type, psb_sprec_type, psb_s_vect_type, psb_spk_ type(psb_desc_type),intent(in) :: desc_data class(psb_sprec_type), intent(in) :: prec real(psb_spk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans end subroutine psb_s_apply1v end interface @@ -122,8 +122,8 @@ contains subroutine psb_sfile_prec_descr(p,iout) type(psb_sprec_type), intent(in) :: p - integer, intent(in), optional :: iout - integer :: iout_,info + integer(psb_ipk_), intent(in), optional :: iout + integer(psb_ipk_) :: iout_,info character(len=20) :: name='prec_descr' if (present(iout)) then @@ -143,7 +143,7 @@ contains subroutine psb_s_prec_dump(prec,info,prefix,head) implicit none type(psb_sprec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head ! len of prefix_ @@ -163,8 +163,8 @@ contains subroutine psb_s_precfree(p,info) type(psb_sprec_type), intent(inout) :: p - integer, intent(out) :: info - integer :: me, err_act,i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: me, err_act,i character(len=20) :: name if(psb_get_errstatus() /= 0) return info=psb_success_ @@ -199,7 +199,7 @@ contains function psb_sprec_sizeof(prec) result(val) type(psb_sprec_type), intent(in) :: prec integer(psb_long_int_k_) :: val - integer :: i + integer(psb_ipk_) :: i val = 0 if (allocated(prec%prec)) then diff --git a/prec/psb_z_base_prec_mod.f90 b/prec/psb_z_base_prec_mod.f90 index ebd994852..381265feb 100644 --- a/prec/psb_z_base_prec_mod.f90 +++ b/prec/psb_z_base_prec_mod.f90 @@ -36,7 +36,7 @@ module psb_z_base_prec_mod ! Reduces size of .mod file. - use psb_base_mod, only : psb_dpk_, psb_long_int_k_,& + use psb_base_mod, only : psb_dpk_, psb_ipk_, psb_long_int_k_,& & psb_desc_type, psb_sizeof, psb_free, psb_cdfree, psb_errpush, psb_act_abort_,& & psb_sizeof_int, psb_sizeof_long_int, psb_sizeof_sp, psb_sizeof_dp, & & psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus, psb_success_,& @@ -46,7 +46,7 @@ module psb_z_base_prec_mod use psb_prec_const_mod type psb_z_base_prec_type - integer :: ictxt + integer(psb_ipk_) :: ictxt contains procedure, pass(prec) :: set_ctxt => psb_z_base_set_ctxt procedure, pass(prec) :: get_ctxt => psb_z_base_get_ctxt @@ -81,10 +81,10 @@ contains complex(psb_dpk_),intent(in) :: alpha, beta type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_prec_apply' call psb_erractionsave(err_act) @@ -117,10 +117,10 @@ contains complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_prec_apply' call psb_erractionsave(err_act) @@ -150,8 +150,8 @@ contains Implicit None class(psb_z_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precinit' call psb_erractionsave(err_act) @@ -182,12 +182,12 @@ contains type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_base_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precbld' call psb_erractionsave(err_act) @@ -216,10 +216,10 @@ contains Implicit None class(psb_z_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precseti' call psb_erractionsave(err_act) @@ -248,10 +248,10 @@ contains Implicit None class(psb_z_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precsetr' call psb_erractionsave(err_act) @@ -280,10 +280,10 @@ contains Implicit None class(psb_z_base_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precsetc' call psb_erractionsave(err_act) @@ -312,9 +312,9 @@ contains Implicit None class(psb_z_base_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precfree' call psb_erractionsave(err_act) @@ -345,9 +345,9 @@ contains Implicit None class(psb_z_base_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='z_base_precdescr' call psb_erractionsave(err_act) @@ -376,9 +376,9 @@ contains subroutine psb_z_base_precdump(prec,info,prefix,head) implicit none class(psb_z_base_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_base_precdump' call psb_erractionsave(err_act) @@ -407,7 +407,7 @@ contains subroutine psb_z_base_set_ctxt(prec,ictxt) implicit none class(psb_z_base_prec_type), intent(inout) :: prec - integer, intent(in) :: ictxt + integer(psb_ipk_), intent(in) :: ictxt prec%ictxt = ictxt @@ -423,7 +423,7 @@ contains function psb_z_base_get_ctxt(prec) result(val) class(psb_z_base_prec_type), intent(in) :: prec - integer :: val + integer(psb_ipk_) :: val val = prec%ictxt return diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90 index 33775b9f0..f4bd79807 100644 --- a/prec/psb_z_bjacprec.f90 +++ b/prec/psb_z_bjacprec.f90 @@ -3,7 +3,7 @@ module psb_z_bjacprec use psb_z_base_prec_mod type, extends(psb_z_base_prec_type) :: psb_z_bjac_prec_type - integer, allocatable :: iprcparm(:) + integer(psb_ipk_), allocatable :: iprcparm(:) type(psb_zspmat_type), allocatable :: av(:) type(psb_z_vect_type), allocatable :: dv contains @@ -31,22 +31,22 @@ module psb_z_bjacprec interface subroutine psb_z_bjac_dump(prec,info,prefix,head) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ class(psb_z_bjac_prec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head end subroutine psb_z_bjac_dump end interface interface subroutine psb_z_bjac_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_bjac_prec_type), intent(inout) :: prec complex(psb_dpk_),intent(in) :: alpha,beta type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_bjac_apply_vect @@ -54,14 +54,14 @@ module psb_z_bjacprec interface subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_bjac_prec_type), intent(in) :: prec complex(psb_dpk_),intent(in) :: alpha,beta complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_bjac_apply @@ -69,20 +69,20 @@ module psb_z_bjacprec interface subroutine psb_z_bjac_precinit(prec,info) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_bjac_precinit end interface interface subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_, & + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_, & & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold @@ -92,39 +92,39 @@ module psb_z_bjacprec interface subroutine psb_z_bjac_precseti(prec,what,val,info) - import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_bjac_precseti end interface !!$ interface !!$ subroutine psb_z_bjac_precsetr(prec,what,val,info) -!!$ import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ !!$ class(psb_z_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ real(psb_dpk_), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_z_bjac_precsetr !!$ end interface !!$ !!$ interface !!$ subroutine psb_z_bjac_precsetc(prec,what,val,info) -!!$ import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ !!$ class(psb_z_bjac_prec_type),intent(inout) :: prec -!!$ integer, intent(in) :: what +!!$ integer(psb_ipk_), intent(in) :: what !!$ character(len=*), intent(in) :: val -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_z_bjac_precsetc !!$ end interface !!$ !!$ interface !!$ subroutine psb_z_bjac_precfree(prec,info) -!!$ import :: psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ +!!$ import :: psb_ipk_, psb_desc_type, psb_z_bjac_prec_type, psb_z_vect_type, psb_dpk_ !!$ class(psb_z_bjac_prec_type), intent(inout) :: prec -!!$ integer, intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ end subroutine psb_z_bjac_precfree !!$ end interface @@ -135,11 +135,11 @@ contains Implicit None class(psb_z_bjac_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='z_bjac_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) @@ -211,10 +211,10 @@ contains Implicit None class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_bjac_precset' call psb_erractionsave(err_act) @@ -238,10 +238,10 @@ contains Implicit None class(psb_z_bjac_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_bjac_precset' call psb_erractionsave(err_act) @@ -265,9 +265,9 @@ contains Implicit None class(psb_z_bjac_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, i + integer(psb_ipk_) :: err_act, i character(len=20) :: name='z_bjac_precfree' call psb_erractionsave(err_act) diff --git a/prec/psb_z_diagprec.f90 b/prec/psb_z_diagprec.f90 index 96e01316f..fba7ea435 100644 --- a/prec/psb_z_diagprec.f90 +++ b/prec/psb_z_diagprec.f90 @@ -28,13 +28,13 @@ module psb_z_diagprec interface subroutine psb_z_diag_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_diag_prec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x complex(psb_dpk_),intent(in) :: alpha, beta type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_diag_apply_vect @@ -42,13 +42,13 @@ module psb_z_diagprec interface subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_diag_prec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_diag_apply @@ -56,12 +56,12 @@ module psb_z_diagprec interface subroutine psb_z_diag_precbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_, & + import :: psb_ipk_, psb_desc_type, psb_z_diag_prec_type, psb_z_vect_type, psb_dpk_, & & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold @@ -77,8 +77,8 @@ contains Implicit None class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_precinit' call psb_erractionsave(err_act) @@ -103,10 +103,10 @@ contains Implicit None class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_precset' call psb_erractionsave(err_act) @@ -130,10 +130,10 @@ contains Implicit None class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_precset' call psb_erractionsave(err_act) @@ -156,10 +156,10 @@ contains Implicit None class(psb_z_diag_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_precset' call psb_erractionsave(err_act) @@ -183,9 +183,9 @@ contains Implicit None class(psb_z_diag_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_diag_precset' call psb_erractionsave(err_act) @@ -212,12 +212,12 @@ contains Implicit None class(psb_z_diag_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='z_diag_precdescr' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_z_nullprec.f90 b/prec/psb_z_nullprec.f90 index 0ae8fee54..f7bb82087 100644 --- a/prec/psb_z_nullprec.f90 +++ b/prec/psb_z_nullprec.f90 @@ -23,13 +23,13 @@ module psb_z_nullprec interface subroutine psb_z_null_apply_vect(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_null_prec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_null_prec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_null_prec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x complex(psb_dpk_),intent(in) :: alpha, beta type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_null_apply_vect @@ -37,13 +37,13 @@ module psb_z_nullprec interface subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_z_null_prec_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_z_null_prec_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_z_null_prec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(in) :: alpha, beta complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_null_apply @@ -58,8 +58,8 @@ contains Implicit None class(psb_z_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precinit' call psb_erractionsave(err_act) @@ -86,12 +86,12 @@ contains type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a class(psb_z_null_prec_type),intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precbld' call psb_erractionsave(err_act) @@ -116,10 +116,10 @@ contains Implicit None class(psb_z_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precset' call psb_erractionsave(err_act) @@ -143,10 +143,10 @@ contains Implicit None class(psb_z_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precset' call psb_erractionsave(err_act) @@ -170,10 +170,10 @@ contains Implicit None class(psb_z_null_prec_type),intent(inout) :: prec - integer, intent(in) :: what + integer(psb_ipk_), intent(in) :: what character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precset' call psb_erractionsave(err_act) @@ -197,9 +197,9 @@ contains Implicit None class(psb_z_null_prec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, nrow + integer(psb_ipk_) :: err_act, nrow character(len=20) :: name='z_null_precset' call psb_erractionsave(err_act) @@ -225,11 +225,11 @@ contains Implicit None class(psb_z_null_prec_type), intent(in) :: prec - integer, intent(in), optional :: iout + integer(psb_ipk_), intent(in), optional :: iout - Integer :: err_act, nrow, info + integer(psb_ipk_) :: err_act, nrow, info character(len=20) :: name='z_null_precset' - integer :: iout_ + integer(psb_ipk_) :: iout_ call psb_erractionsave(err_act) diff --git a/prec/psb_z_prec_mod.f90 b/prec/psb_z_prec_mod.f90 index e6ec212de..7b8e7dbf3 100644 --- a/prec/psb_z_prec_mod.f90 +++ b/prec/psb_z_prec_mod.f90 @@ -36,14 +36,14 @@ module psb_z_prec_mod interface psb_precbld subroutine psb_zprecbld(a,desc_a,prec,info,upd,amold,afmt,vmold) - import :: psb_desc_type, psb_zspmat_type,& + import :: psb_ipk_, psb_desc_type, psb_zspmat_type,& & psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type, & & psb_zprec_type implicit none type(psb_zspmat_type), intent(in), target :: a type(psb_desc_type), intent(in), target :: desc_a type(psb_zprec_type), intent(inout) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, intent(in),optional :: upd character(len=*), intent(in), optional :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: amold @@ -53,37 +53,37 @@ module psb_z_prec_mod interface psb_precinit subroutine psb_zprecinit(prec,ptype,info) - import :: psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type + import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type implicit none type(psb_zprec_type), intent(inout) :: prec character(len=*), intent(in) :: ptype - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zprecinit end interface interface psb_precset subroutine psb_zprecseti(prec,what,val,info) - import :: psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type + import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type implicit none type(psb_zprec_type), intent(inout) :: prec - integer :: what, val - integer, intent(out) :: info + integer(psb_ipk_) :: what, val + integer(psb_ipk_), intent(out) :: info end subroutine psb_zprecseti subroutine psb_zprecsetr(prec,what,val,info) - import :: psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type + import :: psb_ipk_, psb_desc_type, psb_zspmat_type, psb_dpk_, psb_zprec_type implicit none type(psb_zprec_type), intent(inout) :: prec - integer :: what + integer(psb_ipk_) :: what real(psb_dpk_) :: val - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_zprecsetr end interface interface psb_ilu_fct subroutine psb_zilu_fct(a,l,u,d,info,blck) - import :: psb_desc_type, psb_zspmat_type, & + import :: psb_ipk_, psb_desc_type, psb_zspmat_type, & & psb_z_csr_sparse_mat, psb_dpk_ - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_zspmat_type),intent(in) :: a type(psb_z_csr_sparse_mat),intent(inout) :: l,u type(psb_zspmat_type),intent(in), optional, target :: blck diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90 index 5da10c3aa..bf769bf0d 100644 --- a/prec/psb_z_prec_type.f90 +++ b/prec/psb_z_prec_type.f90 @@ -71,12 +71,12 @@ module psb_z_prec_type interface subroutine psb_z_apply2_vect(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_apply2_vect @@ -84,11 +84,11 @@ module psb_z_prec_type interface subroutine psb_z_apply1_vect(prec,x,desc_data,info,trans,work) - import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(inout) :: prec type(psb_z_vect_type),intent(inout) :: x - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_apply1_vect @@ -96,12 +96,12 @@ module psb_z_prec_type interface subroutine psb_z_apply2v(prec,x,y,desc_data,info,trans,work) - import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans complex(psb_dpk_),intent(inout), optional, target :: work(:) end subroutine psb_z_apply2v @@ -109,11 +109,11 @@ module psb_z_prec_type interface subroutine psb_z_apply1v(prec,x,desc_data,info,trans) - import :: psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ + import :: psb_ipk_, psb_desc_type, psb_zprec_type, psb_z_vect_type, psb_dpk_ type(psb_desc_type),intent(in) :: desc_data class(psb_zprec_type), intent(in) :: prec complex(psb_dpk_),intent(inout) :: x(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), optional :: trans end subroutine psb_z_apply1v end interface @@ -122,8 +122,8 @@ contains subroutine psb_zfile_prec_descr(p,iout) type(psb_zprec_type), intent(in) :: p - integer, intent(in), optional :: iout - integer :: iout_,info + integer(psb_ipk_), intent(in), optional :: iout + integer(psb_ipk_) :: iout_,info character(len=20) :: name='prec_descr' if (present(iout)) then @@ -143,7 +143,7 @@ contains subroutine psb_z_prec_dump(prec,info,prefix,head) implicit none type(psb_zprec_type), intent(in) :: prec - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix,head ! len of prefix_ @@ -163,8 +163,8 @@ contains subroutine psb_z_precfree(p,info) type(psb_zprec_type), intent(inout) :: p - integer, intent(out) :: info - integer :: me, err_act,i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: me, err_act,i character(len=20) :: name if(psb_get_errstatus() /= 0) return info=psb_success_ @@ -199,7 +199,7 @@ contains function psb_zprec_sizeof(prec) result(val) type(psb_zprec_type), intent(in) :: prec integer(psb_long_int_k_) :: val - integer :: i + integer(psb_ipk_) :: i val = 0 if (allocated(prec%prec)) then diff --git a/test/fileread/cf_sample.f90 b/test/fileread/cf_sample.f90 index baef7b3d6..48d33aa89 100644 --- a/test/fileread/cf_sample.f90 +++ b/test/fileread/cf_sample.f90 @@ -55,10 +55,10 @@ program cf_sample ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_spk_) :: err, eps @@ -66,16 +66,16 @@ program cf_sample character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, tprec real(psb_spk_) :: r_amax, b_amax, scale,resmx,resmxp - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:), perm(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:) character(len=40) :: fname, fnout diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90 index 75e173728..961ce6d20 100644 --- a/test/fileread/df_sample.f90 +++ b/test/fileread/df_sample.f90 @@ -56,10 +56,10 @@ program df_sample ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps,cond @@ -67,16 +67,16 @@ program df_sample character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, tprec, r_amax, b_amax,& &scale,resmx,resmxp - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:), perm(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:) character(len=40) :: fname, fnout @@ -94,6 +94,7 @@ program df_sample if(psb_get_errstatus() /= 0) goto 9999 info=psb_success_ call psb_set_errverbosity(2) + call psb_cd_set_large_threshold(2) ! ! Hello world ! diff --git a/test/fileread/getp.f90 b/test/fileread/getp.f90 index 9a38e3a26..18922411d 100644 --- a/test/fileread/getp.f90 +++ b/test/fileread/getp.f90 @@ -41,15 +41,15 @@ contains subroutine get_dparms(ictxt,mtrx_file,rhs_file,filefmt,kmethd,ptype,ipart,& & afmt,istopc,itmax,itrace,irst,eps) use psb_base_mod - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=2) :: filefmt character(len=40) :: kmethd, mtrx_file, rhs_file, ptype - integer :: iret, istopc,itmax,itrace,ipart,irst + integer(psb_ipk_) :: iret, istopc,itmax,itrace,ipart,irst character(len=40) :: charbuf real(psb_dpk_) :: eps character :: afmt*5 - integer :: np, iam - integer :: inparms(40), ip + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: inparms(40), ip call psb_info(ictxt,iam,np) if (iam == 0) then @@ -142,15 +142,15 @@ contains subroutine get_sparms(ictxt,mtrx_file,rhs_file,filefmt,kmethd,ptype,ipart,& & afmt,istopc,itmax,itrace,irst,eps) use psb_base_mod - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=2) :: filefmt character(len=40) :: kmethd, mtrx_file, rhs_file, ptype - integer :: iret, istopc,itmax,itrace,ipart,irst + integer(psb_ipk_) :: iret, istopc,itmax,itrace,ipart,irst character(len=40) :: charbuf real(psb_spk_) :: eps character :: afmt*5 - integer :: np, iam - integer :: inparms(40), ip + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: inparms(40), ip call psb_info(ictxt,iam,np) if (iam == 0) then diff --git a/test/fileread/sf_sample.f90 b/test/fileread/sf_sample.f90 index c7ffe1b10..56728d5bc 100644 --- a/test/fileread/sf_sample.f90 +++ b/test/fileread/sf_sample.f90 @@ -56,10 +56,10 @@ program sf_sample ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_spk_) :: err, eps,cond @@ -67,16 +67,16 @@ program sf_sample character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, tprec real(psb_spk_) :: r_amax, b_amax, scale,resmx,resmxp - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:), perm(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:) character(len=40) :: fname, fnout diff --git a/test/fileread/zf_sample.f90 b/test/fileread/zf_sample.f90 index 7cf848785..def735498 100644 --- a/test/fileread/zf_sample.f90 +++ b/test/fileread/zf_sample.f90 @@ -55,10 +55,10 @@ program zf_sample ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps @@ -66,16 +66,16 @@ program zf_sample character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, tprec real(psb_dpk_) :: r_amax, b_amax, scale,resmx,resmxp - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:), perm(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:), perm(:) character(len=40) :: fname, fnout diff --git a/test/kernel/d_file_spmv.f90 b/test/kernel/d_file_spmv.f90 index 1c70b7d78..50d06b5df 100644 --- a/test/kernel/d_file_spmv.f90 +++ b/test/kernel/d_file_spmv.f90 @@ -50,10 +50,10 @@ program d_file_spmv ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst, nr integer(psb_long_int_k_) :: amatsize, descsize, annz, nbytes real(psb_dpk_) :: err, eps,cond @@ -61,18 +61,18 @@ program d_file_spmv character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer, parameter :: times=10 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_), parameter :: times=10 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, r_amax, b_amax,& &scale,resmx,resmxp, flops, bdwdth real(psb_dpk_) :: tt1, tt2, tflops - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:) call psb_init(ictxt) diff --git a/test/kernel/pdgenspmv.f90 b/test/kernel/pdgenspmv.f90 index 5622e648e..9097e5100 100644 --- a/test/kernel/pdgenspmv.f90 +++ b/test/kernel/pdgenspmv.f90 @@ -69,7 +69,7 @@ program pdgen ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 @@ -83,16 +83,16 @@ program pdgen type(psb_d_vect_type) :: xxv,bv, vtst real(psb_dpk_), allocatable :: tst(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst, nr + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst, nr integer(psb_long_int_k_) :: amatsize, precsize, descsize, d2size, annz, nbytes real(psb_dpk_) :: err, eps - integer, parameter :: times=10 + integer(psb_ipk_), parameter :: times=10 ! other variables - integer :: info, i + integer(psb_ipk_) :: info, i character(len=20) :: name,ch_err character(len=40) :: fname @@ -257,11 +257,11 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,afmt,idim) - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=*) :: afmt - integer :: idim - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: idim + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -286,7 +286,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -327,22 +327,22 @@ contains use psb_base_mod use psb_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 type(psb_d_vect_type) :: xxv,bv type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a type(psb_d_csc_sparse_mat) :: acsc type(psb_d_coo_sparse_mat) :: acoo type(psb_d_csr_sparse_mat) :: acsr real(psb_dpk_) :: zt(nb),x,y,z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: ix,iy,iz,ia,indx_owner - integer :: np, iam, nr, nt - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_dpk_), allocatable :: val(:) ! deltah dimension of each grid cell ! deltat discretization time @@ -351,7 +351,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen real(psb_dpk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err,tmpfmt diff --git a/test/kernel/s_file_spmv.f90 b/test/kernel/s_file_spmv.f90 index e3c6d231b..93ac48883 100644 --- a/test/kernel/s_file_spmv.f90 +++ b/test/kernel/s_file_spmv.f90 @@ -50,10 +50,10 @@ program s_file_spmv ! communications data structure type(psb_desc_type):: desc_a - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver paramters - integer :: iter, itmax, ierr, itrace, ircode, ipart,& + integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode, ipart,& & methd, istopc, irst, nr integer(psb_long_int_k_) :: amatsize, descsize, annz, nbytes real(psb_spk_) :: err, eps,cond @@ -61,18 +61,18 @@ program s_file_spmv character(len=5) :: afmt character(len=20) :: name character(len=2) :: filefmt - integer, parameter :: iunit=12 - integer, parameter :: times=10 - integer :: iparm(20) + integer(psb_ipk_), parameter :: iunit=12 + integer(psb_ipk_), parameter :: times=10 + integer(psb_ipk_) :: iparm(20) ! other variables - integer :: i,info,j,m_problem - integer :: internal, m,ii,nnzero + integer(psb_ipk_) :: i,info,j,m_problem + integer(psb_ipk_) :: internal, m,ii,nnzero real(psb_dpk_) :: t1, t2, r_amax, b_amax,& &scale,resmx,resmxp, flops, bdwdth real(psb_dpk_) :: tt1, tt2, tflops - integer :: nrhs, nrow, n_row, dim, nv, ne - integer, allocatable :: ivg(:), ipv(:) + integer(psb_ipk_) :: nrhs, nrow, n_row, dim, nv, ne + integer(psb_ipk_), allocatable :: ivg(:), ipv(:) call psb_init(ictxt) diff --git a/test/newfmt/ppde.F90 b/test/newfmt/ppde.F90 index 7f5d4f6a8..b67ab07f2 100644 --- a/test/newfmt/ppde.F90 +++ b/test/newfmt/ppde.F90 @@ -72,7 +72,7 @@ program ppde ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 @@ -88,15 +88,15 @@ program ppde ! dense matrices real(psb_dpk_), allocatable :: b(:), x(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps ! other variables - integer :: info, i + integer(psb_ipk_) :: info, i character(len=20) :: name,ch_err, fname info=psb_success_ @@ -242,11 +242,11 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,kmethd,ptype,afmt,idim,istopc,itmax,itrace,irst) - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=*) :: kmethd, ptype, afmt - integer :: idim, istopc,itmax,itrace,irst - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: idim, istopc,itmax,itrace,irst + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -324,7 +324,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -365,21 +365,21 @@ contains use psb_base_mod use psb_d_ell_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 real(psb_dpk_), allocatable :: b(:),xv(:) type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a class(psb_d_base_sparse_mat), optional :: mold ! Local real(psb_dpk_) :: zt(nb),x,y,z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: ix,iy,iz,ia,indx_owner - integer :: np, iam, nr, nt - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_dpk_), allocatable :: val(:) ! deltah dimension of each grid cell @@ -389,7 +389,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen real(psb_dpk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err,tmpfmt diff --git a/test/newfmt/spde.f90 b/test/newfmt/spde.f90 index 3fb6f2cbb..4c3de3cd1 100644 --- a/test/newfmt/spde.f90 +++ b/test/newfmt/spde.f90 @@ -70,7 +70,7 @@ program ppde ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_spk_), parameter :: one = 1.0 @@ -84,15 +84,15 @@ program ppde ! dense matrices real(psb_spk_), allocatable :: b(:), x(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_spk_) :: err, eps ! other variables - integer :: info, i + integer(psb_ipk_) :: info, i character(len=20) :: name,ch_err info=psb_success_ @@ -219,11 +219,11 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,kmethd,ptype,afmt,idim,istopc,itmax,itrace,irst) - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=*) :: kmethd, ptype, afmt - integer :: idim, istopc,itmax,itrace,irst - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: idim, istopc,itmax,itrace,irst + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -301,7 +301,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -342,21 +342,21 @@ contains use psb_base_mod use psb_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 real(psb_spk_), allocatable :: b(:),xv(:) type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_sspmat_type) :: a type(psb_s_coo_sparse_mat) :: acoo type(psb_s_csr_sparse_mat) :: acsr real(psb_spk_) :: zt(nb),x,y,z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: ix,iy,iz,ia,indx_owner - integer :: np, iam, nr, nt - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_spk_), allocatable :: val(:) ! deltah dimension of each grid cell ! deltat discretization time @@ -365,7 +365,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen real(psb_spk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err,tmpfmt diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90 index b41c3138c..f33d6d0f0 100644 --- a/test/pargen/ppde.f90 +++ b/test/pargen/ppde.f90 @@ -71,7 +71,7 @@ program ppde ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 @@ -86,15 +86,15 @@ program ppde type(psb_d_vect_type) :: xxv,bv, vtst real(psb_dpk_), allocatable :: tst(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize, d2size real(psb_dpk_) :: err, eps ! other variables - integer :: info, i + integer(psb_ipk_) :: info, i character(len=20) :: name,ch_err character(len=40) :: fname @@ -257,11 +257,11 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,kmethd,ptype,afmt,idim,istopc,itmax,itrace,irst) - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=*) :: kmethd, ptype, afmt - integer :: idim, istopc,itmax,itrace,irst - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: idim, istopc,itmax,itrace,irst + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -339,7 +339,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -380,22 +380,22 @@ contains use psb_base_mod use psb_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 type(psb_d_vect_type) :: xxv,bv type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a type(psb_d_csc_sparse_mat) :: acsc type(psb_d_coo_sparse_mat) :: acoo type(psb_d_csr_sparse_mat) :: acsr real(psb_dpk_) :: zt(nb),x,y,z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: ix,iy,iz,ia,indx_owner - integer :: np, iam, nr, nt - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_dpk_), allocatable :: val(:) ! deltah dimension of each grid cell ! deltat discretization time @@ -404,7 +404,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen real(psb_dpk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err,tmpfmt diff --git a/test/pargen/spde.f90 b/test/pargen/spde.f90 index 87b9377d4..02da534a4 100644 --- a/test/pargen/spde.f90 +++ b/test/pargen/spde.f90 @@ -71,7 +71,7 @@ program ppde ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_spk_), parameter :: one = 1.0 @@ -86,15 +86,15 @@ program ppde type(psb_s_vect_type) :: xxv,bv, vtst real(psb_spk_), allocatable :: tst(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize, d2size real(psb_spk_) :: err, eps ! other variables - integer :: info, i + integer(psb_ipk_) :: info, i character(len=20) :: name,ch_err character(len=40) :: fname @@ -257,11 +257,11 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,kmethd,ptype,afmt,idim,istopc,itmax,itrace,irst) - integer :: ictxt + integer(psb_ipk_) :: ictxt character(len=*) :: kmethd, ptype, afmt - integer :: idim, istopc,itmax,itrace,irst - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: idim, istopc,itmax,itrace,irst + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -339,7 +339,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -380,22 +380,22 @@ contains use psb_base_mod use psb_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 type(psb_s_vect_type) :: xxv,bv type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_sspmat_type) :: a type(psb_s_csc_sparse_mat) :: acsc type(psb_s_coo_sparse_mat) :: acoo type(psb_s_csr_sparse_mat) :: acsr real(psb_spk_) :: zt(nb),x,y,z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: ix,iy,iz,ia,indx_owner - integer :: np, iam, nr, nt - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_spk_), allocatable :: val(:) ! deltah dimension of each grid cell ! deltat discretization time @@ -404,7 +404,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen real(psb_spk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err,tmpfmt diff --git a/test/serial/d_coo_matgen.f90 b/test/serial/d_coo_matgen.f90 index 784187327..3d5968324 100644 --- a/test/serial/d_coo_matgen.f90 +++ b/test/serial/d_coo_matgen.f90 @@ -10,7 +10,7 @@ program d_coo_matgen ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 @@ -24,15 +24,15 @@ program d_coo_matgen ! dense matrices real(psb_dpk_), allocatable :: b(:), x(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps ! other variables - integer :: info, err_act + integer(psb_ipk_) :: info, err_act character(len=20) :: name,ch_err info=psb_success_ @@ -82,10 +82,10 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,idim) - integer :: ictxt - integer :: idim - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: ictxt + integer(psb_ipk_) :: idim + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -99,7 +99,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -141,19 +141,19 @@ contains !!$ use psb_d_base_mat_mod use psb_d_csr_mat_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 real(psb_dpk_), allocatable :: b(:),xv(:) type(psb_desc_type) :: desc_a - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a real(psb_dpk_) :: zt(nb),glob_x,glob_y,glob_z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: x,y,z,ia,indx_owner - integer :: np, iam, nr, nt,nz,isz - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: x,y,z,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt,nz,isz + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_dpk_), allocatable :: val(:) type(psb_d_coo_sparse_mat) :: acoo type(psb_d_csr_sparse_mat) :: acsr @@ -164,7 +164,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen, tcpy, tmov real(psb_dpk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err, asbfmt diff --git a/test/serial/d_matgen.F90 b/test/serial/d_matgen.F90 index ee4e3853c..8c6f73da7 100644 --- a/test/serial/d_matgen.F90 +++ b/test/serial/d_matgen.F90 @@ -14,7 +14,7 @@ program d_matgen ! input parameters character(len=20) :: kmethd, ptype character(len=5) :: afmt - integer :: idim + integer(psb_ipk_) :: idim ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 @@ -28,10 +28,10 @@ program d_matgen ! dense matrices real(psb_dpk_), allocatable :: b(:), x(:) ! blacs parameters - integer :: ictxt, iam, np + integer(psb_ipk_) :: ictxt, iam, np ! solver parameters - integer :: iter, itmax,itrace, istopc, irst + integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst integer(psb_long_int_k_) :: amatsize, precsize, descsize real(psb_dpk_) :: err, eps #ifdef HAVE_LIBRSB @@ -42,7 +42,7 @@ program d_matgen type(psb_d_cxx_sparse_mat) :: acxx ! other variables - integer :: info, err_act + integer(psb_ipk_) :: info, err_act character(len=20) :: name,ch_err info=psb_success_ @@ -104,10 +104,10 @@ contains ! get iteration parameters from standard input ! subroutine get_parms(ictxt,idim) - integer :: ictxt - integer :: idim - integer :: np, iam - integer :: intbuf(10), ip + integer(psb_ipk_) :: ictxt + integer(psb_ipk_) :: idim + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: intbuf(10), ip call psb_info(ictxt, iam, np) @@ -121,7 +121,7 @@ contains ! print an error message ! subroutine pr_usage(iout) - integer :: iout + integer(psb_ipk_) :: iout write(iout,*)'incorrect parameter(s) found' write(iout,*)' usage: pde90 methd prec dim & &[istop itmax itrace]' @@ -161,20 +161,20 @@ contains ! use psb_base_mod implicit none - integer :: idim - integer, parameter :: nb=20 + integer(psb_ipk_) :: idim + integer(psb_ipk_), parameter :: nb=20 real(psb_dpk_), allocatable :: b(:),xv(:) type(psb_desc_type) :: desc_a class(psb_d_base_sparse_mat) :: mold - integer :: ictxt, info + integer(psb_ipk_) :: ictxt, info character :: afmt*5 type(psb_dspmat_type) :: a real(psb_dpk_) :: zt(nb),glob_x,glob_y,glob_z - integer :: m,n,nnz,glob_row,nlr,i,ii,ib,k - integer :: x,y,z,ia,indx_owner - integer :: np, iam, nr, nt,nz,isz - integer :: element - integer, allocatable :: irow(:),icol(:),myidx(:) + integer(psb_ipk_) :: m,n,nnz,glob_row,nlr,i,ii,ib,k + integer(psb_ipk_) :: x,y,z,ia,indx_owner + integer(psb_ipk_) :: np, iam, nr, nt,nz,isz + integer(psb_ipk_) :: element + integer(psb_ipk_), allocatable :: irow(:),icol(:),myidx(:) real(psb_dpk_), allocatable :: val(:), diag(:) type(psb_dspmat_type) :: a_n class(psb_d_coo_sparse_mat), allocatable :: acoo @@ -186,7 +186,7 @@ contains real(psb_dpk_) :: t0, t1, t2, t3, tasb, talc, ttot, tgen, tcpy, tmov real(psb_dpk_) :: a1, a2, a3, a4, b1, b2, b3 external :: a1, a2, a3, a4, b1, b2, b3 - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err diff --git a/test/serial/psb_d_cxx_impl.f90 b/test/serial/psb_d_cxx_impl.f90 index 9eb793dcf..3ad9be497 100644 --- a/test/serial/psb_d_cxx_impl.f90 +++ b/test/serial/psb_d_cxx_impl.f90 @@ -19,14 +19,14 @@ subroutine psb_d_cxx_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_csmv' logical, parameter :: debug=.false. @@ -88,13 +88,13 @@ subroutine psb_d_cxx_csmv(alpha,a,x,beta,y,info,trans) contains subroutine psb_d_cxx_csmv_inner(m,n,alpha,irp,ja,val,is_triangle,is_unit,& & x,beta,y,tra) - integer, intent(in) :: m,n,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,irp(*),ja(*) real(psb_dpk_), intent(in) :: alpha, beta, x(*),val(*) real(psb_dpk_), intent(inout) :: y(*) logical, intent(in) :: is_triangle,is_unit,tra - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc real(psb_dpk_) :: acc if (alpha == dzero) then @@ -316,14 +316,14 @@ subroutine psb_d_cxx_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_csmm' logical, parameter :: debug=.false. @@ -391,13 +391,13 @@ subroutine psb_d_cxx_csmm(alpha,a,x,beta,y,info,trans) contains subroutine psb_d_cxx_csmm_inner(m,n,nc,alpha,irp,ja,val,& & is_triangle,is_unit,x,ldx,beta,y,ldy,tra,acc) - integer, intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: m,n,ldx,ldy,nc,irp(*),ja(*) real(psb_dpk_), intent(in) :: alpha, beta, x(ldx,*),val(*) real(psb_dpk_), intent(inout) :: y(ldy,*) logical, intent(in) :: is_triangle,is_unit,tra real(psb_dpk_), intent(inout) :: acc(*) - integer :: i,j,k, ir, jc + integer(psb_ipk_) :: i,j,k, ir, jc if (alpha == dzero) then @@ -617,15 +617,15 @@ subroutine psb_d_cxx_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_cssv' logical, parameter :: debug=.false. @@ -721,12 +721,12 @@ contains subroutine inner_cxxsv(tra,lower,unit,n,irp,ja,val,x,y) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: irp(*), ja(*),n + integer(psb_ipk_), intent(in) :: irp(*), ja(*),n real(psb_dpk_), intent(in) :: val(*) real(psb_dpk_), intent(in) :: x(*) real(psb_dpk_), intent(out) :: y(*) - integer :: i,j,k,m, ir, jc + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_) :: acc if (.not.tra) then @@ -832,15 +832,15 @@ subroutine psb_d_cxx_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_cssm' logical, parameter :: debug=.false. @@ -931,11 +931,11 @@ contains & irp,ja,val,x,ldx,y,ldy,info) implicit none logical, intent(in) :: tra,lower,unit - integer, intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) + integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) real(psb_dpk_), intent(out) :: y(ldy,*) - integer, intent(out) :: info - integer :: i,j,k,m, ir, jc + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i,j,k,m, ir, jc real(psb_dpk_), allocatable :: acc(:) info = psb_success_ @@ -1047,10 +1047,10 @@ function psb_d_cxx_csnmi(a) result(res) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csnmi' logical, parameter :: debug=.false. @@ -1076,11 +1076,11 @@ function psb_d_cxx_csnm1(a) result(res) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_csnm1' logical, parameter :: debug=.false. @@ -1111,11 +1111,11 @@ subroutine psb_d_cxx_rowsum(d,a) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1159,11 +1159,11 @@ subroutine psb_d_cxx_arwsum(d,a) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. @@ -1207,11 +1207,11 @@ subroutine psb_d_cxx_colsum(d,a) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. @@ -1258,11 +1258,11 @@ subroutine psb_d_cxx_aclsum(d,a) class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. @@ -1310,9 +1310,9 @@ subroutine psb_d_cxx_get_diag(a,d,info) implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. @@ -1358,9 +1358,9 @@ subroutine psb_d_cxx_scal(d,a,info) implicit none class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1400,9 +1400,9 @@ subroutine psb_d_cxx_scals(d,a,info) implicit none class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. @@ -1447,9 +1447,9 @@ subroutine psb_d_cxx_reallocate_nz(nz,a) use psb_base_mod use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_cxx_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_cxx_reallocate_nz' logical, parameter :: debug=.false. @@ -1484,8 +1484,8 @@ subroutine psb_d_cxx_mold(a,b,info) implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. @@ -1511,10 +1511,10 @@ subroutine psb_d_cxx_allocate_mnnz(m,n,a,nz) use psb_base_mod use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_cxx_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. @@ -1576,17 +1576,17 @@ subroutine psb_d_cxx_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1670,15 +1670,15 @@ contains implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer, intent(in) :: nzin + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='cxx_getptn' debug_unit = psb_get_debug_unit() @@ -1743,18 +1743,18 @@ subroutine psb_d_cxx_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1839,16 +1839,16 @@ contains implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer :: imin,imax,jmin,jmax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_) :: imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer, intent(in) :: nzin + integer(psb_ipk_), intent(in) :: nzin logical, intent(in) :: append - integer :: info - integer, optional :: iren(:) - integer :: nzin_, nza, idx,i,j,k, nzt, irw, lrw - integer :: debug_level, debug_unit + integer(psb_ipk_) :: info + integer(psb_ipk_), optional :: iren(:) + integer(psb_ipk_) :: nzin_, nza, idx,i,j,k, nzt, irw, lrw + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='coo_getrow' debug_unit = psb_get_debug_unit() @@ -1916,13 +1916,13 @@ subroutine psb_d_cxx_csgetblk(imin,imax,a,b,info,& class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -1974,15 +1974,15 @@ subroutine psb_d_cxx_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) call psb_erractionsave(err_act) @@ -2061,14 +2061,14 @@ contains implicit none class(psb_d_cxx_sparse_mat), intent(inout) :: a - integer, intent(in) :: nz, imin,imax,jmin,jmax - integer, intent(in) :: ia(:),ja(:) + integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax + integer(psb_ipk_), intent(in) :: ia(:),ja(:) real(psb_dpk_), intent(in) :: val(:) - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) - integer :: i,ir,ic, ilr, ilc, ip, & + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) + integer(psb_ipk_) :: i,ir,ic, ilr, ilc, ip, & & i1,i2,nr,nc,nnz,dupl,ng - integer :: debug_level, debug_unit + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name='d_cxx_srch_upd' info = psb_success_ @@ -2257,7 +2257,7 @@ subroutine psb_d_cxx_reinit(a,clear) class(psb_d_cxx_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -2303,7 +2303,7 @@ subroutine psb_d_cxx_trim(a) use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_trim implicit none class(psb_d_cxx_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2336,19 +2336,19 @@ subroutine psb_d_cxx_print(iout,a,iv,eirs,eics,head,ivr,ivc) use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cxx_print' logical, parameter :: debug=.false. character(len=80) :: frmtv - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz if (present(eirs)) then irs = eirs @@ -2420,15 +2420,15 @@ subroutine psb_d_cp_cxx_from_coo(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2447,14 +2447,14 @@ subroutine psb_d_cp_cxx_to_coo(a,b,info) class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2487,14 +2487,14 @@ subroutine psb_d_mv_cxx_to_coo(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2529,14 +2529,14 @@ subroutine psb_d_mv_cxx_from_coo(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2616,14 +2616,14 @@ subroutine psb_d_mv_cxx_to_fmt(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2654,14 +2654,14 @@ subroutine psb_d_cp_cxx_to_fmt(a,b,info) class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2692,14 +2692,14 @@ subroutine psb_d_mv_cxx_from_fmt(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2731,14 +2731,14 @@ subroutine psb_d_cp_cxx_from_fmt(a,b,info) class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -2769,7 +2769,7 @@ subroutine psb_d_cxx_cp_from(a,b) type(psb_d_cxx_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -2808,7 +2808,7 @@ subroutine psb_d_cxx_mv_from(a,b) type(psb_d_cxx_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/test/serial/psb_d_cxx_mat_mod.f90 b/test/serial/psb_d_cxx_mat_mod.f90 index fb238df8a..7e1009486 100644 --- a/test/serial/psb_d_cxx_mat_mod.f90 +++ b/test/serial/psb_d_cxx_mat_mod.f90 @@ -4,7 +4,7 @@ module psb_d_cxx_mat_mod type, extends(psb_d_base_sparse_mat) :: psb_d_cxx_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) real(psb_dpk_), allocatable :: val(:) contains @@ -57,7 +57,7 @@ module psb_d_cxx_mat_mod interface subroutine psb_d_cxx_reallocate_nz(nz,a) import :: psb_d_cxx_sparse_mat - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_cxx_sparse_mat), intent(inout) :: a end subroutine psb_d_cxx_reallocate_nz end interface @@ -82,28 +82,28 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cxx_mold end interface interface subroutine psb_d_cxx_allocate_mnnz(m,n,a,nz) import :: psb_d_cxx_sparse_mat - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_cxx_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_cxx_allocate_mnnz end interface interface subroutine psb_d_cxx_print(iout,a,iv,eirs,eics,head,ivr,ivc) import :: psb_d_cxx_sparse_mat - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_cxx_print end interface @@ -112,7 +112,7 @@ module psb_d_cxx_mat_mod import :: psb_d_coo_sparse_mat, psb_d_cxx_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cxx_to_coo end interface @@ -121,7 +121,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cxx_from_coo end interface @@ -130,7 +130,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_base_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cxx_to_fmt end interface @@ -139,7 +139,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_base_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cxx_from_fmt end interface @@ -148,7 +148,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cxx_to_coo end interface @@ -157,7 +157,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cxx_from_coo end interface @@ -166,7 +166,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_base_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cxx_to_fmt end interface @@ -175,7 +175,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_d_base_sparse_mat class(psb_d_cxx_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cxx_from_fmt end interface @@ -201,10 +201,10 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_cxx_csput end interface @@ -213,13 +213,13 @@ module psb_d_cxx_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cxx_csgetptn end interface @@ -229,14 +229,14 @@ module psb_d_cxx_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cxx_csgetrow end interface @@ -247,11 +247,11 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_cxx_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cxx_csgetblk end interface @@ -262,7 +262,7 @@ module psb_d_cxx_mat_mod class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cxx_cssv subroutine psb_d_cxx_cssm(alpha,a,x,beta,y,info,trans) @@ -270,7 +270,7 @@ module psb_d_cxx_mat_mod class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cxx_cssm end interface @@ -281,7 +281,7 @@ module psb_d_cxx_mat_mod class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cxx_csmv subroutine psb_d_cxx_csmm(alpha,a,x,beta,y,info,trans) @@ -289,7 +289,7 @@ module psb_d_cxx_mat_mod class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cxx_csmm end interface @@ -348,7 +348,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cxx_get_diag end interface @@ -357,7 +357,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cxx_scal end interface @@ -366,7 +366,7 @@ module psb_d_cxx_mat_mod import :: psb_d_cxx_sparse_mat, psb_dpk_ class(psb_d_cxx_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cxx_scals end interface @@ -407,14 +407,14 @@ contains function d_cxx_get_nzeros(a) result(res) implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function d_cxx_get_nzeros function d_cxx_get_size(a) result(res) implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = -1 @@ -442,8 +442,8 @@ contains implicit none class(psb_d_cxx_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 diff --git a/test/serial/psb_d_cyy_impl.f90 b/test/serial/psb_d_cyy_impl.f90 index da333132e..00e1a50c4 100644 --- a/test/serial/psb_d_cyy_impl.f90 +++ b/test/serial/psb_d_cyy_impl.f90 @@ -8,14 +8,14 @@ subroutine psb_d_cyy_csmv(alpha,a,x,beta,y,info,trans) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_csmv' logical, parameter :: debug=.false. @@ -31,14 +31,14 @@ subroutine psb_d_cyy_csmm(alpha,a,x,beta,y,info,trans) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_), allocatable :: acc(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_csmm' logical, parameter :: debug=.false. @@ -52,15 +52,15 @@ subroutine psb_d_cyy_cssv(alpha,a,x,beta,y,info,trans) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_cssv' logical, parameter :: debug=.false. @@ -74,15 +74,15 @@ subroutine psb_d_cyy_cssm(alpha,a,x,beta,y,info,trans) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans character :: trans_ - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: tmp(:,:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_cssm' logical, parameter :: debug=.false. @@ -97,10 +97,10 @@ function psb_d_cyy_csnmi(a) result(res) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nr, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nr, ir, jc, nc real(psb_dpk_) :: acc logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_csnmi' logical, parameter :: debug=.false. res = dzero @@ -114,11 +114,11 @@ function psb_d_cyy_csnm1(a) result(res) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - integer :: i,j,k,m,n, nnz, ir, jc, nc, info + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc, info real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_csnm1' logical, parameter :: debug=.false. res = -done @@ -131,11 +131,11 @@ subroutine psb_d_cyy_rowsum(d,a) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. return @@ -147,11 +147,11 @@ subroutine psb_d_cyy_arwsum(d,a) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='rowsum' logical, parameter :: debug=.false. end subroutine psb_d_cyy_arwsum @@ -162,11 +162,11 @@ subroutine psb_d_cyy_colsum(d,a) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='colsum' logical, parameter :: debug=.false. end subroutine psb_d_cyy_colsum @@ -177,11 +177,11 @@ subroutine psb_d_cyy_aclsum(d,a) class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer :: i,j,k,m,n, nnz, ir, jc, nc + integer(psb_ipk_) :: i,j,k,m,n, nnz, ir, jc, nc real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra - Integer :: err_act, info, int_err(5) + integer(psb_ipk_) :: err_act, info, int_err(5) character(len=20) :: name='aclsum' logical, parameter :: debug=.false. end subroutine psb_d_cyy_aclsum @@ -192,9 +192,9 @@ subroutine psb_d_cyy_get_diag(a,d,info) implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act, mnm, i, j, k + integer(psb_ipk_) :: err_act, mnm, i, j, k character(len=20) :: name='get_diag' logical, parameter :: debug=.false. info = psb_success_ @@ -206,9 +206,9 @@ subroutine psb_d_cyy_scal(d,a,info) implicit none class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. info = psb_success_ @@ -220,9 +220,9 @@ subroutine psb_d_cyy_scals(d,a,info) implicit none class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act,mnm, i, j, m + integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' logical, parameter :: debug=.false. info = psb_success_ @@ -232,9 +232,9 @@ subroutine psb_d_cyy_reallocate_nz(nz,a) use psb_base_mod use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_reallocate_nz implicit none - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_cyy_sparse_mat), intent(inout) :: a - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='d_cyy_reallocate_nz' logical, parameter :: debug=.false. @@ -246,8 +246,8 @@ subroutine psb_d_cyy_mold(a,b,info) implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='reallocate_nz' logical, parameter :: debug=.false. end subroutine psb_d_cyy_mold @@ -256,10 +256,10 @@ subroutine psb_d_cyy_allocate_mnnz(m,n,a,nz) use psb_base_mod use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_allocate_mnnz implicit none - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_cyy_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz - Integer :: err_act, info, nz_ + integer(psb_ipk_), intent(in), optional :: nz + integer(psb_ipk_) :: err_act, info, nz_ character(len=20) :: name='allocate_mnz' logical, parameter :: debug=.false. end subroutine psb_d_cyy_allocate_mnnz @@ -271,17 +271,17 @@ subroutine psb_d_cyy_csgetptn(imin,imax,a,nz,ia,ja,info,& implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -294,18 +294,18 @@ subroutine psb_d_cyy_csgetrow(imin,imax,a,nz,ia,ja,val,info,& implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale logical :: append_, rscale_, cscale_ - integer :: nzin_, jmin_, jmax_, err_act, i + integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -321,13 +321,13 @@ subroutine psb_d_cyy_csgetblk(imin,imax,a,b,info,& class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale - Integer :: err_act, nzin, nzout + integer(psb_ipk_) :: err_act, nzin, nzout character(len=20) :: name='csget' logical :: append_ logical, parameter :: debug=.false. @@ -342,14 +342,14 @@ subroutine psb_d_cyy_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl) class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_csput' logical, parameter :: debug=.false. - integer :: nza, i,j,k, nzl, isza, int_err(5) + integer(psb_ipk_) :: nza, i,j,k, nzl, isza, int_err(5) info = psb_success_ end subroutine psb_d_cyy_csput @@ -362,7 +362,7 @@ subroutine psb_d_cyy_reinit(a,clear) class(psb_d_cyy_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' logical :: clear_ logical, parameter :: debug=.false. @@ -375,7 +375,7 @@ subroutine psb_d_cyy_trim(a) use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_trim implicit none class(psb_d_cyy_sparse_mat), intent(inout) :: a - Integer :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -387,18 +387,18 @@ subroutine psb_d_cyy_print(iout,a,iv,eirs,eics,head,ivr,ivc) use psb_d_cyy_mat_mod, psb_protect_name => psb_d_cyy_print implicit none - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_cyy_print' logical, parameter :: debug=.false. - integer :: irs,ics,i,j, nmx, ni, nr, nc, nz + integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz end subroutine psb_d_cyy_print subroutine psb_d_cp_cyy_from_coo(a,b,info) @@ -408,15 +408,15 @@ subroutine psb_d_cp_cyy_from_coo(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info type(psb_d_coo_sparse_mat) :: tmp - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -429,14 +429,14 @@ subroutine psb_d_cp_cyy_to_coo(a,b,info) class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -449,14 +449,14 @@ subroutine psb_d_mv_cyy_to_coo(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, nc,i,j,irw, idl,err_act - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, nc,i,j,irw, idl,err_act + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -469,14 +469,14 @@ subroutine psb_d_mv_cyy_from_coo(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - integer, allocatable :: itemp(:) + integer(psb_ipk_), allocatable :: itemp(:) !locals logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -489,14 +489,14 @@ subroutine psb_d_mv_cyy_to_fmt(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -510,14 +510,14 @@ subroutine psb_d_cp_cyy_to_fmt(a,b,info) class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -530,14 +530,14 @@ subroutine psb_d_mv_cyy_from_fmt(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nza, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nza, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -551,14 +551,14 @@ subroutine psb_d_cp_cyy_from_fmt(a,b,info) class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info !locals type(psb_d_coo_sparse_mat) :: tmp logical :: rwshr_ - Integer :: nz, nr, i,j,irw, idl,err_act, nc - Integer, Parameter :: maxtry=8 - integer :: debug_level, debug_unit + integer(psb_ipk_) :: nz, nr, i,j,irw, idl,err_act, nc + integer(psb_ipk_), Parameter :: maxtry=8 + integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name info = psb_success_ @@ -571,7 +571,7 @@ subroutine psb_d_cyy_cp_from(a,b) class(psb_d_cyy_sparse_mat), intent(inout) :: a type(psb_d_cyy_sparse_mat), intent(in) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='cp_from' logical, parameter :: debug=.false. @@ -586,7 +586,7 @@ subroutine psb_d_cyy_mv_from(a,b) class(psb_d_cyy_sparse_mat), intent(inout) :: a type(psb_d_cyy_sparse_mat), intent(inout) :: b - Integer :: err_act, info + integer(psb_ipk_) :: err_act, info character(len=20) :: name='mv_from' logical, parameter :: debug=.false. diff --git a/test/serial/psb_d_cyy_mat_mod.f90 b/test/serial/psb_d_cyy_mat_mod.f90 index da70dc3cc..996fed3a0 100644 --- a/test/serial/psb_d_cyy_mat_mod.f90 +++ b/test/serial/psb_d_cyy_mat_mod.f90 @@ -4,7 +4,7 @@ module psb_d_cyy_mat_mod type, extends(psb_d_base_sparse_mat) :: psb_d_cyy_sparse_mat - integer, allocatable :: irp(:), ja(:) + integer(psb_ipk_), allocatable :: irp(:), ja(:) real(psb_dpk_), allocatable :: val(:) contains @@ -57,7 +57,7 @@ module psb_d_cyy_mat_mod interface subroutine psb_d_cyy_reallocate_nz(nz,a) import :: psb_d_cyy_sparse_mat - integer, intent(in) :: nz + integer(psb_ipk_), intent(in) :: nz class(psb_d_cyy_sparse_mat), intent(inout) :: a end subroutine psb_d_cyy_reallocate_nz end interface @@ -82,28 +82,28 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_base_sparse_mat, psb_long_int_k_ class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(out), allocatable :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cyy_mold end interface interface subroutine psb_d_cyy_allocate_mnnz(m,n,a,nz) import :: psb_d_cyy_sparse_mat - integer, intent(in) :: m,n + integer(psb_ipk_), intent(in) :: m,n class(psb_d_cyy_sparse_mat), intent(inout) :: a - integer, intent(in), optional :: nz + integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_cyy_allocate_mnnz end interface interface subroutine psb_d_cyy_print(iout,a,iv,eirs,eics,head,ivr,ivc) import :: psb_d_cyy_sparse_mat - integer, intent(in) :: iout + integer(psb_ipk_), intent(in) :: iout class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in), optional :: iv(:) - integer, intent(in), optional :: eirs,eics + integer(psb_ipk_), intent(in), optional :: iv(:) + integer(psb_ipk_), intent(in), optional :: eirs,eics character(len=*), optional :: head - integer, intent(in), optional :: ivr(:), ivc(:) + integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_cyy_print end interface @@ -112,7 +112,7 @@ module psb_d_cyy_mat_mod import :: psb_d_coo_sparse_mat, psb_d_cyy_sparse_mat class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cyy_to_coo end interface @@ -121,7 +121,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cyy_from_coo end interface @@ -130,7 +130,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_base_sparse_mat class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cyy_to_fmt end interface @@ -139,7 +139,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_base_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_cyy_from_fmt end interface @@ -148,7 +148,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cyy_to_coo end interface @@ -157,7 +157,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_coo_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cyy_from_coo end interface @@ -166,7 +166,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_base_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cyy_to_fmt end interface @@ -175,7 +175,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_d_base_sparse_mat class(psb_d_cyy_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_cyy_from_fmt end interface @@ -201,10 +201,10 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) - integer, intent(in) :: nz,ia(:), ja(:),& + integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& & imin,imax,jmin,jmax - integer, intent(out) :: info - integer, intent(in), optional :: gtl(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: gtl(:) end subroutine psb_d_cyy_csput end interface @@ -213,13 +213,13 @@ module psb_d_cyy_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cyy_csgetptn end interface @@ -229,14 +229,14 @@ module psb_d_cyy_mat_mod & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in) :: imin,imax - integer, intent(out) :: nz - integer, allocatable, intent(inout) :: ia(:), ja(:) + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_), intent(out) :: nz + integer(psb_ipk_), allocatable, intent(inout) :: ia(:), ja(:) real(psb_dpk_), allocatable, intent(inout) :: val(:) - integer,intent(out) :: info + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax, nzin + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cyy_csgetrow end interface @@ -247,11 +247,11 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_dpk_, psb_d_coo_sparse_mat class(psb_d_cyy_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b - integer, intent(in) :: imin,imax - integer,intent(out) :: info + integer(psb_ipk_), intent(in) :: imin,imax + integer(psb_ipk_),intent(out) :: info logical, intent(in), optional :: append - integer, intent(in), optional :: iren(:) - integer, intent(in), optional :: jmin,jmax + integer(psb_ipk_), intent(in), optional :: iren(:) + integer(psb_ipk_), intent(in), optional :: jmin,jmax logical, intent(in), optional :: rscale,cscale end subroutine psb_d_cyy_csgetblk end interface @@ -262,7 +262,7 @@ module psb_d_cyy_mat_mod class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cyy_cssv subroutine psb_d_cyy_cssm(alpha,a,x,beta,y,info,trans) @@ -270,7 +270,7 @@ module psb_d_cyy_mat_mod class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cyy_cssm end interface @@ -281,7 +281,7 @@ module psb_d_cyy_mat_mod class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cyy_csmv subroutine psb_d_cyy_csmm(alpha,a,x,beta,y,info,trans) @@ -289,7 +289,7 @@ module psb_d_cyy_mat_mod class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_cyy_csmm end interface @@ -348,7 +348,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cyy_get_diag end interface @@ -357,7 +357,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cyy_scal end interface @@ -366,7 +366,7 @@ module psb_d_cyy_mat_mod import :: psb_d_cyy_sparse_mat, psb_dpk_ class(psb_d_cyy_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cyy_scals end interface @@ -390,14 +390,14 @@ contains function d_cyy_get_nzeros(a) result(res) implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 end function d_cyy_get_nzeros function d_cyy_get_size(a) result(res) implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a - integer :: res + integer(psb_ipk_) :: res res = 0 end function d_cyy_get_size @@ -408,8 +408,8 @@ contains implicit none class(psb_d_cyy_sparse_mat), intent(in) :: a - integer, intent(in) :: idx - integer :: res + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_) :: res res = 0 end function d_cyy_get_nz_row diff --git a/test/torture/psb_c_mvsv_tester.f90 b/test/torture/psb_c_mvsv_tester.f90 index af5caa83d..f1f721839 100644 --- a/test/torture/psb_c_mvsv_tester.f90 +++ b/test/torture/psb_c_mvsv_tester.f90 @@ -7,24 +7,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=1 ! 1+1i 0+0i ! 1+1i 2+2i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,1.e0), (2,2)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(6.e0,3.e0), (12,9)/)! reference cy after @@ -83,24 +83,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=1 ! 1+1i 0+0i ! 0+1i 2+6i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (0.e0,1.e0), (2,6)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(6.e0,6.e0), (9,18)/)! reference cy after @@ -159,24 +159,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=1 ! 1+1i 3+2i ! 0+3i 2+0i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (3.e0,2.e0), (0.e0,3.e0), (2,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(6.e0,-12.e0), (18,-6)/)! reference cy after @@ -235,24 +235,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1+1i 0+0i ! 3+3i 6+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (3.e0,3.e0), (6,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(3.e0,3.e0), (27,9)/)! reference cy after @@ -311,24 +311,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1+1i 0+0i ! 1+2i 2+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,2.e0), (2,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(6.e0,9.e0), (6,0)/)! reference cy after @@ -387,24 +387,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1+1i 1+0i ! 0+0i 2+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,0.e0), (2,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(3.e0,-3.e0), (9,0)/)! reference cy after @@ -463,24 +463,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=1 ! 1+1i 0+0i ! 5+1i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) complex*8 :: VA(2)=(/(1.e0,1.e0), (5,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(4.e0,1.e0), (8,1)/)! reference cy after @@ -539,24 +539,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=1 ! 1+1i 1+0i ! 0+1i 0+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (1.e0,0.e0), (0.e0,1.e0), (0,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(4.e0,2.e0), (4,1)/)! reference cy after @@ -615,24 +615,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=1 ! 1+1i 0+2i ! 0+3i 2+0i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (0.e0,2.e0), (0.e0,3.e0), (2,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(4.e0,-4.e0), (5,-2)/)! reference cy after @@ -691,24 +691,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1+1i 1+0i ! 0+0i 3+1i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,0.e0), (3,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(2.e0,1.e0), (3,1)/)! reference cy after @@ -767,24 +767,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1+1i 0+1i ! 0+1i 3+5i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (0.e0,1.e0), (0.e0,1.e0), (3,5)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(1.e0,2.e0), (3,6)/)! reference cy after @@ -843,24 +843,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1+1i 0+1i ! 0+0i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/(1.e0,1.e0), (0,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(1.e0,-1.e0), (0,-1)/)! reference cy after @@ -919,24 +919,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=1 ! 1+1i 0+0i ! 0+0i 1+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/(1.e0,1.e0), (1,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(2.e0,-1.e0), (2,0)/)! reference cy after @@ -995,24 +995,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=1 ! 1+1i 3+0i ! 1+3i 0+2i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (3.e0,0.e0), (1.e0,3.e0), (0,2)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(1.e0,-4.e0), (0,-2)/)! reference cy after @@ -1071,24 +1071,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=1 ! 1+1i 0+0i ! 1+2i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) complex*8 :: VA(2)=(/(1.e0,1.e0), (1,2)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(1.e0,3.e0), (3,0)/)! reference cy after @@ -1147,24 +1147,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1+1i 1+0i ! 2+0i 1+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (1.e0,0.e0), (2.e0,0.e0), (1,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-2.e0,-1.e0), (-3,-1)/)! reference cy after @@ -1223,24 +1223,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1+1i 1+3i ! 0+0i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/(1.e0,1.e0), (1,3)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-1.e0,-1.e0), (-1,-3)/)! reference cy after @@ -1299,24 +1299,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1+1i 1+0i ! 0+1i 5+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (1.e0,0.e0), (0.e0,1.e0), (5,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-1.e0,2.e0), (-6,1)/)! reference cy after @@ -1375,24 +1375,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=1 ! 1+1i 0+0i ! 3+1i 2+4i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (3.e0,1.e0), (2,4)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(0.e0,-3.e0), (-12,-15)/)! reference cy after @@ -1451,24 +1451,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=1 ! 1+1i 0+1i ! 0+0i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/(1.e0,1.e0), (0,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(0.e0,-3.e0), (3,-3)/)! reference cy after @@ -1527,24 +1527,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=1 ! 1+1i 1+0i ! 1+1i 0+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,0.e0), (1,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-3.e0,6.e0), (0,0)/)! reference cy after @@ -1603,24 +1603,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1+1i 0+0i ! 0+2i 0+2i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (0.e0,2.e0), (0,2)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-3.e0,-3.e0), (0,-12)/)! reference cy after @@ -1679,24 +1679,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1+1i 0+0i ! 1+3i 3+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,1.e0), (1.e0,3.e0), (3,0)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-6.e0,-12.e0), (-9,0)/)! reference cy after @@ -1755,24 +1755,24 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1+1i 3+1i ! 0+1i 3+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*8 :: VA(4)=(/(1.e0,1.e0), (3.e0,1.e0), (0.e0,1.e0), (3,1)/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/(-3.e0,6.e0), (-18,6)/)! reference cy after @@ -1831,23 +1831,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/1, 1, 1/) complex*8 :: x(2)=(/3, 6/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after @@ -1910,23 +1910,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1+0i 0+0i ! 0+2i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (0.e0,2.e0), (1,0)/) complex*8 :: x(2)=(/(3.e0,6.e0), (3,0)/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after @@ -1989,23 +1989,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=3 complex*8 :: beta=0 ! 1+0i 0+0i ! 0+4i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (0.e0,4.e0), (1,0)/) complex*8 :: x(2)=(/(3.e0,-12.e0), (3,0)/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2068,23 +2068,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1+0i 0+0i ! 0+1i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (0.e0,1.e0), (1,0)/) complex*8 :: x(2)=(/(1.e0,0.e0), (1,1)/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2147,23 +2147,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/1, 1/) complex*8 :: x(2)=(/1, 1/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2226,23 +2226,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=1 complex*8 :: beta=0 ! 1+0i 0+0i ! 3+3i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (3.e0,3.e0), (1,0)/) complex*8 :: x(2)=(/(4.e0,-3.e0), (1,0)/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2305,23 +2305,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1 0 ! 5 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/1, 5, 1/) complex*8 :: x(2)=(/-1, -6/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2384,23 +2384,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1+0i 0+0i ! 1+2i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (1.e0,2.e0), (1,0)/) complex*8 :: x(2)=(/(-2.e0,-2.e0), (-1,0)/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2463,23 +2463,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-1 complex*8 :: beta=0 ! 1+0i 0+0i ! 0+4i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (0.e0,4.e0), (1,0)/) complex*8 :: x(2)=(/(-1.e0,4.e0), (-1,0)/)! reference x complex*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2542,23 +2542,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1+0i 0+0i ! 1+1i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*8 :: VA(3)=(/(1.e0,0.e0), (1.e0,1.e0), (1,0)/) complex*8 :: x(2)=(/(-3.e0,0.e0), (-6,-3)/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2621,23 +2621,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/1, 1/) complex*8 :: x(2)=(/-3, -3/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2700,23 +2700,23 @@ contains character(len=*) :: afmt type(psb_cspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*8 :: alpha=-3 complex*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*8 :: VA(2)=(/1, 1/) complex*8 :: x(2)=(/-3, -3/)! reference x complex*8 :: cy(2)=(/9, 9/)! reference cy after diff --git a/test/torture/psb_d_mvsv_tester.f90 b/test/torture/psb_d_mvsv_tester.f90 index 63c25a39b..44d113367 100644 --- a/test/torture/psb_d_mvsv_tester.f90 +++ b/test/torture/psb_d_mvsv_tester.f90 @@ -8,24 +8,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=1 ! 1 1 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/9, 3/)! reference cy after @@ -84,24 +84,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=1 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/6, 6/)! reference cy after @@ -160,24 +160,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=1 ! 1 0 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/15, 6/)! reference cy after @@ -236,24 +236,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 3 ! 3 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*8 :: VA(3)=(/1, 3, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/12, 9/)! reference cy after @@ -312,24 +312,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 3 ! 3 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*8 :: VA(3)=(/1, 3, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/12, 9/)! reference cy after @@ -388,24 +388,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*8 :: VA(1)=(/1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/3, 0/)! reference cy after @@ -464,24 +464,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=1 ! 1 0 ! 0 2 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 2/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/4, 5/)! reference cy after @@ -540,24 +540,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=1 ! 1 0 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/5, 3/)! reference cy after @@ -616,24 +616,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=1 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*8 :: VA(1)=(/1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/4, 3/)! reference cy after @@ -692,24 +692,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 3 4 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 4/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/1, 7/)! reference cy after @@ -768,24 +768,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/2, 0/)! reference cy after @@ -844,24 +844,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 0 3 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/1, 3/)! reference cy after @@ -920,24 +920,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=1 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/2, 2/)! reference cy after @@ -996,24 +996,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=1 ! 1 3 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*8 :: VA(3)=(/1, 3, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/1, 0/)! reference cy after @@ -1072,24 +1072,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=1 ! 1 0 ! 0 3 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/2, 0/)! reference cy after @@ -1148,24 +1148,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 3 ! 0 3 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*8 :: VA(3)=(/1, 3, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-4, -3/)! reference cy after @@ -1224,24 +1224,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 0 ! 3 5 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 5/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-4, -5/)! reference cy after @@ -1300,24 +1300,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 2 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 2/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-1, -2/)! reference cy after @@ -1376,24 +1376,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=1 ! 1 0 ! 0 6 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 6/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/0, -15/)! reference cy after @@ -1452,24 +1452,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=1 ! 1 2 ! 1 3 ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) real*8 :: VA(4)=(/1, 2, 1, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-3, -12/)! reference cy after @@ -1528,24 +1528,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=1 ! 1 3 ! 3 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*8 :: VA(3)=(/1, 3, 3/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-9, -6/)! reference cy after @@ -1604,24 +1604,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*8 :: VA(1)=(/1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-3, 0/)! reference cy after @@ -1680,24 +1680,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*8 :: VA(1)=(/1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-3, 0/)! reference cy after @@ -1756,24 +1756,24 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*8 :: VA(1)=(/1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/-3, 0/)! reference cy after @@ -1832,23 +1832,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 0 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 1/) real*8 :: x(2)=(/3, 12/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after @@ -1911,23 +1911,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 2, 1/) real*8 :: x(2)=(/9, 3/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after @@ -1990,23 +1990,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=3 real*8 :: beta=0 ! 1 0 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 1/) real*8 :: x(2)=(/12, 3/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2069,23 +2069,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 3, 1/) real*8 :: x(2)=(/1, 4/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2148,23 +2148,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 1, 1/) real*8 :: x(2)=(/2, 1/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2227,23 +2227,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=1 real*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/1, 1/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2306,23 +2306,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 1, 1/) real*8 :: x(2)=(/-1, -2/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2385,23 +2385,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 0 ! 6 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 6, 1/) real*8 :: x(2)=(/-7, -1/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2464,23 +2464,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-1 real*8 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 2, 1/) real*8 :: x(2)=(/-3, -1/)! reference x real*8 :: cy(2)=(/1, 1/)! reference cy after @@ -2543,23 +2543,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*8 :: VA(3)=(/1, 1, 1/) real*8 :: x(2)=(/-3, -6/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2622,23 +2622,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/-3, -3/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after @@ -2701,23 +2701,23 @@ contains character(len=*) :: afmt type(psb_dspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*8 :: alpha=-3 real*8 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*8 :: VA(2)=(/1, 1/) real*8 :: x(2)=(/-3, -3/)! reference x real*8 :: cy(2)=(/9, 9/)! reference cy after diff --git a/test/torture/psb_s_mvsv_tester.f90 b/test/torture/psb_s_mvsv_tester.f90 index c7944a9c0..8203067e8 100644 --- a/test/torture/psb_s_mvsv_tester.f90 +++ b/test/torture/psb_s_mvsv_tester.f90 @@ -6,24 +6,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=1 ! 1 1 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*4 :: VA(3)=(/1, 1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/9, 6/)! reference cy after @@ -82,24 +82,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=1 ! 1 0 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/9, 3/)! reference cy after @@ -158,24 +158,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=1 ! 1 2 ! 0 6 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*4 :: VA(3)=(/1, 2, 6/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/6, 27/)! reference cy after @@ -234,24 +234,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 2 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 2/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/9, 0/)! reference cy after @@ -310,24 +310,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 3 ! 2 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*4 :: VA(3)=(/1, 3, 2/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -386,24 +386,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 0 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/6, 0/)! reference cy after @@ -462,24 +462,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=1 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*4 :: VA(1)=(/1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/4, 3/)! reference cy after @@ -538,24 +538,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=1 ! 1 0 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/5, 3/)! reference cy after @@ -614,24 +614,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=1 ! 1 2 ! 5 1 ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) real*4 :: VA(4)=(/1, 2, 5, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/9, 6/)! reference cy after @@ -690,24 +690,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 1 ! 2 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*4 :: VA(3)=(/1, 1, 2/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/2, 2/)! reference cy after @@ -766,24 +766,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 3 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) real*4 :: VA(4)=(/1, 3, 1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/2, 4/)! reference cy after @@ -842,24 +842,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 2, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/3, 1/)! reference cy after @@ -918,24 +918,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=1 ! 1 3 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 3/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-1, 3/)! reference cy after @@ -994,24 +994,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=1 ! 1 1 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 1/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 1/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/2, 2/)! reference cy after @@ -1070,24 +1070,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=1 ! 1 0 ! 1 2 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 1, 2/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -1146,24 +1146,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-1, -2/)! reference cy after @@ -1222,24 +1222,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 4 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) real*4 :: VA(4)=(/1, 4, 3, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-4, -5/)! reference cy after @@ -1298,24 +1298,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 1 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*4 :: VA(3)=(/1, 1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-1, -2/)! reference cy after @@ -1374,24 +1374,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=1 ! 1 3 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*4 :: VA(3)=(/1, 3, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-9, 0/)! reference cy after @@ -1450,24 +1450,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=1 ! 1 4 ! 1 0 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) real*4 :: VA(3)=(/1, 4, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-3, -9/)! reference cy after @@ -1526,24 +1526,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=1 ! 1 1 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) real*4 :: VA(3)=(/1, 1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/0, -3/)! reference cy after @@ -1602,24 +1602,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 2 0 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) real*4 :: VA(2)=(/1, 2/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-3, -6/)! reference cy after @@ -1678,24 +1678,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 0 0 ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) real*4 :: VA(1)=(/1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-3, 0/)! reference cy after @@ -1754,24 +1754,24 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/-3, -3/)! reference cy after @@ -1830,23 +1830,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/3, 3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -1908,23 +1908,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/3, 3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -1987,23 +1987,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=3 real*4 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 1, 1/) real*4 :: x(2)=(/6, 3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -2066,23 +2066,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2145,23 +2145,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2224,23 +2224,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=1 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/1, 1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2303,23 +2303,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/-1, -1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2382,23 +2382,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 0 ! 3 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 3, 1/) real*4 :: x(2)=(/-4, -1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2461,23 +2461,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-1 real*4 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) real*4 :: VA(3)=(/1, 2, 1/) real*4 :: x(2)=(/-3, -1/)! reference x real*4 :: cy(2)=(/1, 1/)! reference cy after @@ -2540,23 +2540,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/-3, -3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -2619,23 +2619,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/-3, -3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after @@ -2698,23 +2698,23 @@ contains character(len=*) :: afmt type(psb_sspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 real*4 :: alpha=-3 real*4 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) real*4 :: VA(2)=(/1, 1/) real*4 :: x(2)=(/-3, -3/)! reference x real*4 :: cy(2)=(/9, 9/)! reference cy after diff --git a/test/torture/psb_z_mvsv_tester.f90 b/test/torture/psb_z_mvsv_tester.f90 index 1dddd0036..11c4b766b 100644 --- a/test/torture/psb_z_mvsv_tester.f90 +++ b/test/torture/psb_z_mvsv_tester.f90 @@ -7,24 +7,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=1 ! 1+1i 1+0i ! 5+1i 1+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (1.e0,0.e0), (5.e0,1.e0), (1,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(9.e0,3.e0), (21,6)/)! reference cy after @@ -83,24 +83,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=1 ! 1+1i 0+0i ! 2+3i 2+2i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (2.e0,3.e0), (2,2)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(12.e0,12.e0), (9,6)/)! reference cy after @@ -159,24 +159,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=1 ! 1+1i 0+0i ! 2+0i 1+3i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (2.e0,0.e0), (1,3)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(12.e0,-3.e0), (6,-9)/)! reference cy after @@ -235,24 +235,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1+1i 0+0i ! 0+0i 0+2i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*16 :: VA(2)=(/(1.e0,1.e0), (0,2)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(3.e0,3.e0), (0,6)/)! reference cy after @@ -311,24 +311,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1+1i 0+1i ! 1+0i 3+0i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (0.e0,1.e0), (1.e0,0.e0), (3,0)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(6.e0,3.e0), (9,3)/)! reference cy after @@ -387,24 +387,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1+1i 0+0i ! 1+3i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) complex*16 :: VA(2)=(/(1.e0,1.e0), (1,3)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(6.e0,-12.e0), (0,0)/)! reference cy after @@ -463,24 +463,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=1 ! 1+1i 0+0i ! 0+3i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) complex*16 :: VA(2)=(/(1.e0,1.e0), (0,3)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(4.e0,1.e0), (3,3)/)! reference cy after @@ -539,24 +539,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=1 ! 1+1i 0+0i ! 0+1i 1+3i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (0.e0,1.e0), (1,3)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(4.e0,2.e0), (4,3)/)! reference cy after @@ -615,24 +615,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=1 ! 1+1i 1+3i ! 0+0i 0+2i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (1.e0,3.e0), (0,2)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(4.e0,-1.e0), (4,-5)/)! reference cy after @@ -691,24 +691,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1+1i 3+2i ! 0+0i 0+4i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (3.e0,2.e0), (0,4)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(4.e0,3.e0), (0,4)/)! reference cy after @@ -767,24 +767,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1+1i 0+0i ! 0+4i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (0.e0,4.e0), (1,0)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(1.e0,5.e0), (1,0)/)! reference cy after @@ -843,24 +843,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1+1i 0+0i ! 1+3i 0+0i ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 1/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 1/) complex*16 :: VA(2)=(/(1.e0,1.e0), (1,3)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(2.e0,-4.e0), (0,0)/)! reference cy after @@ -919,24 +919,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=1 ! 1+1i 0+0i ! 3+2i 1+1i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (3.e0,2.e0), (1,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(2.e0,-1.e0), (-1,-3)/)! reference cy after @@ -995,24 +995,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=1 ! 1+1i 0+0i ! 0+3i 0+1i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (0.e0,3.e0), (0,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(2.e0,-4.e0), (3,-1)/)! reference cy after @@ -1071,24 +1071,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=1 ! 1+1i 0+0i ! 0+4i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (0.e0,4.e0), (1,0)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(2.e0,5.e0), (2,0)/)! reference cy after @@ -1147,24 +1147,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1+1i 0+0i ! 5+3i 2+2i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (5.e0,3.e0), (2,2)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-1.e0,-1.e0), (-7,-5)/)! reference cy after @@ -1223,24 +1223,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1+1i 1+0i ! 0+3i 3+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (1.e0,0.e0), (0.e0,3.e0), (3,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-1.e0,-4.e0), (-4,-1)/)! reference cy after @@ -1299,24 +1299,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1+1i 2+0i ! 1+0i 0+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (2.e0,0.e0), (1.e0,0.e0), (0,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-2.e0,1.e0), (-2,1)/)! reference cy after @@ -1375,24 +1375,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=1 ! 1+1i 0+0i ! 2+3i 0+1i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (2.e0,3.e0), (0,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(0.e0,-3.e0), (-3,-12)/)! reference cy after @@ -1451,24 +1451,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=1 ! 1+1i 0+0i ! 1+4i 2+4i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,1.e0), (1.e0,4.e0), (2,4)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-3.e0,-15.e0), (-3,-12)/)! reference cy after @@ -1527,24 +1527,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=1 ! 1+1i 0+2i ! 2+0i 0+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 1, 2/) - integer :: JA(3)=(/1, 2, 1/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 2, 1/) complex*16 :: VA(3)=(/(1.e0,1.e0), (0.e0,2.e0), (2,0)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-6.e0,3.e0), (3,6)/)! reference cy after @@ -1603,24 +1603,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1+1i 0+3i ! 0+1i 1+1i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (0.e0,3.e0), (0.e0,1.e0), (1,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-3.e0,-12.e0), (-3,-6)/)! reference cy after @@ -1679,24 +1679,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1+1i 0+1i ! 0+3i 1+5i ! declaration of VA,IA,JA - integer :: nnz=4 - integer :: m=2 - integer :: k=2 - integer :: IA(4)=(/1, 1, 2, 2/) - integer :: JA(4)=(/1, 2, 1, 2/) + integer(psb_ipk_) :: nnz=4 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(4)=(/1, 1, 2, 2/) + integer(psb_ipk_) :: JA(4)=(/1, 2, 1, 2/) complex*16 :: VA(4)=(/(1.e0,1.e0), (0.e0,1.e0), (0.e0,3.e0), (1,5)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-3.e0,-12.e0), (-3,-18)/)! reference cy after @@ -1755,24 +1755,24 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 - integer :: incy=1 + integer(psb_ipk_) :: incx=1 + integer(psb_ipk_) :: incy=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1+1i 0+0i ! 0+0i 0+0i ! declaration of VA,IA,JA - integer :: nnz=1 - integer :: m=2 - integer :: k=2 - integer :: IA(1)=(/1/) - integer :: JA(1)=(/1/) + integer(psb_ipk_) :: nnz=1 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(1)=(/1/) + integer(psb_ipk_) :: JA(1)=(/1/) complex*16 :: VA(1)=(/(1,1)/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/(-3.e0,3.e0), (0,0)/)! reference cy after @@ -1831,23 +1831,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1+0i 0+0i ! 0+2i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,0.e0), (0.e0,2.e0), (1,0)/) complex*16 :: x(2)=(/(3.e0,0.e0), (3,6)/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after @@ -1910,23 +1910,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1+0i 0+0i ! 0+1i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,0.e0), (0.e0,1.e0), (1,0)/) complex*16 :: x(2)=(/(3.e0,3.e0), (3,0)/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after @@ -1989,23 +1989,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=3 complex*16 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/1, 1, 1/) complex*16 :: x(2)=(/6, 3/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after @@ -2068,23 +2068,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1+0i 0+0i ! 1+5i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,0.e0), (1.e0,5.e0), (1,0)/) complex*16 :: x(2)=(/(1.e0,0.e0), (2,5)/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2147,23 +2147,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*16 :: VA(2)=(/1, 1/) complex*16 :: x(2)=(/1, 1/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2226,23 +2226,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=1 complex*16 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/1, 2, 1/) complex*16 :: x(2)=(/3, 1/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2305,23 +2305,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/1, 2, 1/) complex*16 :: x(2)=(/-1, -3/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2384,23 +2384,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1 0 ! 0 1 ! declaration of VA,IA,JA - integer :: nnz=2 - integer :: m=2 - integer :: k=2 - integer :: IA(2)=(/1, 2/) - integer :: JA(2)=(/1, 2/) + integer(psb_ipk_) :: nnz=2 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(2)=(/1, 2/) + integer(psb_ipk_) :: JA(2)=(/1, 2/) complex*16 :: VA(2)=(/1, 1/) complex*16 :: x(2)=(/-1, -1/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2463,23 +2463,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-1 complex*16 :: beta=0 ! 1 0 ! 2 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/1, 2, 1/) complex*16 :: x(2)=(/-3, -1/)! reference x complex*16 :: cy(2)=(/1, 1/)! reference cy after @@ -2542,23 +2542,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='n' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1 0 ! 1 1 ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/1, 1, 1/) complex*16 :: x(2)=(/-3, -6/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after @@ -2621,23 +2621,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='t' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1+0i 0+0i ! 1+3i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,0.e0), (1.e0,3.e0), (1,0)/) complex*16 :: x(2)=(/(-6.e0,-9.e0), (-3,0)/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after @@ -2700,23 +2700,23 @@ contains character(len=*) :: afmt type(psb_zspmat_type) :: a type(psb_desc_type) :: desc_a - integer :: ictxt, iam=-1, np=-1 - integer :: info=-1 + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 + integer(psb_ipk_) :: info=-1 - integer::res,istat=0,i + integer(psb_ipk_) ::res,istat=0,i character::transa='c' - integer :: incx=1 + integer(psb_ipk_) :: incx=1 complex*16 :: alpha=-3 complex*16 :: beta=0 ! 1+0i 0+0i ! 2+3i 1+0i ! declaration of VA,IA,JA - integer :: nnz=3 - integer :: m=2 - integer :: k=2 - integer :: IA(3)=(/1, 2, 2/) - integer :: JA(3)=(/1, 1, 2/) + integer(psb_ipk_) :: nnz=3 + integer(psb_ipk_) :: m=2 + integer(psb_ipk_) :: k=2 + integer(psb_ipk_) :: IA(3)=(/1, 2, 2/) + integer(psb_ipk_) :: JA(3)=(/1, 1, 2/) complex*16 :: VA(3)=(/(1.e0,0.e0), (2.e0,3.e0), (1,0)/) complex*16 :: x(2)=(/(-9.e0,9.e0), (-3,0)/)! reference x complex*16 :: cy(2)=(/9, 9/)! reference cy after diff --git a/test/torture/psbtf.f90 b/test/torture/psbtf.f90 index 53d07ef66..886bcb074 100644 --- a/test/torture/psbtf.f90 +++ b/test/torture/psbtf.f90 @@ -9,9 +9,9 @@ program main use psb_base_mod use psb_mvsv_tester implicit none - integer, parameter :: psb_fidasize_=16 - integer :: res,passed=0,failed=0; - integer :: ictxt, iam=-1, np=-1 + integer(psb_ipk_), parameter :: psb_fidasize_=16 + integer(psb_ipk_) :: res,passed=0,failed=0; + integer(psb_ipk_) :: ictxt, iam=-1, np=-1 character(len=psb_fidasize_) :: afmt write(psb_out_unit,*) 'Format ?' diff --git a/test/util/dhb2mm.f90 b/test/util/dhb2mm.f90 index b520d3c6b..aae01ed02 100644 --- a/test/util/dhb2mm.f90 +++ b/test/util/dhb2mm.f90 @@ -39,7 +39,7 @@ program dhb2mm use psb_util_mod type(psb_dspmat_type) :: a - integer :: info + integer(psb_ipk_) :: info character(len=72) :: mtitle diff --git a/test/util/dmm2hb.f90 b/test/util/dmm2hb.f90 index 6f6c41d9b..2b16f2cfb 100644 --- a/test/util/dmm2hb.f90 +++ b/test/util/dmm2hb.f90 @@ -39,7 +39,7 @@ program dmm2hb use psb_util_mod type(psb_dspmat_type) :: a - integer info + integer(psb_ipk_) :: info call mm_mat_read(a,info) diff --git a/test/util/zhb2mm.f90 b/test/util/zhb2mm.f90 index 6bb5b5368..bd402eac1 100644 --- a/test/util/zhb2mm.f90 +++ b/test/util/zhb2mm.f90 @@ -39,7 +39,7 @@ program zhb2mm use psb_util_mod type(psb_zspmat_type) :: a - integer :: info + integer(psb_ipk_) :: info character(len=72) :: mtitle diff --git a/test/util/zmm2hb.f90 b/test/util/zmm2hb.f90 index 7bf92f9a2..edf06b1ce 100644 --- a/test/util/zmm2hb.f90 +++ b/test/util/zmm2hb.f90 @@ -39,7 +39,7 @@ program zmm2hb use psb_util_mod type(psb_zspmat_type) :: a - integer info + integer(psb_ipk_) :: info call mm_mat_read(a,info) diff --git a/util/psb_blockpart_mod.f90 b/util/psb_blockpart_mod.f90 index f17d4eb37..b69858212 100644 --- a/util/psb_blockpart_mod.f90 +++ b/util/psb_blockpart_mod.f90 @@ -36,13 +36,13 @@ module psb_blockpart_mod contains subroutine part_block(global_indx,n,np,pv,nv) - + use psb_base_mod, only : psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) - integer dim_block + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) + integer(psb_ipk_) :: dim_block dim_block = (n + np - 1)/np nv = 1 @@ -55,9 +55,10 @@ contains subroutine bld_partblock(n,np,ivg) - integer n,np,ivg(*) + use psb_base_mod, only : psb_ipk_ + integer(psb_ipk_) :: n,np,ivg(*) - integer dim_block,i + integer(psb_ipk_) :: dim_block,i dim_block = (n + np - 1)/np diff --git a/util/psb_c_hbio_impl.f90 b/util/psb_c_hbio_impl.f90 index 37466f0df..1cd6ad917 100644 --- a/util/psb_c_hbio_impl.f90 +++ b/util/psb_c_hbio_impl.f90 @@ -33,8 +33,8 @@ subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle) use psb_base_mod implicit none type(psb_cspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename complex(psb_spk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle @@ -42,11 +42,11 @@ subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle) character :: rhstype*3,type*3,key*8 character(len=72) :: mtitle_ character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 - integer :: indcrd, ptrcrd, totcrd,& + integer(psb_ipk_) :: indcrd, ptrcrd, totcrd,& & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix type(psb_c_csc_sparse_mat) :: acsc type(psb_c_coo_sparse_mat) :: acoo - integer :: ircode, i,nzr,infile, info + integer(psb_ipk_) :: ircode, i,nzr,infile, info character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -238,18 +238,18 @@ subroutine chb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) use psb_base_mod implicit none type(psb_cspmat_type), intent(in), target :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key complex(psb_spk_), optional :: rhs(:), g(:), x(:) - integer :: iout + integer(psb_ipk_) :: iout character(len=*), parameter:: ptrfmt='(10I8)',indfmt='(10I8)' - integer, parameter :: jptr=10,jind=10 + integer(psb_ipk_), parameter :: jptr=10,jind=10 character(len=*), parameter:: valfmt='(4E20.12)',rhsfmt='(4E20.12)' - integer, parameter :: jval=2,jrhs=2 + integer(psb_ipk_), parameter :: jval=2,jrhs=2 character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -260,7 +260,7 @@ subroutine chb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) character :: rhstype*3,type*3 - integer :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& + integer(psb_ipk_) :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& & nrow,ncol,nnzero, neltvl, nrhs, nrhsix iret = 0 diff --git a/util/psb_c_mat_dist_impl.f90 b/util/psb_c_mat_dist_impl.f90 index 28bd36f84..107f7e49e 100644 --- a/util/psb_c_mat_dist_impl.f90 +++ b/util/psb_c_mat_dist_impl.f90 @@ -54,9 +54,9 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -67,7 +67,7 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -83,7 +83,7 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -94,36 +94,37 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_cspmat_type) :: a_glob complex(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_cspmat_type) :: a type(psb_c_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_c_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) complex(psb_spk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err diff --git a/util/psb_c_mmio_impl.f90 b/util/psb_c_mmio_impl.f90 index 93109c8b8..0856d1395 100644 --- a/util/psb_c_mmio_impl.f90 +++ b/util/psb_c_mmio_impl.f90 @@ -33,10 +33,10 @@ subroutine mm_cvet_read(b, info, iunit, filename) use psb_base_mod implicit none complex(psb_spk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j,infile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j,infile real(psb_spk_) :: bre, bim character :: mmheader*15, fmt*15, object*10, type*10, sym*15,& & line*1024 @@ -111,10 +111,10 @@ subroutine mm_cvet2_write(b, header, info, iunit, filename) implicit none complex(psb_spk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -167,10 +167,10 @@ subroutine mm_cvet1_write(b, header, info, iunit, filename) implicit none complex(psb_spk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -222,13 +222,13 @@ subroutine cmm_mat_read(a, info, iunit, filename) use psb_base_mod implicit none type(psb_cspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character(1024) :: line - integer :: nrow, ncol, nnzero - integer :: ircode, i,nzr,infile + integer(psb_ipk_) :: nrow, ncol, nnzero + integer(psb_ipk_) :: ircode, i,nzr,infile type(psb_c_coo_sparse_mat), allocatable :: acoo real(psb_spk_) :: are, aim info = psb_success_ @@ -350,11 +350,11 @@ subroutine cmm_mat_write(a,mtitle,info,iunit,filename) use psb_base_mod implicit none type(psb_cspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: iout + integer(psb_ipk_) :: iout info = psb_success_ diff --git a/util/psb_c_renum_impl.F90 b/util/psb_c_renum_impl.F90 index c4ae2fabb..0e81a7487 100644 --- a/util/psb_c_renum_impl.F90 +++ b/util/psb_c_renum_impl.F90 @@ -4,10 +4,10 @@ subroutine psb_c_mat_renums(alg,mat,info,perm) implicit none character(len=*), intent(in) :: alg type(psb_cspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc, ialg + integer(psb_ipk_) :: err_act, nr, nc, ialg character(len=20) :: name info = psb_success_ @@ -47,12 +47,12 @@ subroutine psb_c_mat_renum(alg,mat,info,perm) use psb_base_mod use psb_renum_mod, psb_protect_name => psb_c_mat_renum implicit none - integer, intent(in) :: alg + integer(psb_ipk_), intent(in) :: alg type(psb_cspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc + integer(psb_ipk_) :: err_act, nr, nc character(len=20) :: name info = psb_success_ @@ -108,18 +108,18 @@ contains use psb_gps_mod implicit none type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! class(psb_c_base_sparse_mat), allocatable :: aa type(psb_c_csr_sparse_mat) :: acsr type(psb_c_coo_sparse_mat) :: acoo - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name - integer, allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) - integer :: i, j, k, ideg, nr, ibw, ipf, idpth + integer(psb_ipk_), allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth info = psb_success_ name = 'mat_renum' @@ -203,8 +203,8 @@ contains use psb_base_mod implicit none type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING) @@ -223,10 +223,10 @@ contains class(psb_c_base_sparse_mat), allocatable :: aa type(psb_c_coo_sparse_mat) :: acoo - integer, allocatable :: perm(:) - integer :: err_act + integer(psb_ipk_), allocatable :: perm(:) + integer(psb_ipk_) :: err_act character(len=20) :: name - integer :: i, j, k, ideg, nr, ibw, ipf, idpth, nz + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth, nz info = psb_success_ name = 'mat_renum_amd' @@ -311,14 +311,14 @@ subroutine psb_c_cmp_bwpf(mat,bwl,bwu,prf,info) use psb_renum_mod, psb_protect_name => psb_c_cmp_bwpf implicit none type(psb_cspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info ! - integer, allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: irow(:), icol(:) complex(psb_spk_), allocatable :: val(:) - integer :: nz - integer :: i, j, lrbu, lrbl + integer(psb_ipk_) :: nz + integer(psb_ipk_) :: i, j, lrbu, lrbl info = psb_success_ bwl = 0 diff --git a/util/psb_d_hbio_impl.f90 b/util/psb_d_hbio_impl.f90 index 5e5e941cf..e5ede7db9 100644 --- a/util/psb_d_hbio_impl.f90 +++ b/util/psb_d_hbio_impl.f90 @@ -33,8 +33,8 @@ subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle) use psb_base_mod implicit none type(psb_dspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename real(psb_dpk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle @@ -42,11 +42,11 @@ subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle) character :: rhstype*3,type*3,key*8 character(len=72) :: mtitle_ character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 - integer :: indcrd, ptrcrd, totcrd,& + integer(psb_ipk_) :: indcrd, ptrcrd, totcrd,& & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix type(psb_d_csc_sparse_mat) :: acsc type(psb_d_coo_sparse_mat) :: acoo - integer :: ircode, i,nzr,infile, info + integer(psb_ipk_) :: ircode, i,nzr,infile, info character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -191,18 +191,18 @@ subroutine dhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) use psb_base_mod implicit none type(psb_dspmat_type), intent(in), target :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key real(psb_dpk_), optional :: rhs(:), g(:), x(:) - integer :: iout + integer(psb_ipk_) :: iout character(len=*), parameter:: ptrfmt='(10I8)',indfmt='(10I8)' - integer, parameter :: jptr=10,jind=10 + integer(psb_ipk_), parameter :: jptr=10,jind=10 character(len=*), parameter:: valfmt='(4E20.12)',rhsfmt='(4E20.12)' - integer, parameter :: jval=4,jrhs=4 + integer(psb_ipk_), parameter :: jval=4,jrhs=4 character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -213,7 +213,7 @@ subroutine dhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) character :: rhstype*3,type*3 - integer :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& + integer(psb_ipk_) :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& & nrow,ncol,nnzero, neltvl, nrhs, nrhsix iret = 0 diff --git a/util/psb_d_mat_dist_impl.f90 b/util/psb_d_mat_dist_impl.f90 index 503e4e7bf..00a611f11 100644 --- a/util/psb_d_mat_dist_impl.f90 +++ b/util/psb_d_mat_dist_impl.f90 @@ -54,9 +54,9 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -67,7 +67,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -83,7 +83,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -94,36 +94,37 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_dspmat_type) :: a_glob real(psb_dpk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_dspmat_type) :: a type(psb_d_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_d_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) real(psb_dpk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err diff --git a/util/psb_d_mmio_impl.f90 b/util/psb_d_mmio_impl.f90 index e835fcb44..f791f5596 100644 --- a/util/psb_d_mmio_impl.f90 +++ b/util/psb_d_mmio_impl.f90 @@ -33,10 +33,10 @@ subroutine mm_dvet_read(b, info, iunit, filename) use psb_base_mod implicit none real(psb_dpk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, infile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, infile character :: mmheader*15, fmt*15, object*10, type*10, sym*15,& & line*1024 @@ -103,10 +103,10 @@ subroutine mm_dvet2_write(b, header, info, iunit, filename) implicit none real(psb_dpk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -159,10 +159,10 @@ subroutine mm_dvet1_write(b, header, info, iunit, filename) implicit none real(psb_dpk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -214,13 +214,13 @@ subroutine dmm_mat_read(a, info, iunit, filename) use psb_base_mod implicit none type(psb_dspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character(1024) :: line - integer :: nrow, ncol, nnzero - integer :: ircode, i,nzr,infile + integer(psb_ipk_) :: nrow, ncol, nnzero + integer(psb_ipk_) :: ircode, i,nzr,infile type(psb_d_coo_sparse_mat), allocatable :: acoo info = psb_success_ @@ -320,11 +320,11 @@ subroutine dmm_mat_write(a,mtitle,info,iunit,filename) use psb_base_mod implicit none type(psb_dspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: iout + integer(psb_ipk_) :: iout info = psb_success_ diff --git a/util/psb_d_renum_impl.F90 b/util/psb_d_renum_impl.F90 index 5feae72b2..8d4b3888c 100644 --- a/util/psb_d_renum_impl.F90 +++ b/util/psb_d_renum_impl.F90 @@ -4,10 +4,10 @@ subroutine psb_d_mat_renums(alg,mat,info,perm) implicit none character(len=*), intent(in) :: alg type(psb_dspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc, ialg + integer(psb_ipk_) :: err_act, nr, nc, ialg character(len=20) :: name info = psb_success_ @@ -51,12 +51,12 @@ subroutine psb_d_mat_renum(alg,mat,info,perm) use psb_base_mod use psb_renum_mod, psb_protect_name => psb_d_mat_renum implicit none - integer, intent(in) :: alg + integer(psb_ipk_), intent(in) :: alg type(psb_dspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc, i + integer(psb_ipk_) :: err_act, nr, nc, i character(len=20) :: name info = psb_success_ @@ -124,18 +124,18 @@ contains use psb_gps_mod implicit none type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! class(psb_d_base_sparse_mat), allocatable :: aa type(psb_d_csr_sparse_mat) :: acsr type(psb_d_coo_sparse_mat) :: acoo - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name - integer, allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) - integer :: i, j, k, ideg, nr, ibw, ipf, idpth + integer(psb_ipk_), allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth info = psb_success_ name = 'mat_renum_gps' @@ -219,8 +219,8 @@ contains use psb_base_mod implicit none type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING) @@ -239,10 +239,10 @@ contains class(psb_d_base_sparse_mat), allocatable :: aa type(psb_d_coo_sparse_mat) :: acoo - integer, allocatable :: perm(:) - integer :: err_act + integer(psb_ipk_), allocatable :: perm(:) + integer(psb_ipk_) :: err_act character(len=20) :: name - integer :: i, j, k, ideg, nr, ibw, ipf, idpth, nz + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth, nz info = psb_success_ name = 'mat_renum_amd' @@ -327,14 +327,14 @@ subroutine psb_d_cmp_bwpf(mat,bwl,bwu,prf,info) use psb_renum_mod, psb_protect_name => psb_d_cmp_bwpf implicit none type(psb_dspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info ! - integer, allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: irow(:), icol(:) real(psb_dpk_), allocatable :: val(:) - integer :: nz - integer :: i, j, lrbu, lrbl + integer(psb_ipk_) :: nz + integer(psb_ipk_) :: i, j, lrbu, lrbl info = psb_success_ bwl = 0 diff --git a/util/psb_gps_mod.f90 b/util/psb_gps_mod.f90 index 5e276df2c..5d3ee2977 100644 --- a/util/psb_gps_mod.f90 +++ b/util/psb_gps_mod.f90 @@ -38,18 +38,19 @@ ! module psb_gps_mod ! + use psb_base_mod, only : psb_ipk_ public psb_gps_reduce ! ! COMMON /GRA/ N, IDPTH, IDEG ! private ! common /CC/ XCC,SIZEG,STPT - INTEGER, save :: xcc,n,idpth,ideg - INTEGER,allocatable,SAVE ::SIZEG(:),STPT(:) + integer(psb_ipk_), save :: xcc,n,idpth,ideg + integer(psb_ipk_),allocatable,SAVE ::SIZEG(:),STPT(:) ! ! COMMON /LVLW/ NHIGH,NLOW,NACUM - INTEGER,allocatable,target,save :: NHIGH(:),NLOW(:),NACUM(:),AUX(:) - INTEGER,PARAMETER :: INIT=500 + integer(psb_ipk_),allocatable,target,save :: NHIGH(:),NLOW(:),NACUM(:),AUX(:) + integer(psb_ipk_),PARAMETER :: INIT=500 ! CONTAINS ! @@ -109,17 +110,17 @@ CONTAINS ! ARE AT MOST 100 LEVELS. ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. use psb_base_mod - INTEGER NDSTK - INTEGER STNODE, RVNODE, RENUM, STNUM, CCSTOR, SBNUM + INTEGER(psb_ipk_) :: NDSTK + INTEGER(psb_ipk_) :: STNODE, RVNODE, RENUM, STNUM, CCSTOR, SBNUM ! COMMON /GRA/ N, IDPTH, IDEG ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS. ! COMMON /CC/ XCC, SIZEG(50), STPT(50) ! COMMON /LVLW/ NHIGH(100), NLOW(100), NACUM(100) DIMENSION CCSTOR(NR), IOLD(NR) DIMENSION NDSTK(NR,IDEGE), LVL(NR), LVLS1(NR), LVLS2(NR), RENUM(NR+1), NDEG(NR) -!!$ integer :: stnode, rvnode, stnum, sbnum -!!$ integer :: ndstk(nr,iedge), iold(nr), renum(nr+1), ndeg(nr) -!!$ integer :: lvl(nr), lvls1(nr), lvls2(nr), ccstor(nr) +!!$ integer(psb_ipk_) :: stnode, rvnode, stnum, sbnum +!!$ integer(psb_ipk_) :: ndstk(nr,iedge), iold(nr), renum(nr+1), ndeg(nr) +!!$ integer(psb_ipk_) :: lvl(nr), lvls1(nr), lvls2(nr), ccstor(nr) n = nr ideg = idege @@ -224,7 +225,7 @@ CONTAINS ! IT IN THE ARRAY NDEG. THE BANDWIDTH AND PROFILE FOR THE ORIGINAL ! OR INPUT RENUMBERING OF THE GRAPH IS COMPUTED ALSO. ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. - INTEGER NDSTK + INTEGER(psb_ipk_) :: NDSTK ! COMMON /GRA/ N, IDPTH, IDEG DIMENSION NDSTK(NR,IDEG), NDEG(N), IOLD(N) @@ -259,12 +260,12 @@ CONTAINS ! =1 IF WIDTH OF LVLS1 <= WIDTH OF LVLS2, OTHERWISE =2 ! LVL,IWK- WORKING STORAGE ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. - INTEGER NDSTK - INTEGER FLAG, SND, SND1, SND2 + INTEGER(psb_ipk_) :: NDSTK + INTEGER(psb_ipk_) :: FLAG, SND, SND1, SND2 ! COMMON /GRA/ N, IDPTH, IDEG ! IT IS ASSUMED THAT THE LAST LEVEL HAS AT MOST 100 NODES. ! COMMON /CC/ NDLST(100) - INTEGER,POINTER :: NDLST(:) + integer(psb_ipk_),POINTER :: NDLST(:) DIMENSION NDSTK(NR,IDEG), NDEG(1), LVL(N), LVLS1(N), LVLS2(N),IWK(N) ! NDLST => AUX @@ -335,7 +336,7 @@ CONTAINS ! IBORT- INPUT PARAM WHICH TRIGGERS EARLY RETURN IF ! MAXLW BECOMES >= IBORT ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. - INTEGER NDSTK + INTEGER(psb_ipk_) :: NDSTK DIMENSION NDSTK(NR,IDEG), LVL(N), IWK(N), NDEG(N) MAXLW = 0 ITOP = LVLN @@ -370,7 +371,7 @@ CONTAINS ! SORTDG SORTS STK2 BY DEGREE OF THE NODE AND ADDS IT TO THE END ! OF STK1 IN ORDER OF LOWEST TO HIGHEST DEGREE. X1 AND X2 ARE THE ! NUMBER OF NODES IN STK1 AND STK2 RESPECTIVELY. - INTEGER X1, X2, STK1, STK2, TEMP + INTEGER(psb_ipk_) :: X1, X2, STK1, STK2, TEMP ! COMMON /GRA/ N, IDPTH, IDEG DIMENSION NDEG(N), STK1(X1+X2), STK2(X2) IND = X2 @@ -406,7 +407,7 @@ CONTAINS ! COMMON /LVLW/ NHIGH(100), NLOW(100), NACUM(100) use psb_base_mod DIMENSION LVL(N), LVLS1(N), LVLS2(N) - INTEGER :: SZ + integer(psb_ipk_) :: SZ !----------------------------------------------------- SZ=SIZE(NACUM) IF(SZ < IDPTH) THEN @@ -430,16 +431,17 @@ CONTAINS RETURN END SUBROUTINE SETUP ! - INTEGER FUNCTION SORT2() + FUNCTION SORT2() result(val) + INTEGER(psb_ipk_) :: val ! SORT2 SORTS SIZEG AND STPT INTO DESCENDING ORDER ACCORDING TO ! VALUES OF SIZEG. XCC=NUMBER OF ENTRIES IN EACH ARRAY - INTEGER TEMP + INTEGER(psb_ipk_) :: TEMP ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 CONNECTED COMPONENTS. !COMMON /CC/ XCC, SIZEG(50), STPT(50) - SORT2 = 0 + VAL = 0 IF (XCC == 0) RETURN - SORT2 = 1 + VAL = 1 IND = XCC 10 ITEST = 0 IND = IND - 1 @@ -475,14 +477,14 @@ CONTAINS ! STPT(I)- INDEX INTO CCSTORE OF 1ST NODE IN ITH CON COMPT ! ISDIR- FLAG WHICH INDICATES WHICH WAY THE LARGEST CONNECTED ! COMPONENT FELL. =+1 IF LOW AND -1 IF HIGH - INTEGER CCSTOR, ENDC + INTEGER(psb_ipk_) :: CCSTOR, ENDC ! COMMON /GRA/ N, IDPTH, IDEG ! IT IS ASSUMED THAT THE GRAPH HAS AT MOST 50 COMPONENTS AND ! THAT THERE ARE AT MOST 100 LEVELS. ! COMMON /LVLW/ NHIGH(100), NLOW(100), NACUM(100) ! COMMON /CC/ XCC, SIZEG(50), STPT(50) DIMENSION LVLS1(N), LVLS2(N), CCSTOR(N) - INTEGER :: SZ + integer(psb_ipk_) :: SZ ! FOR EACH CONNECTED COMPONENT DO DO 80 I=1,XCC J = STPT(I) @@ -563,8 +565,8 @@ CONTAINS ! IPFA- WORKING STORAGE USED TO COMPUTE PROFILE AND BANDWIDTH ! ISDIR- INDICATES STEP DIRECTION USED IN NUMBERING(+1 OR -1) ! USE INTEGER*2 NDSTK WITH AN IBM 360 OR 370. - INTEGER NDSTK - INTEGER SND, XA, XB, XC, XD, CX, ENDC,RENUM, TEST + INTEGER(psb_ipk_) :: NDSTK + INTEGER(psb_ipk_) :: SND, XA, XB, XC, XD, CX, ENDC,RENUM, TEST ! COMMON /GRA/ N, IDPTH, IDEG ! THE STORAGE IN COMMON BLOCKS CC AND LVLW IS NOW FREE AND CAN ! BE USED FOR STACKS. @@ -572,8 +574,8 @@ CONTAINS !COMMON /CC/ STKD(100) DIMENSION IPFA(N) DIMENSION NDSTK(NR,IDEG), LVLS2(N), NDEG(N), RENUM(N+1), LVLST(N),LSTPT(N) - INTEGER,POINTER :: STKA(:),STKB(:),STKC(:),STKD(:) - INTEGER :: SZ1,SZ2 + integer(psb_ipk_),POINTER :: STKA(:),STKB(:),STKC(:),STKD(:) + integer(psb_ipk_) :: SZ1,SZ2 ! STKA => NHIGH STKB => NLOW @@ -751,8 +753,8 @@ CONTAINS ! PERFORM ON FLY REALLOCATION OF POINTER VET INCREASING ! ITS SIZE FROM SZ1 TO SZ2 IMPLICIT NONE - INTEGER,allocatable :: VET(:) - INTEGER :: SZ1,SZ2,INFO + integer(psb_ipk_),allocatable :: VET(:) + integer(psb_ipk_) :: SZ1,SZ2,INFO call psb_realloc(sz2,vet,info) IF(INFO /= psb_success_) THEN diff --git a/util/psb_hbio_mod.f90 b/util/psb_hbio_mod.f90 index 6f63b612e..ce051ec4f 100644 --- a/util/psb_hbio_mod.f90 +++ b/util/psb_hbio_mod.f90 @@ -31,44 +31,49 @@ !!$ module psb_hbio_mod + use psb_base_mod, only : psb_ipk_, psb_spk_, psb_dpk_,& + & psb_sspmat_type, psb_cspmat_type, & + & psb_dspmat_type, psb_zspmat_type + + public hb_read, hb_write interface hb_read subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle) - use psb_base_mod, only : psb_sspmat_type, psb_spk_ + import :: psb_sspmat_type, psb_spk_, psb_ipk_ implicit none type(psb_sspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename real(psb_spk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle end subroutine shb_read subroutine dhb_read(a, iret, iunit, filename,b,g,x,mtitle) - use psb_base_mod, only : psb_dspmat_type, psb_dpk_ + import :: psb_dspmat_type, psb_dpk_, psb_ipk_ implicit none type(psb_dspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename real(psb_dpk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle end subroutine dhb_read subroutine chb_read(a, iret, iunit, filename,b,g,x,mtitle) - use psb_base_mod, only : psb_cspmat_type, psb_spk_ + import :: psb_cspmat_type, psb_spk_, psb_ipk_ implicit none type(psb_cspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename complex(psb_spk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle end subroutine chb_read subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle) - use psb_base_mod, only : psb_zspmat_type, psb_dpk_ + import :: psb_zspmat_type, psb_dpk_, psb_ipk_ implicit none type(psb_zspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename complex(psb_dpk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle @@ -77,45 +82,45 @@ module psb_hbio_mod interface hb_write subroutine shb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) - use psb_base_mod, only : psb_sspmat_type, psb_spk_ + import :: psb_sspmat_type, psb_spk_, psb_ipk_ implicit none type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key real(psb_spk_), optional :: rhs(:), g(:), x(:) end subroutine shb_write subroutine dhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) - use psb_base_mod, only : psb_dspmat_type, psb_dpk_ + import :: psb_dspmat_type, psb_dpk_, psb_ipk_ implicit none type(psb_dspmat_type), intent(inout) :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key real(psb_dpk_), optional :: rhs(:), g(:), x(:) end subroutine dhb_write subroutine chb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) - use psb_base_mod, only : psb_cspmat_type, psb_spk_ + import :: psb_cspmat_type, psb_spk_, psb_ipk_ implicit none type(psb_cspmat_type), intent(inout) :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key complex(psb_spk_), optional :: rhs(:), g(:), x(:) end subroutine chb_write subroutine zhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) - use psb_base_mod, only : psb_zspmat_type, psb_dpk_ + import :: psb_zspmat_type, psb_dpk_, psb_ipk_ implicit none type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key complex(psb_dpk_), optional :: rhs(:), g(:), x(:) diff --git a/util/psb_mat_dist_impl.f90 b/util/psb_mat_dist_impl.f90 index facf0ffe1..02da59410 100644 --- a/util/psb_mat_dist_impl.f90 +++ b/util/psb_mat_dist_impl.f90 @@ -54,9 +54,9 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -67,7 +67,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -83,7 +83,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -94,36 +94,36 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_sspmat_type) :: a_glob real(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_sspmat_type) :: a real(psb_spk_), allocatable :: b(:) type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_s_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) real(psb_spk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err @@ -495,9 +495,9 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -508,7 +508,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -524,7 +524,7 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -535,36 +535,36 @@ subroutine dmatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_dspmat_type) :: a_glob real(psb_dpk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_dspmat_type) :: a real(psb_dpk_), allocatable :: b(:) type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_d_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) real(psb_dpk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err @@ -939,9 +939,9 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -952,7 +952,7 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -968,7 +968,7 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -979,36 +979,36 @@ subroutine cmatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_cspmat_type) :: a_glob complex(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_cspmat_type) :: a complex(psb_spk_), allocatable :: b(:) type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_c_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) complex(psb_spk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err @@ -1380,9 +1380,9 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -1393,7 +1393,7 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -1409,7 +1409,7 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -1420,36 +1420,36 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_zspmat_type) :: a_glob complex(psb_dpk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_zspmat_type) :: a complex(psb_dpk_), allocatable :: b(:) type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_z_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) complex(psb_dpk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err diff --git a/util/psb_mat_dist_mod.f90 b/util/psb_mat_dist_mod.f90 index cd6be7341..3d8f5de08 100644 --- a/util/psb_mat_dist_mod.f90 +++ b/util/psb_mat_dist_mod.f90 @@ -30,6 +30,11 @@ !!$ !!$ module psb_mat_dist_mod + use psb_base_mod, only : psb_ipk_, psb_spk_, psb_dpk_, psb_desc_type, & + & psb_sspmat_type, psb_cspmat_type, psb_dspmat_type, psb_zspmat_type, & + & psb_s_base_sparse_mat, psb_c_base_sparse_mat, & + & psb_d_base_sparse_mat, psb_z_base_sparse_mat, & + & psb_s_vect_type, psb_d_vect_type, psb_c_vect_type, psb_z_vect_type interface psb_matdist subroutine smatdist(a_glob, a, ictxt, desc_a,& @@ -57,9 +62,9 @@ module psb_mat_dist_mod ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -70,7 +75,7 @@ module psb_mat_dist_mod ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -86,33 +91,34 @@ module psb_mat_dist_mod ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! - use psb_base_mod, only : psb_sspmat_type, psb_desc_type, psb_spk_,& + import :: psb_ipk_, psb_sspmat_type, psb_desc_type, psb_spk_,& & psb_s_base_sparse_mat, psb_s_vect_type implicit none ! parameters type(psb_sspmat_type) :: a_glob real(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_sspmat_type) :: a type(psb_s_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=*), optional :: fmt class(psb_s_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v @@ -143,9 +149,9 @@ module psb_mat_dist_mod ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -156,7 +162,7 @@ module psb_mat_dist_mod ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -172,33 +178,34 @@ module psb_mat_dist_mod ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! - use psb_base_mod, only : psb_dspmat_type, psb_dpk_, psb_desc_type,& + import :: psb_ipk_, psb_dspmat_type, psb_dpk_, psb_desc_type,& & psb_d_base_sparse_mat, psb_d_vect_type implicit none ! parameters type(psb_dspmat_type) :: a_glob real(psb_dpk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_dspmat_type) :: a type(psb_d_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=*), optional :: fmt class(psb_d_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v @@ -230,9 +237,9 @@ module psb_mat_dist_mod ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -243,7 +250,7 @@ module psb_mat_dist_mod ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -259,33 +266,34 @@ module psb_mat_dist_mod ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! - use psb_base_mod, only : psb_cspmat_type, psb_spk_, psb_desc_type,& + import :: psb_ipk_, psb_cspmat_type, psb_spk_, psb_desc_type,& & psb_c_base_sparse_mat, psb_c_vect_type implicit none ! parameters type(psb_cspmat_type) :: a_glob complex(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_cspmat_type) :: a type(psb_c_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=*), optional :: fmt class(psb_c_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v @@ -317,9 +325,9 @@ module psb_mat_dist_mod ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -330,7 +338,7 @@ module psb_mat_dist_mod ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -346,33 +354,34 @@ module psb_mat_dist_mod ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! - use psb_base_mod, only : psb_zspmat_type, psb_dpk_, psb_desc_type,& + import :: psb_ipk_, psb_zspmat_type, psb_dpk_, psb_desc_type,& & psb_z_base_sparse_mat, psb_z_vect_type implicit none ! parameters type(psb_zspmat_type) :: a_glob complex(psb_dpk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_zspmat_type) :: a type(psb_z_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=*), optional :: fmt class(psb_z_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v diff --git a/util/psb_metispart_mod.F90 b/util/psb_metispart_mod.F90 index cdd4cef76..991ff06c9 100644 --- a/util/psb_metispart_mod.F90 +++ b/util/psb_metispart_mod.F90 @@ -42,7 +42,7 @@ ! Input parameters: ! TYPE(D_SPMAT) :: A The input matrix. The coefficients are ! ignored; only the structure is used. -! INTEGER :: NPARTS How many parts we are requiring to the +! integer(psb_ipk_) :: NPARTS How many parts we are requiring to the ! partition utility ! ! DISTR_MTPART(RROOT,CROOT,ICTXT): This subroutine will be called by @@ -54,10 +54,12 @@ ! uses information prepared by the previous two subroutines. ! module psb_metispart_mod + use psb_base_mod, only : psb_ipk_, psb_sspmat_type, psb_cspmat_type,& + & psb_dspmat_type, psb_zspmat_type, psb_err_unit public part_graph, build_mtpart, distr_mtpart,& & getv_mtpart, free_part private - integer, allocatable, save :: graph_vect(:) + integer(psb_ipk_), allocatable, save :: graph_vect(:) interface build_mtpart module procedure build_mtpart, d_mat_build_mtpart, s_mat_build_mtpart, z_mat_build_mtpart, c_mat_build_mtpart @@ -66,10 +68,9 @@ module psb_metispart_mod contains subroutine part_graph(global_indx,n,np,pv,nv) - use psb_base_mod - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) IF (.not.allocated(graph_vect)) then write(psb_err_unit,*) 'Fatal error in PART_GRAPH: vector GRAPH_VECT ',& @@ -89,8 +90,8 @@ contains subroutine distr_mtpart(root, ictxt) use psb_base_mod - integer :: root, ictxt - integer :: n, me, np + integer(psb_ipk_) :: root, ictxt + integer(psb_ipk_) :: n, me, np call psb_info(ictxt,me,np) @@ -127,7 +128,7 @@ contains end subroutine distr_mtpart subroutine getv_mtpart(ivg) - integer, allocatable, intent(out) :: ivg(:) + integer(psb_ipk_), allocatable, intent(out) :: ivg(:) if (allocated(graph_vect)) then allocate(ivg(size(graph_vect))) ivg(:) = graph_vect(:) @@ -137,7 +138,7 @@ contains subroutine d_mat_build_mtpart(a,nparts) use psb_base_mod type(psb_dspmat_type), intent(in) :: a - integer :: nparts + integer(psb_ipk_) :: nparts select type (aa=>a%a) @@ -154,7 +155,7 @@ contains subroutine s_mat_build_mtpart(a,nparts) use psb_base_mod type(psb_sspmat_type), intent(in) :: a - integer :: nparts + integer(psb_ipk_) :: nparts select type (aa=>a%a) @@ -171,7 +172,7 @@ contains subroutine z_mat_build_mtpart(a,nparts) use psb_base_mod type(psb_zspmat_type), intent(in) :: a - integer :: nparts + integer(psb_ipk_) :: nparts select type (aa=>a%a) @@ -188,7 +189,7 @@ contains subroutine c_mat_build_mtpart(a,nparts) use psb_base_mod type(psb_cspmat_type), intent(in) :: a - integer :: nparts + integer(psb_ipk_) :: nparts select type (aa=>a%a) @@ -204,20 +205,21 @@ contains subroutine build_mtpart(n,fida,ia1,ia2,nparts) use psb_base_mod - integer :: nparts - integer :: ia1(:), ia2(:) - integer :: n, i,numflag,nedc,wgflag + integer(psb_ipk_) :: nparts + integer(psb_ipk_) :: ia1(:), ia2(:) + integer(psb_ipk_) :: n, i,numflag,nedc,wgflag character(len=5) :: fida - integer, parameter :: nb=512 + integer(psb_ipk_), parameter :: nb=512 real(psb_dpk_), parameter :: seed=12345.d0 - integer :: iopt(10),idummy(2),jdummy(2) + integer(psb_ipk_) :: iopt(10),idummy(2),jdummy(2) #if defined(HAVE_METIS) interface subroutine METIS_PartGraphRecursive(n,ixadj,iadj,ivwg,iajw,& & wgflag,numflag,nparts,iopt,nedc,part) - integer :: n,wgflag,numflag,nparts,nedc - integer :: ixadj(*),iadj(*),ivwg(*),iajw(*),iopt(*),part(*) + import :: psb_ipk_ + integer(psb_ipk_) :: n,wgflag,numflag,nparts,nedc + integer(psb_ipk_) :: ixadj(*),iadj(*),ivwg(*),iajw(*),iopt(*),part(*) end subroutine METIS_PartGraphRecursive end interface @@ -260,7 +262,7 @@ contains subroutine free_part(info) - integer :: info + integer(psb_ipk_) :: info deallocate(graph_vect,stat=info) return diff --git a/util/psb_mmio_mod.f90 b/util/psb_mmio_mod.f90 index 9d44c8094..93f84cad7 100644 --- a/util/psb_mmio_mod.f90 +++ b/util/psb_mmio_mod.f90 @@ -31,40 +31,45 @@ !!$ module psb_mmio_mod + + use psb_base_mod, only : psb_ipk_, psb_spk_, psb_dpk_,& + & psb_sspmat_type, psb_cspmat_type, & + & psb_dspmat_type, psb_zspmat_type + public mm_mat_read, mm_mat_write, mm_vet_read, mm_vet_write interface mm_vet_read subroutine mm_svet_read(b, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none real(psb_spk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_svet_read subroutine mm_dvet_read(b, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none real(psb_dpk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_dvet_read subroutine mm_cvet_read(b, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none complex(psb_spk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_cvet_read subroutine mm_zvet_read(b, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none complex(psb_dpk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_zvet_read end interface @@ -72,149 +77,149 @@ module psb_mmio_mod interface mm_vet_write subroutine mm_svet2_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none real(psb_spk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_svet2_write subroutine mm_svet1_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none real(psb_spk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_svet1_write subroutine mm_dvet2_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none real(psb_dpk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_dvet2_write subroutine mm_dvet1_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none real(psb_dpk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_dvet1_write subroutine mm_cvet2_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none complex(psb_spk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_cvet2_write subroutine mm_cvet1_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_spk_ + import :: psb_spk_, psb_ipk_ implicit none complex(psb_spk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_cvet1_write subroutine mm_zvet2_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none complex(psb_dpk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_zvet2_write subroutine mm_zvet1_write(b, header, info, iunit, filename) - use psb_base_mod, only : psb_dpk_ + import :: psb_dpk_, psb_ipk_ implicit none complex(psb_dpk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine mm_zvet1_write end interface interface mm_mat_read subroutine smm_mat_read(a, info, iunit, filename) - use psb_base_mod, only : psb_sspmat_type + import :: psb_sspmat_type, psb_ipk_ implicit none type(psb_sspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine smm_mat_read subroutine dmm_mat_read(a, info, iunit, filename) - use psb_base_mod, only : psb_dspmat_type + import :: psb_dspmat_type, psb_ipk_ implicit none type(psb_dspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine dmm_mat_read subroutine cmm_mat_read(a, info, iunit, filename) - use psb_base_mod, only : psb_cspmat_type + import :: psb_cspmat_type, psb_ipk_ implicit none type(psb_cspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine cmm_mat_read subroutine zmm_mat_read(a, info, iunit, filename) - use psb_base_mod, only : psb_zspmat_type + import :: psb_zspmat_type, psb_ipk_ implicit none type(psb_zspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine zmm_mat_read end interface interface mm_mat_write subroutine smm_mat_write(a,mtitle,info,iunit,filename) - use psb_base_mod, only : psb_sspmat_type + import :: psb_sspmat_type, psb_ipk_ implicit none type(psb_sspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine smm_mat_write subroutine dmm_mat_write(a,mtitle,info,iunit,filename) - use psb_base_mod, only : psb_dspmat_type + import :: psb_dspmat_type, psb_ipk_ implicit none type(psb_dspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine dmm_mat_write subroutine cmm_mat_write(a,mtitle,info,iunit,filename) - use psb_base_mod, only : psb_cspmat_type + import :: psb_cspmat_type, psb_ipk_ implicit none type(psb_cspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine cmm_mat_write subroutine zmm_mat_write(a,mtitle,info,iunit,filename) - use psb_base_mod, only : psb_zspmat_type + import :: psb_zspmat_type, psb_ipk_ implicit none type(psb_zspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename end subroutine zmm_mat_write end interface diff --git a/util/psb_renum_mod.f90 b/util/psb_renum_mod.f90 index c1741cfcf..5dd2bee6a 100644 --- a/util/psb_renum_mod.f90 +++ b/util/psb_renum_mod.f90 @@ -1,99 +1,99 @@ module psb_renum_mod use psb_base_mod - integer, parameter :: psb_mat_renum_identity_ = 0 - integer, parameter :: psb_mat_renum_gps_ = 456 - integer, parameter :: psb_mat_renum_amd_ = psb_mat_renum_gps_ + 1 + integer(psb_ipk_), parameter :: psb_mat_renum_identity_ = 0 + integer(psb_ipk_), parameter :: psb_mat_renum_gps_ = 456 + integer(psb_ipk_), parameter :: psb_mat_renum_amd_ = psb_mat_renum_gps_ + 1 interface psb_mat_renum subroutine psb_d_mat_renums(alg,mat,info,perm) - import psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type character(len=*), intent(in) :: alg type(psb_dspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_d_mat_renums subroutine psb_d_mat_renum(alg,mat,info,perm) - import psb_dspmat_type - integer, intent(in) :: alg + import :: psb_ipk_, psb_dspmat_type + integer(psb_ipk_), intent(in) :: alg type(psb_dspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_d_mat_renum subroutine psb_s_mat_renums(alg,mat,info,perm) - import psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type character(len=*), intent(in) :: alg type(psb_sspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_s_mat_renums subroutine psb_s_mat_renum(alg,mat,info,perm) - import psb_sspmat_type - integer, intent(in) :: alg + import :: psb_ipk_, psb_sspmat_type + integer(psb_ipk_), intent(in) :: alg type(psb_sspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_s_mat_renum subroutine psb_z_mat_renums(alg,mat,info,perm) - import psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type character(len=*), intent(in) :: alg type(psb_zspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_z_mat_renums subroutine psb_z_mat_renum(alg,mat,info,perm) - import psb_zspmat_type - integer, intent(in) :: alg + import :: psb_ipk_, psb_zspmat_type + integer(psb_ipk_), intent(in) :: alg type(psb_zspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_z_mat_renum subroutine psb_c_mat_renums(alg,mat,info,perm) - import psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type character(len=*), intent(in) :: alg type(psb_cspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_c_mat_renums subroutine psb_c_mat_renum(alg,mat,info,perm) - import psb_cspmat_type - integer, intent(in) :: alg + import :: psb_ipk_, psb_cspmat_type + integer(psb_ipk_), intent(in) :: alg type(psb_cspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) end subroutine psb_c_mat_renum end interface psb_mat_renum interface psb_cmp_bwpf subroutine psb_s_cmp_bwpf(mat,bwl,bwu,prf,info) - import psb_sspmat_type + import :: psb_ipk_, psb_sspmat_type type(psb_sspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cmp_bwpf subroutine psb_d_cmp_bwpf(mat,bwl,bwu,prf,info) - import psb_dspmat_type + import :: psb_ipk_, psb_dspmat_type type(psb_dspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cmp_bwpf subroutine psb_c_cmp_bwpf(mat,bwl,bwu,prf,info) - import psb_cspmat_type + import :: psb_ipk_, psb_cspmat_type type(psb_cspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cmp_bwpf subroutine psb_z_cmp_bwpf(mat,bwl,bwu,prf,info) - import psb_zspmat_type + import :: psb_ipk_, psb_zspmat_type type(psb_zspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cmp_bwpf end interface psb_cmp_bwpf diff --git a/util/psb_s_hbio_impl.f90 b/util/psb_s_hbio_impl.f90 index 626ed3f85..715315f0c 100644 --- a/util/psb_s_hbio_impl.f90 +++ b/util/psb_s_hbio_impl.f90 @@ -33,8 +33,8 @@ subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle) use psb_base_mod implicit none type(psb_sspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename real(psb_spk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle @@ -42,11 +42,11 @@ subroutine shb_read(a, iret, iunit, filename,b,g,x,mtitle) character :: rhstype*3,type*3,key*8 character(len=72) :: mtitle_ character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 - integer :: indcrd, ptrcrd, totcrd,& + integer(psb_ipk_) :: indcrd, ptrcrd, totcrd,& & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix type(psb_s_csc_sparse_mat) :: acsc type(psb_s_coo_sparse_mat) :: acoo - integer :: ircode, i,nzr,infile, info + integer(psb_ipk_) :: ircode, i,nzr,infile, info character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -191,18 +191,18 @@ subroutine shb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) use psb_base_mod implicit none type(psb_sspmat_type), intent(in), target :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key real(psb_spk_), optional :: rhs(:), g(:), x(:) - integer :: iout + integer(psb_ipk_) :: iout character(len=*), parameter:: ptrfmt='(10I8)',indfmt='(10I8)' - integer, parameter :: jptr=10,jind=10 + integer(psb_ipk_), parameter :: jptr=10,jind=10 character(len=*), parameter:: valfmt='(4E20.12)',rhsfmt='(4E20.12)' - integer, parameter :: jval=4,jrhs=4 + integer(psb_ipk_), parameter :: jval=4,jrhs=4 character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -213,7 +213,7 @@ subroutine shb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) character :: rhstype*3,type*3 - integer :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& + integer(psb_ipk_) :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& & nrow,ncol,nnzero, neltvl, nrhs, nrhsix iret = 0 diff --git a/util/psb_s_mat_dist_impl.f90 b/util/psb_s_mat_dist_impl.f90 index 2824ed712..32df68bf4 100644 --- a/util/psb_s_mat_dist_impl.f90 +++ b/util/psb_s_mat_dist_impl.f90 @@ -54,9 +54,9 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -67,7 +67,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -83,7 +83,7 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -94,36 +94,37 @@ subroutine smatdist(a_glob, a, ictxt, desc_a,& ! parameters type(psb_sspmat_type) :: a_glob real(psb_spk_) :: b_glob(:) - integer :: ictxt + integer(psb_ipk_) :: ictxt type(psb_sspmat_type) :: a type(psb_s_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_s_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) real(psb_spk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err diff --git a/util/psb_s_mmio_impl.f90 b/util/psb_s_mmio_impl.f90 index 7841badc0..caeb8db50 100644 --- a/util/psb_s_mmio_impl.f90 +++ b/util/psb_s_mmio_impl.f90 @@ -33,10 +33,10 @@ subroutine mm_svet_read(b, info, iunit, filename) use psb_base_mod implicit none real(psb_spk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j,infile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j,infile character :: mmheader*15, fmt*15, object*10, type*10, sym*15,& & line*1024 @@ -105,10 +105,10 @@ subroutine mm_svet2_write(b, header, info, iunit, filename) implicit none real(psb_spk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -161,10 +161,10 @@ subroutine mm_svet1_write(b, header, info, iunit, filename) implicit none real(psb_spk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -217,13 +217,13 @@ subroutine smm_mat_read(a, info, iunit, filename) use psb_base_mod implicit none type(psb_sspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character(1024) :: line - integer :: nrow, ncol, nnzero - integer :: ircode, i,nzr,infile + integer(psb_ipk_) :: nrow, ncol, nnzero + integer(psb_ipk_) :: ircode, i,nzr,infile type(psb_s_coo_sparse_mat), allocatable :: acoo info = psb_success_ @@ -322,11 +322,11 @@ subroutine smm_mat_write(a,mtitle,info,iunit,filename) use psb_base_mod implicit none type(psb_sspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: iout + integer(psb_ipk_) :: iout info = psb_success_ diff --git a/util/psb_s_renum_impl.F90 b/util/psb_s_renum_impl.F90 index 425cab784..15cd72e4f 100644 --- a/util/psb_s_renum_impl.F90 +++ b/util/psb_s_renum_impl.F90 @@ -4,10 +4,10 @@ subroutine psb_s_mat_renums(alg,mat,info,perm) implicit none character(len=*), intent(in) :: alg type(psb_sspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc, ialg + integer(psb_ipk_) :: err_act, nr, nc, ialg character(len=20) :: name info = psb_success_ @@ -47,12 +47,12 @@ subroutine psb_s_mat_renum(alg,mat,info,perm) use psb_base_mod use psb_renum_mod, psb_protect_name => psb_s_mat_renum implicit none - integer, intent(in) :: alg + integer(psb_ipk_), intent(in) :: alg type(psb_sspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc + integer(psb_ipk_) :: err_act, nr, nc character(len=20) :: name info = psb_success_ @@ -108,18 +108,18 @@ contains use psb_gps_mod implicit none type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! class(psb_s_base_sparse_mat), allocatable :: aa type(psb_s_csr_sparse_mat) :: acsr type(psb_s_coo_sparse_mat) :: acoo - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name - integer, allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) - integer :: i, j, k, ideg, nr, ibw, ipf, idpth + integer(psb_ipk_), allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth info = psb_success_ name = 'mat_renum' @@ -203,8 +203,8 @@ contains use psb_base_mod implicit none type(psb_sspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING) @@ -223,10 +223,10 @@ contains class(psb_s_base_sparse_mat), allocatable :: aa type(psb_s_coo_sparse_mat) :: acoo - integer, allocatable :: perm(:) - integer :: err_act + integer(psb_ipk_), allocatable :: perm(:) + integer(psb_ipk_) :: err_act character(len=20) :: name - integer :: i, j, k, ideg, nr, ibw, ipf, idpth, nz + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth, nz info = psb_success_ name = 'mat_renum_amd' @@ -311,14 +311,14 @@ subroutine psb_s_cmp_bwpf(mat,bwl,bwu,prf,info) use psb_renum_mod, psb_protect_name => psb_s_cmp_bwpf implicit none type(psb_sspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info ! - integer, allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: irow(:), icol(:) real(psb_spk_), allocatable :: val(:) - integer :: nz - integer :: i, j, lrbu, lrbl + integer(psb_ipk_) :: nz + integer(psb_ipk_) :: i, j, lrbu, lrbl info = psb_success_ bwl = 0 diff --git a/util/psb_z_hbio_impl.f90 b/util/psb_z_hbio_impl.f90 index 84d6ad8f3..082521449 100644 --- a/util/psb_z_hbio_impl.f90 +++ b/util/psb_z_hbio_impl.f90 @@ -33,8 +33,8 @@ subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle) use psb_base_mod implicit none type(psb_zspmat_type), intent(out) :: a - integer, intent(out) :: iret - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: iret + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename complex(psb_dpk_), optional, allocatable, intent(out) :: b(:,:), g(:,:), x(:,:) character(len=72), optional, intent(out) :: mtitle @@ -42,11 +42,11 @@ subroutine zhb_read(a, iret, iunit, filename,b,g,x,mtitle) character :: rhstype*3,type*3,key*8 character(len=72) :: mtitle_ character indfmt*16,ptrfmt*16,rhsfmt*20,valfmt*20 - integer :: indcrd, ptrcrd, totcrd,& + integer(psb_ipk_) :: indcrd, ptrcrd, totcrd,& & valcrd, rhscrd, nrow, ncol, nnzero, neltvl, nrhs, nrhsix type(psb_z_csc_sparse_mat) :: acsc type(psb_z_coo_sparse_mat) :: acoo - integer :: ircode, i,nzr,infile, info + integer(psb_ipk_) :: ircode, i,nzr,infile, info character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -238,18 +238,18 @@ subroutine zhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) use psb_base_mod implicit none type(psb_zspmat_type), intent(in), target :: a - integer, intent(out) :: iret + integer(psb_ipk_), intent(out) :: iret character(len=*), optional, intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character(len=*), optional, intent(in) :: key complex(psb_dpk_), optional :: rhs(:), g(:), x(:) - integer :: iout + integer(psb_ipk_) :: iout character(len=*), parameter:: ptrfmt='(10I8)',indfmt='(10I8)' - integer, parameter :: jptr=10,jind=10 + integer(psb_ipk_), parameter :: jptr=10,jind=10 character(len=*), parameter:: valfmt='(4E20.12)',rhsfmt='(4E20.12)' - integer, parameter :: jval=2,jrhs=2 + integer(psb_ipk_), parameter :: jval=2,jrhs=2 character(len=*), parameter :: fmt10='(a72,a8,/,5i14,/,a3,11x,4i14,/,2a16,2a20)' character(len=*), parameter :: fmt11='(a3,11x,2i14)' character(len=*), parameter :: fmt111='(1x,a8,1x,i8,1x,a10)' @@ -260,7 +260,7 @@ subroutine zhb_write(a,iret,iunit,filename,key,rhs,g,x,mtitle) character :: rhstype*3,type*3 - integer :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& + integer(psb_ipk_) :: i,indcrd,ptrcrd,rhscrd,totcrd,valcrd,& & nrow,ncol,nnzero, neltvl, nrhs, nrhsix iret = 0 diff --git a/util/psb_z_mat_dist_impl.f90 b/util/psb_z_mat_dist_impl.f90 index 8c294fdf8..694552de1 100644 --- a/util/psb_z_mat_dist_impl.f90 +++ b/util/psb_z_mat_dist_impl.f90 @@ -54,9 +54,9 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! ! .....user passed subroutine..... ! subroutine parts(global_indx,n,np,pv,nv) ! implicit none - ! integer, intent(in) :: global_indx, n, np - ! integer, intent(out) :: nv - ! integer, intent(out) :: pv(*) + ! integer(psb_ipk_), intent(in) :: global_indx, n, np + ! integer(psb_ipk_), intent(out) :: nv + ! integer(psb_ipk_), intent(out) :: pv(*) ! ! end subroutine parts ! end interface @@ -67,7 +67,7 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! usually nv=1; if nv >1 then we have an overlap in the data ! distribution. ! - ! integer :: ictxt + ! integer(psb_ipk_) :: ictxt ! on entry: blacs context. ! on exit : unchanged. ! @@ -83,7 +83,7 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& ! on entry: fresh variable. ! on exit : this will contain the local right hand side. ! - ! integer, optional :: inroot + ! integer(psb_ipk_), optional :: inroot ! on entry: specifies processor holding a_glob. default: 0 ! on exit : unchanged. ! @@ -92,38 +92,39 @@ subroutine zmatdist(a_glob, a, ictxt, desc_a,& implicit none ! parameters - type(psb_zspmat_type) :: a_glob - complex(psb_dpk_) :: b_glob(:) - integer :: ictxt + type(psb_zspmat_type) :: a_glob + complex(psb_dpk_) :: b_glob(:) + integer(psb_ipk_) :: ictxt type(psb_zspmat_type) :: a type(psb_z_vect_type) :: b type(psb_desc_type) :: desc_a - integer, intent(out) :: info - integer, optional :: inroot + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional :: inroot character(len=5), optional :: fmt class(psb_z_base_sparse_mat), optional :: mold - integer :: v(:) + integer(psb_ipk_) :: v(:) interface subroutine parts(global_indx,n,np,pv,nv) + import :: psb_ipk_ implicit none - integer, intent(in) :: global_indx, n, np - integer, intent(out) :: nv - integer, intent(out) :: pv(*) + integer(psb_ipk_), intent(in) :: global_indx, n, np + integer(psb_ipk_), intent(out) :: nv + integer(psb_ipk_), intent(out) :: pv(*) end subroutine parts end interface optional :: parts, v ! local variables logical :: use_parts, use_v - integer :: np, iam - integer :: length_row, i_count, j_count,& + integer(psb_ipk_) :: np, iam + integer(psb_ipk_) :: length_row, i_count, j_count,& & k_count, root, liwork, nrow, ncol, nnzero, nrhs,& & i, ll, nz, isize, iproc, nnr, err, err_act, int_err(5) - integer, allocatable :: iwork(:) - integer, allocatable :: irow(:),icol(:) + integer(psb_ipk_), allocatable :: iwork(:) + integer(psb_ipk_), allocatable :: irow(:),icol(:) complex(psb_dpk_), allocatable :: val(:) - integer, parameter :: nb=30 + integer(psb_ipk_), parameter :: nb=30 real(psb_dpk_) :: t0, t1, t2, t3, t4, t5 character(len=20) :: name, ch_err diff --git a/util/psb_z_mmio_impl.f90 b/util/psb_z_mmio_impl.f90 index fe58a324e..a7d44ca17 100644 --- a/util/psb_z_mmio_impl.f90 +++ b/util/psb_z_mmio_impl.f90 @@ -33,10 +33,10 @@ subroutine mm_zvet_read(b, info, iunit, filename) use psb_base_mod implicit none complex(psb_dpk_), allocatable, intent(out) :: b(:,:) - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j,infile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j,infile real(psb_dpk_) :: bre, bim character :: mmheader*15, fmt*15, object*10, type*10, sym*15,& & line*1024 @@ -110,10 +110,10 @@ subroutine mm_zvet2_write(b, header, info, iunit, filename) implicit none complex(psb_dpk_), intent(in) :: b(:,:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -166,10 +166,10 @@ subroutine mm_zvet1_write(b, header, info, iunit, filename) implicit none complex(psb_dpk_), intent(in) :: b(:) character(len=*), intent(in) :: header - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: nrow, ncol, i,root, np, me, ircode, j, outfile + integer(psb_ipk_) :: nrow, ncol, i,root, np, me, ircode, j, outfile character(len=80) :: frmtv @@ -221,13 +221,13 @@ subroutine zmm_mat_read(a, info, iunit, filename) use psb_base_mod implicit none type(psb_zspmat_type), intent(out) :: a - integer, intent(out) :: info - integer, optional, intent(in) :: iunit + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename character :: mmheader*15, fmt*15, object*10, type*10, sym*15 character(1024) :: line - integer :: nrow, ncol, nnzero - integer :: ircode, i,nzr,infile + integer(psb_ipk_) :: nrow, ncol, nnzero + integer(psb_ipk_) :: ircode, i,nzr,infile type(psb_z_coo_sparse_mat), allocatable :: acoo real(psb_dpk_) :: are, aim info = psb_success_ @@ -348,11 +348,11 @@ subroutine zmm_mat_write(a,mtitle,info,iunit,filename) use psb_base_mod implicit none type(psb_zspmat_type), intent(in) :: a - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in) :: mtitle - integer, optional, intent(in) :: iunit + integer(psb_ipk_), optional, intent(in) :: iunit character(len=*), optional, intent(in) :: filename - integer :: iout + integer(psb_ipk_) :: iout info = psb_success_ diff --git a/util/psb_z_renum_impl.F90 b/util/psb_z_renum_impl.F90 index 49bfffe67..bb06bccf5 100644 --- a/util/psb_z_renum_impl.F90 +++ b/util/psb_z_renum_impl.F90 @@ -4,10 +4,10 @@ subroutine psb_z_mat_renums(alg,mat,info,perm) implicit none character(len=*), intent(in) :: alg type(psb_zspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc, ialg + integer(psb_ipk_) :: err_act, nr, nc, ialg character(len=20) :: name info = psb_success_ @@ -47,12 +47,12 @@ subroutine psb_z_mat_renum(alg,mat,info,perm) use psb_base_mod use psb_renum_mod, psb_protect_name => psb_z_mat_renum implicit none - integer, intent(in) :: alg + integer(psb_ipk_), intent(in) :: alg type(psb_zspmat_type), intent(inout) :: mat - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: perm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: perm(:) - integer :: err_act, nr, nc + integer(psb_ipk_) :: err_act, nr, nc character(len=20) :: name info = psb_success_ @@ -108,18 +108,18 @@ contains use psb_gps_mod implicit none type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! class(psb_z_base_sparse_mat), allocatable :: aa type(psb_z_csr_sparse_mat) :: acsr type(psb_z_coo_sparse_mat) :: acoo - integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name - integer, allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) - integer :: i, j, k, ideg, nr, ibw, ipf, idpth + integer(psb_ipk_), allocatable :: ndstk(:,:), iold(:), ndeg(:), perm(:) + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth info = psb_success_ name = 'mat_renum' @@ -203,8 +203,8 @@ contains use psb_base_mod implicit none type(psb_zspmat_type), intent(inout) :: a - integer, intent(out) :: info - integer, allocatable, optional, intent(out) :: operm(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, optional, intent(out) :: operm(:) ! #if defined(HAVE_AMD) && defined(HAVE_ISO_C_BINDING) @@ -223,10 +223,10 @@ contains class(psb_z_base_sparse_mat), allocatable :: aa type(psb_z_coo_sparse_mat) :: acoo - integer, allocatable :: perm(:) - integer :: err_act + integer(psb_ipk_), allocatable :: perm(:) + integer(psb_ipk_) :: err_act character(len=20) :: name - integer :: i, j, k, ideg, nr, ibw, ipf, idpth, nz + integer(psb_ipk_) :: i, j, k, ideg, nr, ibw, ipf, idpth, nz info = psb_success_ name = 'mat_renum_amd' @@ -311,14 +311,14 @@ subroutine psb_z_cmp_bwpf(mat,bwl,bwu,prf,info) use psb_renum_mod, psb_protect_name => psb_z_cmp_bwpf implicit none type(psb_zspmat_type), intent(in) :: mat - integer, intent(out) :: bwl, bwu - integer, intent(out) :: prf - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: bwl, bwu + integer(psb_ipk_), intent(out) :: prf + integer(psb_ipk_), intent(out) :: info ! - integer, allocatable :: irow(:), icol(:) + integer(psb_ipk_), allocatable :: irow(:), icol(:) complex(psb_dpk_), allocatable :: val(:) - integer :: nz - integer :: i, j, lrbu, lrbl + integer(psb_ipk_) :: nz + integer(psb_ipk_) :: i, j, lrbu, lrbl info = psb_success_ bwl = 0