From 4220136568c0a1ace28ce7b530e3465cf4dd4ac3 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 30 Jun 2018 22:26:55 +0100 Subject: [PATCH] Fixes for I8L8. --- cbind/base/psb_base_tools_cbind_mod.F90 | 14 ++++++------- cbind/base/psb_c_base.h | 2 +- cbind/base/psb_c_comm_cbind_mod.f90 | 14 ++++++------- cbind/base/psb_c_psblas_cbind_mod.f90 | 18 ++++++++-------- cbind/base/psb_c_serial_cbind_mod.F90 | 12 +++++------ cbind/base/psb_c_tools_cbind_mod.F90 | 28 ++++++++++++------------- cbind/base/psb_cpenv_mod.f90 | 6 +++--- cbind/base/psb_d_comm_cbind_mod.f90 | 14 ++++++------- cbind/base/psb_d_psblas_cbind_mod.f90 | 18 ++++++++-------- cbind/base/psb_d_serial_cbind_mod.F90 | 12 +++++------ cbind/base/psb_d_tools_cbind_mod.F90 | 28 ++++++++++++------------- cbind/base/psb_s_comm_cbind_mod.f90 | 14 ++++++------- cbind/base/psb_s_psblas_cbind_mod.f90 | 18 ++++++++-------- cbind/base/psb_s_serial_cbind_mod.F90 | 12 +++++------ cbind/base/psb_s_tools_cbind_mod.F90 | 28 ++++++++++++------------- cbind/base/psb_z_comm_cbind_mod.f90 | 14 ++++++------- cbind/base/psb_z_psblas_cbind_mod.f90 | 18 ++++++++-------- cbind/base/psb_z_serial_cbind_mod.F90 | 12 +++++------ cbind/base/psb_z_tools_cbind_mod.F90 | 28 ++++++++++++------------- cbind/krylov/psb_ckrylov_cbind_mod.f90 | 10 ++++----- cbind/krylov/psb_dkrylov_cbind_mod.f90 | 10 ++++----- cbind/krylov/psb_skrylov_cbind_mod.f90 | 10 ++++----- cbind/krylov/psb_zkrylov_cbind_mod.f90 | 10 ++++----- cbind/prec/psb_cprec_cbind_mod.f90 | 9 +++----- cbind/prec/psb_dprec_cbind_mod.f90 | 9 +++----- cbind/prec/psb_sprec_cbind_mod.f90 | 9 +++----- cbind/prec/psb_zprec_cbind_mod.f90 | 9 +++----- util/psb_c_mat_dist_impl.f90 | 2 +- util/psb_d_mat_dist_impl.f90 | 2 +- util/psb_s_mat_dist_impl.f90 | 2 +- util/psb_z_mat_dist_impl.f90 | 2 +- 31 files changed, 191 insertions(+), 203 deletions(-) diff --git a/cbind/base/psb_base_tools_cbind_mod.F90 b/cbind/base/psb_base_tools_cbind_mod.F90 index b2a4fd1d7..2b7e38564 100644 --- a/cbind/base/psb_base_tools_cbind_mod.F90 +++ b/cbind/base/psb_base_tools_cbind_mod.F90 @@ -30,7 +30,7 @@ contains integer(psb_c_ipk) :: vg(*) type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 if (ng <=0) then @@ -63,7 +63,7 @@ contains integer(psb_c_lpk) :: vl(*) type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info, ixb + integer(psb_c_ipk) :: info, ixb res = -1 if (nl <=0) then @@ -100,7 +100,7 @@ contains integer(psb_c_ipk), value :: nl, ictxt type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 if (nl <=0) then @@ -132,7 +132,7 @@ contains integer(psb_c_ipk), value :: ictxt type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 if (n <=0) then @@ -162,7 +162,7 @@ contains integer(psb_c_ipk) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -181,7 +181,7 @@ contains integer(psb_c_ipk) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -205,7 +205,7 @@ contains integer(psb_c_lpk) :: ia(*),ja(*) type(psb_desc_type), pointer :: descp - integer :: info + integer(psb_c_ipk) :: info res = -1 diff --git a/cbind/base/psb_c_base.h b/cbind/base/psb_c_base.h index 313a5a4b8..90bc6b02f 100644 --- a/cbind/base/psb_c_base.h +++ b/cbind/base/psb_c_base.h @@ -22,7 +22,7 @@ extern "C" { #elif defined(IPK4) && defined(LPK8) typedef int32_t psb_i_t; typedef int64_t psb_l_t; -#elif defined(IPK4) && defined(LPK8) +#elif defined(IPK8) && defined(LPK8) typedef int64_t psb_i_t; typedef int64_t psb_l_t; #else diff --git a/cbind/base/psb_c_comm_cbind_mod.f90 b/cbind/base/psb_c_comm_cbind_mod.f90 index b6edbffd9..c8c0e24c5 100644 --- a/cbind/base/psb_c_comm_cbind_mod.f90 +++ b/cbind/base/psb_c_comm_cbind_mod.f90 @@ -15,7 +15,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -47,7 +47,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -79,7 +79,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -114,7 +114,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp character :: ftran - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -150,7 +150,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: vp complex(psb_spk_), pointer :: pgx(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -183,7 +183,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: vp complex(psb_spk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -214,7 +214,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap, gap - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 763beca67..a43923200 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -16,7 +16,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -51,7 +51,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -78,7 +78,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -104,7 +104,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -132,7 +132,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -158,7 +158,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -192,7 +192,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,yp type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -239,7 +239,7 @@ contains type(psb_cspmat_type), pointer :: ap character :: ftrans logical :: fdoswap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -283,7 +283,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,yp type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_c_serial_cbind_mod.F90 b/cbind/base/psb_c_serial_cbind_mod.F90 index 40648bc50..bb67f2b1e 100644 --- a/cbind/base/psb_c_serial_cbind_mod.F90 +++ b/cbind/base/psb_c_serial_cbind_mod.F90 @@ -15,7 +15,7 @@ contains type(psb_c_cvector) :: xh type(psb_c_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -35,7 +35,7 @@ contains type(psb_c_vect_type), pointer :: vp complex(psb_spk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -56,7 +56,7 @@ contains type(psb_c_cvector) :: xh type(psb_c_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -77,7 +77,7 @@ contains type(psb_c_cspmat) :: mh type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -100,7 +100,7 @@ contains type(psb_c_cspmat) :: mh type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -124,7 +124,7 @@ contains character(c_char) :: name(*) type(psb_c_cspmat) :: mh type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info character(1024) :: fname res = 0 diff --git a/cbind/base/psb_c_tools_cbind_mod.F90 b/cbind/base/psb_c_tools_cbind_mod.F90 index ef5d489e8..86bce5c96 100644 --- a/cbind/base/psb_c_tools_cbind_mod.F90 +++ b/cbind/base/psb_c_tools_cbind_mod.F90 @@ -17,7 +17,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -46,7 +46,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -76,7 +76,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -111,7 +111,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -145,14 +145,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*) + integer(psb_c_lpk) :: irw(*) complex(c_float_complex) :: val(*) type(psb_c_cvector) :: xh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -189,7 +189,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -219,7 +219,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -248,7 +248,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -280,7 +280,7 @@ contains integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer :: info,n, fdupl + integer(psb_c_ipk) :: info,n, fdupl character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_c_rsb_sparse_mat) :: arsb @@ -315,14 +315,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*), icl(*) + integer(psb_c_lpk) :: irw(*), icl(*) complex(c_float_complex) :: val(*) type(psb_c_cspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: ixb,info,n + integer(psb_c_ipk) :: ixb,info,n res = -1 if (c_associated(cdh%item)) then @@ -357,7 +357,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info logical :: fclear res = -1 @@ -384,7 +384,7 @@ contains !!$ implicit none !!$ integer(psb_c_ipk) :: res !!$ integer(psb_c_ipk), value :: mh -!!$ integer :: info +!!$ integer(psb_c_ipk) :: info !!$ !!$ !!$ res = -1 diff --git a/cbind/base/psb_cpenv_mod.f90 b/cbind/base/psb_cpenv_mod.f90 index ee7cdcf92..b58d663ca 100644 --- a/cbind/base/psb_cpenv_mod.f90 +++ b/cbind/base/psb_cpenv_mod.f90 @@ -211,11 +211,11 @@ contains end subroutine psb_c_zbcast subroutine psb_c_hbcast(ictxt,v,root) bind(c) - use psb_base_mod, only : psb_bcast, psb_info + use psb_base_mod, only : psb_bcast, psb_info, psb_ipk_ implicit none integer(psb_c_ipk), value :: ictxt, root - character(c_char) :: v(*) - integer :: n, iam, np + character(c_char) :: v(*) + integer(psb_ipk_) :: iam, np, n call psb_info(ictxt,iam,np) diff --git a/cbind/base/psb_d_comm_cbind_mod.f90 b/cbind/base/psb_d_comm_cbind_mod.f90 index 5eb0e363e..c82e98d42 100644 --- a/cbind/base/psb_d_comm_cbind_mod.f90 +++ b/cbind/base/psb_d_comm_cbind_mod.f90 @@ -15,7 +15,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -47,7 +47,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -79,7 +79,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -114,7 +114,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp character :: ftran - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -150,7 +150,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: vp real(psb_dpk_), pointer :: pgx(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -183,7 +183,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: vp real(psb_dpk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -214,7 +214,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap, gap - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 8a0ef3b4b..1d3ec8597 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -16,7 +16,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -51,7 +51,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -78,7 +78,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -104,7 +104,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -132,7 +132,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -158,7 +158,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -192,7 +192,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,yp type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -239,7 +239,7 @@ contains type(psb_dspmat_type), pointer :: ap character :: ftrans logical :: fdoswap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -283,7 +283,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,yp type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_d_serial_cbind_mod.F90 b/cbind/base/psb_d_serial_cbind_mod.F90 index dad5cc2dd..a727d654b 100644 --- a/cbind/base/psb_d_serial_cbind_mod.F90 +++ b/cbind/base/psb_d_serial_cbind_mod.F90 @@ -15,7 +15,7 @@ contains type(psb_c_dvector) :: xh type(psb_d_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -35,7 +35,7 @@ contains type(psb_d_vect_type), pointer :: vp real(psb_dpk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -56,7 +56,7 @@ contains type(psb_c_dvector) :: xh type(psb_d_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -77,7 +77,7 @@ contains type(psb_c_dspmat) :: mh type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -100,7 +100,7 @@ contains type(psb_c_dspmat) :: mh type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -124,7 +124,7 @@ contains character(c_char) :: name(*) type(psb_c_dspmat) :: mh type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info character(1024) :: fname res = 0 diff --git a/cbind/base/psb_d_tools_cbind_mod.F90 b/cbind/base/psb_d_tools_cbind_mod.F90 index bd183422d..0a898196f 100644 --- a/cbind/base/psb_d_tools_cbind_mod.F90 +++ b/cbind/base/psb_d_tools_cbind_mod.F90 @@ -17,7 +17,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -46,7 +46,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -76,7 +76,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -111,7 +111,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -145,14 +145,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*) + integer(psb_c_lpk) :: irw(*) real(c_double) :: val(*) type(psb_c_dvector) :: xh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -189,7 +189,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -219,7 +219,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -248,7 +248,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -280,7 +280,7 @@ contains integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer :: info,n, fdupl + integer(psb_c_ipk) :: info,n, fdupl character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_d_rsb_sparse_mat) :: arsb @@ -315,14 +315,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*), icl(*) + integer(psb_c_lpk) :: irw(*), icl(*) real(c_double) :: val(*) type(psb_c_dspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: ixb,info,n + integer(psb_c_ipk) :: ixb,info,n res = -1 if (c_associated(cdh%item)) then @@ -357,7 +357,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info logical :: fclear res = -1 @@ -384,7 +384,7 @@ contains !!$ implicit none !!$ integer(psb_c_ipk) :: res !!$ integer(psb_c_ipk), value :: mh -!!$ integer :: info +!!$ integer(psb_c_ipk) :: info !!$ !!$ !!$ res = -1 diff --git a/cbind/base/psb_s_comm_cbind_mod.f90 b/cbind/base/psb_s_comm_cbind_mod.f90 index f929cbb0e..378839344 100644 --- a/cbind/base/psb_s_comm_cbind_mod.f90 +++ b/cbind/base/psb_s_comm_cbind_mod.f90 @@ -15,7 +15,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -47,7 +47,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -79,7 +79,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -114,7 +114,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp character :: ftran - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -150,7 +150,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: vp real(psb_spk_), pointer :: pgx(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -183,7 +183,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: vp real(psb_spk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -214,7 +214,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap, gap - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 1dfd25158..5a0090027 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -16,7 +16,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -51,7 +51,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -78,7 +78,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -104,7 +104,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -132,7 +132,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -158,7 +158,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -192,7 +192,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,yp type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -239,7 +239,7 @@ contains type(psb_sspmat_type), pointer :: ap character :: ftrans logical :: fdoswap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -283,7 +283,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,yp type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_s_serial_cbind_mod.F90 b/cbind/base/psb_s_serial_cbind_mod.F90 index ce502caf6..7113e5c26 100644 --- a/cbind/base/psb_s_serial_cbind_mod.F90 +++ b/cbind/base/psb_s_serial_cbind_mod.F90 @@ -15,7 +15,7 @@ contains type(psb_c_svector) :: xh type(psb_s_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -35,7 +35,7 @@ contains type(psb_s_vect_type), pointer :: vp real(psb_spk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -56,7 +56,7 @@ contains type(psb_c_svector) :: xh type(psb_s_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -77,7 +77,7 @@ contains type(psb_c_sspmat) :: mh type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -100,7 +100,7 @@ contains type(psb_c_sspmat) :: mh type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -124,7 +124,7 @@ contains character(c_char) :: name(*) type(psb_c_sspmat) :: mh type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info character(1024) :: fname res = 0 diff --git a/cbind/base/psb_s_tools_cbind_mod.F90 b/cbind/base/psb_s_tools_cbind_mod.F90 index 30df5a6a9..40b82de65 100644 --- a/cbind/base/psb_s_tools_cbind_mod.F90 +++ b/cbind/base/psb_s_tools_cbind_mod.F90 @@ -17,7 +17,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -46,7 +46,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -76,7 +76,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -111,7 +111,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -145,14 +145,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*) + integer(psb_c_lpk) :: irw(*) real(c_float) :: val(*) type(psb_c_svector) :: xh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -189,7 +189,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -219,7 +219,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -248,7 +248,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -280,7 +280,7 @@ contains integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer :: info,n, fdupl + integer(psb_c_ipk) :: info,n, fdupl character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_s_rsb_sparse_mat) :: arsb @@ -315,14 +315,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*), icl(*) + integer(psb_c_lpk) :: irw(*), icl(*) real(c_float) :: val(*) type(psb_c_sspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: ixb,info,n + integer(psb_c_ipk) :: ixb,info,n res = -1 if (c_associated(cdh%item)) then @@ -357,7 +357,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info logical :: fclear res = -1 @@ -384,7 +384,7 @@ contains !!$ implicit none !!$ integer(psb_c_ipk) :: res !!$ integer(psb_c_ipk), value :: mh -!!$ integer :: info +!!$ integer(psb_c_ipk) :: info !!$ !!$ !!$ res = -1 diff --git a/cbind/base/psb_z_comm_cbind_mod.f90 b/cbind/base/psb_z_comm_cbind_mod.f90 index 49d9df828..8e80d257e 100644 --- a/cbind/base/psb_z_comm_cbind_mod.f90 +++ b/cbind/base/psb_z_comm_cbind_mod.f90 @@ -15,7 +15,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -47,7 +47,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -79,7 +79,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -114,7 +114,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp character :: ftran - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -150,7 +150,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: vp complex(psb_dpk_), pointer :: pgx(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -183,7 +183,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: vp complex(psb_dpk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -214,7 +214,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap, gap - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index e367e7414..879fd4ff5 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -16,7 +16,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -51,7 +51,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -78,7 +78,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -104,7 +104,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 @@ -132,7 +132,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -158,7 +158,7 @@ contains type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,yp - integer :: info + integer(psb_c_ipk) :: info res = -1.0 if (c_associated(cdh%item)) then @@ -192,7 +192,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,yp type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -239,7 +239,7 @@ contains type(psb_zspmat_type), pointer :: ap character :: ftrans logical :: fdoswap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then @@ -283,7 +283,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,yp type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/base/psb_z_serial_cbind_mod.F90 b/cbind/base/psb_z_serial_cbind_mod.F90 index dfb41a195..4c279f347 100644 --- a/cbind/base/psb_z_serial_cbind_mod.F90 +++ b/cbind/base/psb_z_serial_cbind_mod.F90 @@ -15,7 +15,7 @@ contains type(psb_c_zvector) :: xh type(psb_z_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -35,7 +35,7 @@ contains type(psb_z_vect_type), pointer :: vp complex(psb_dpk_), allocatable :: fv(:) - integer :: info, sz + integer(psb_c_ipk) :: info, sz res = -1 @@ -56,7 +56,7 @@ contains type(psb_c_zvector) :: xh type(psb_z_vect_type), pointer :: vp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -77,7 +77,7 @@ contains type(psb_c_zspmat) :: mh type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -100,7 +100,7 @@ contains type(psb_c_zspmat) :: mh type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info res = 0 if (c_associated(mh%item)) then @@ -124,7 +124,7 @@ contains character(c_char) :: name(*) type(psb_c_zspmat) :: mh type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info character(1024) :: fname res = 0 diff --git a/cbind/base/psb_z_tools_cbind_mod.F90 b/cbind/base/psb_z_tools_cbind_mod.F90 index e15336964..9501d20d1 100644 --- a/cbind/base/psb_z_tools_cbind_mod.F90 +++ b/cbind/base/psb_z_tools_cbind_mod.F90 @@ -17,7 +17,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -46,7 +46,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -76,7 +76,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: info + integer(psb_c_ipk) :: info res = -1 @@ -111,7 +111,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -145,14 +145,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*) + integer(psb_c_lpk) :: irw(*) complex(c_double_complex) :: val(*) type(psb_c_zvector) :: xh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp - integer :: ixb, info + integer(psb_c_ipk) :: ixb, info res = -1 if (c_associated(cdh%item)) then @@ -189,7 +189,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -219,7 +219,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -248,7 +248,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: info,n + integer(psb_c_ipk) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -280,7 +280,7 @@ contains integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer :: info,n, fdupl + integer(psb_c_ipk) :: info,n, fdupl character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_z_rsb_sparse_mat) :: arsb @@ -315,14 +315,14 @@ contains implicit none integer(psb_c_ipk) :: res integer(psb_c_ipk), value :: nz - integer(psb_c_lpk) :: irw(*), icl(*) + integer(psb_c_lpk) :: irw(*), icl(*) complex(c_double_complex) :: val(*) type(psb_c_zspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: ixb,info,n + integer(psb_c_ipk) :: ixb,info,n res = -1 if (c_associated(cdh%item)) then @@ -357,7 +357,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap - integer :: info + integer(psb_c_ipk) :: info logical :: fclear res = -1 @@ -384,7 +384,7 @@ contains !!$ implicit none !!$ integer(psb_c_ipk) :: res !!$ integer(psb_c_ipk), value :: mh -!!$ integer :: info +!!$ integer(psb_c_ipk) :: info !!$ !!$ !!$ res = -1 diff --git a/cbind/krylov/psb_ckrylov_cbind_mod.f90 b/cbind/krylov/psb_ckrylov_cbind_mod.f90 index 569053f9a..6ed23f651 100644 --- a/cbind/krylov/psb_ckrylov_cbind_mod.f90 +++ b/cbind/krylov/psb_ckrylov_cbind_mod.f90 @@ -16,8 +16,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_cspmat) :: ah type(psb_c_descriptor) :: cdh - type(psb_c_cprec) :: ph - type(psb_c_cvector) :: bh,xh + type(psb_c_cprec) :: ph + type(psb_c_cvector) :: bh,xh character(c_char) :: methd(*) type(solveroptions) :: options @@ -54,9 +54,9 @@ contains type(psb_cprec_type), pointer :: precp type(psb_c_vect_type), pointer :: xp, bp - integer :: info,fitmax,fitrace,first,fistop,fiter - character(len=20) :: fmethd - real(psb_spk_) :: feps,ferr + integer(psb_c_ipk) :: info,fitmax,fitrace,first,fistop,fiter + character(len=20) :: fmethd + real(psb_spk_) :: feps,ferr res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/krylov/psb_dkrylov_cbind_mod.f90 b/cbind/krylov/psb_dkrylov_cbind_mod.f90 index 70a759643..a9a1b3ed9 100644 --- a/cbind/krylov/psb_dkrylov_cbind_mod.f90 +++ b/cbind/krylov/psb_dkrylov_cbind_mod.f90 @@ -16,8 +16,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_dspmat) :: ah type(psb_c_descriptor) :: cdh - type(psb_c_dprec) :: ph - type(psb_c_dvector) :: bh,xh + type(psb_c_dprec) :: ph + type(psb_c_dvector) :: bh,xh character(c_char) :: methd(*) type(solveroptions) :: options @@ -54,9 +54,9 @@ contains type(psb_dprec_type), pointer :: precp type(psb_d_vect_type), pointer :: xp, bp - integer :: info,fitmax,fitrace,first,fistop,fiter - character(len=20) :: fmethd - real(psb_dpk_) :: feps,ferr + integer(psb_c_ipk) :: info,fitmax,fitrace,first,fistop,fiter + character(len=20) :: fmethd + real(psb_dpk_) :: feps,ferr res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/krylov/psb_skrylov_cbind_mod.f90 b/cbind/krylov/psb_skrylov_cbind_mod.f90 index a690a659b..5e3815515 100644 --- a/cbind/krylov/psb_skrylov_cbind_mod.f90 +++ b/cbind/krylov/psb_skrylov_cbind_mod.f90 @@ -16,8 +16,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_sspmat) :: ah type(psb_c_descriptor) :: cdh - type(psb_c_sprec) :: ph - type(psb_c_svector) :: bh,xh + type(psb_c_sprec) :: ph + type(psb_c_svector) :: bh,xh character(c_char) :: methd(*) type(solveroptions) :: options @@ -54,9 +54,9 @@ contains type(psb_sprec_type), pointer :: precp type(psb_s_vect_type), pointer :: xp, bp - integer :: info,fitmax,fitrace,first,fistop,fiter - character(len=20) :: fmethd - real(psb_spk_) :: feps,ferr + integer(psb_c_ipk) :: info,fitmax,fitrace,first,fistop,fiter + character(len=20) :: fmethd + real(psb_spk_) :: feps,ferr res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/krylov/psb_zkrylov_cbind_mod.f90 b/cbind/krylov/psb_zkrylov_cbind_mod.f90 index 01b759caa..92501f359 100644 --- a/cbind/krylov/psb_zkrylov_cbind_mod.f90 +++ b/cbind/krylov/psb_zkrylov_cbind_mod.f90 @@ -16,8 +16,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_zspmat) :: ah type(psb_c_descriptor) :: cdh - type(psb_c_zprec) :: ph - type(psb_c_zvector) :: bh,xh + type(psb_c_zprec) :: ph + type(psb_c_zvector) :: bh,xh character(c_char) :: methd(*) type(solveroptions) :: options @@ -54,9 +54,9 @@ contains type(psb_zprec_type), pointer :: precp type(psb_z_vect_type), pointer :: xp, bp - integer :: info,fitmax,fitrace,first,fistop,fiter - character(len=20) :: fmethd - real(psb_dpk_) :: feps,ferr + integer(psb_c_ipk) :: info,fitmax,fitrace,first,fistop,fiter + character(len=20) :: fmethd + real(psb_dpk_) :: feps,ferr res = -1 if (c_associated(cdh%item)) then diff --git a/cbind/prec/psb_cprec_cbind_mod.f90 b/cbind/prec/psb_cprec_cbind_mod.f90 index b33e665f4..a97d88706 100644 --- a/cbind/prec/psb_cprec_cbind_mod.f90 +++ b/cbind/prec/psb_cprec_cbind_mod.f90 @@ -22,7 +22,7 @@ contains type(psb_c_cprec) :: ph character(c_char) :: ptype(*) type(psb_cprec_type), pointer :: precp - integer :: info + integer(psb_c_ipk) :: info character(len=80) :: fptype res = -1 @@ -59,8 +59,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_cspmat_type), pointer :: ap type(psb_cprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 !!$ write(*,*) 'Entry: ', psb_c_cd_get_local_rows(cdh) @@ -96,10 +95,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_cprec) :: ph - type(psb_cprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(ph%item)) then diff --git a/cbind/prec/psb_dprec_cbind_mod.f90 b/cbind/prec/psb_dprec_cbind_mod.f90 index 21d280988..1ac63b54e 100644 --- a/cbind/prec/psb_dprec_cbind_mod.f90 +++ b/cbind/prec/psb_dprec_cbind_mod.f90 @@ -22,7 +22,7 @@ contains type(psb_c_dprec) :: ph character(c_char) :: ptype(*) type(psb_dprec_type), pointer :: precp - integer :: info + integer(psb_c_ipk) :: info character(len=80) :: fptype res = -1 @@ -59,8 +59,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_dspmat_type), pointer :: ap type(psb_dprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 !!$ write(*,*) 'Entry: ', psb_c_cd_get_local_rows(cdh) @@ -96,10 +95,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_dprec) :: ph - type(psb_dprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(ph%item)) then diff --git a/cbind/prec/psb_sprec_cbind_mod.f90 b/cbind/prec/psb_sprec_cbind_mod.f90 index bdfc3938d..0a311e8de 100644 --- a/cbind/prec/psb_sprec_cbind_mod.f90 +++ b/cbind/prec/psb_sprec_cbind_mod.f90 @@ -22,7 +22,7 @@ contains type(psb_c_sprec) :: ph character(c_char) :: ptype(*) type(psb_sprec_type), pointer :: precp - integer :: info + integer(psb_c_ipk) :: info character(len=80) :: fptype res = -1 @@ -59,8 +59,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_sspmat_type), pointer :: ap type(psb_sprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 !!$ write(*,*) 'Entry: ', psb_c_cd_get_local_rows(cdh) @@ -96,10 +95,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_sprec) :: ph - type(psb_sprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(ph%item)) then diff --git a/cbind/prec/psb_zprec_cbind_mod.f90 b/cbind/prec/psb_zprec_cbind_mod.f90 index 9ee230e25..971526eaa 100644 --- a/cbind/prec/psb_zprec_cbind_mod.f90 +++ b/cbind/prec/psb_zprec_cbind_mod.f90 @@ -22,7 +22,7 @@ contains type(psb_c_zprec) :: ph character(c_char) :: ptype(*) type(psb_zprec_type), pointer :: precp - integer :: info + integer(psb_c_ipk) :: info character(len=80) :: fptype res = -1 @@ -59,8 +59,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_zspmat_type), pointer :: ap type(psb_zprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 !!$ write(*,*) 'Entry: ', psb_c_cd_get_local_rows(cdh) @@ -96,10 +95,8 @@ contains integer(psb_c_ipk) :: res type(psb_c_zprec) :: ph - type(psb_zprec_type), pointer :: precp - - integer :: info + integer(psb_c_ipk) :: info res = -1 if (c_associated(ph%item)) then diff --git a/util/psb_c_mat_dist_impl.f90 b/util/psb_c_mat_dist_impl.f90 index a0a1d6eb0..dfaeac251 100644 --- a/util/psb_c_mat_dist_impl.f90 +++ b/util/psb_c_mat_dist_impl.f90 @@ -399,7 +399,7 @@ subroutine psb_lcmatdist(a_glob, a, ictxt, desc_a,& ! local variables logical :: use_parts, use_v - integer(psb_mpk_) :: np, iam, np_sharing, root, iproc + integer(psb_ipk_) :: np, iam, np_sharing, root, iproc integer(psb_ipk_) :: err_act, il, inz integer(psb_lpk_) :: k_count, liwork, nnzero, nrhs,& & i, ll, nz, isize, nnr, err diff --git a/util/psb_d_mat_dist_impl.f90 b/util/psb_d_mat_dist_impl.f90 index 9047026b2..90236db29 100644 --- a/util/psb_d_mat_dist_impl.f90 +++ b/util/psb_d_mat_dist_impl.f90 @@ -399,7 +399,7 @@ subroutine psb_ldmatdist(a_glob, a, ictxt, desc_a,& ! local variables logical :: use_parts, use_v - integer(psb_mpk_) :: np, iam, np_sharing, root, iproc + integer(psb_ipk_) :: np, iam, np_sharing, root, iproc integer(psb_ipk_) :: err_act, il, inz integer(psb_lpk_) :: k_count, liwork, nnzero, nrhs,& & i, ll, nz, isize, nnr, err diff --git a/util/psb_s_mat_dist_impl.f90 b/util/psb_s_mat_dist_impl.f90 index 32593e44a..104340eeb 100644 --- a/util/psb_s_mat_dist_impl.f90 +++ b/util/psb_s_mat_dist_impl.f90 @@ -399,7 +399,7 @@ subroutine psb_lsmatdist(a_glob, a, ictxt, desc_a,& ! local variables logical :: use_parts, use_v - integer(psb_mpk_) :: np, iam, np_sharing, root, iproc + integer(psb_ipk_) :: np, iam, np_sharing, root, iproc integer(psb_ipk_) :: err_act, il, inz integer(psb_lpk_) :: k_count, liwork, nnzero, nrhs,& & i, ll, nz, isize, nnr, err diff --git a/util/psb_z_mat_dist_impl.f90 b/util/psb_z_mat_dist_impl.f90 index b2c8be544..818f28e4c 100644 --- a/util/psb_z_mat_dist_impl.f90 +++ b/util/psb_z_mat_dist_impl.f90 @@ -399,7 +399,7 @@ subroutine psb_lzmatdist(a_glob, a, ictxt, desc_a,& ! local variables logical :: use_parts, use_v - integer(psb_mpk_) :: np, iam, np_sharing, root, iproc + integer(psb_ipk_) :: np, iam, np_sharing, root, iproc integer(psb_ipk_) :: err_act, il, inz integer(psb_lpk_) :: k_count, liwork, nnzero, nrhs,& & i, ll, nz, isize, nnr, err