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

Fixes for I8L8.

Browse Source
ILmat
Salvatore Filippone 8 years ago
parent b16706e3ea
commit 4220136568
31 changed files with 191 additions and 203 deletions
Show Stats Download Patch File Download Diff File

14
cbind/base/psb_base_tools_cbind_mod.F90
Unescape Escape View File

@ -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

2
cbind/base/psb_c_base.h
Unescape Escape View File

@ -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

14
cbind/base/psb_c_comm_cbind_mod.f90
Unescape Escape View File

@ -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

18
cbind/base/psb_c_psblas_cbind_mod.f90
Unescape Escape View File

@ -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

12
cbind/base/psb_c_serial_cbind_mod.F90
Unescape Escape View File

@ -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

28
cbind/base/psb_c_tools_cbind_mod.F90
Unescape Escape View File

@ -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

6
cbind/base/psb_cpenv_mod.f90
Unescape Escape View File

@ -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)

14
cbind/base/psb_d_comm_cbind_mod.f90
Unescape Escape View File

@ -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

18
cbind/base/psb_d_psblas_cbind_mod.f90
Unescape Escape View File

@ -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

12
cbind/base/psb_d_serial_cbind_mod.F90
Unescape Escape View File

@ -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

28
cbind/base/psb_d_tools_cbind_mod.F90
Unescape Escape View File

@ -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

14
cbind/base/psb_s_comm_cbind_mod.f90
Unescape Escape View File

@ -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

18
cbind/base/psb_s_psblas_cbind_mod.f90
Unescape Escape View File

@ -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

12
cbind/base/psb_s_serial_cbind_mod.F90
Unescape Escape View File

@ -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

28
cbind/base/psb_s_tools_cbind_mod.F90
Unescape Escape View File

@ -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

14
cbind/base/psb_z_comm_cbind_mod.f90
Unescape Escape View File

@ -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

18
cbind/base/psb_z_psblas_cbind_mod.f90
Unescape Escape View File

@ -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

12
cbind/base/psb_z_serial_cbind_mod.F90
Unescape Escape View File

@ -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

28
cbind/base/psb_z_tools_cbind_mod.F90
Unescape Escape View File

@ -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

10
cbind/krylov/psb_ckrylov_cbind_mod.f90
Unescape Escape View File

@ -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

10
cbind/krylov/psb_dkrylov_cbind_mod.f90
Unescape Escape View File

@ -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

10
cbind/krylov/psb_skrylov_cbind_mod.f90
Unescape Escape View File

@ -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

10
cbind/krylov/psb_zkrylov_cbind_mod.f90
Unescape Escape View File

@ -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

9
cbind/prec/psb_cprec_cbind_mod.f90
Unescape Escape View File

@ -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

9
cbind/prec/psb_dprec_cbind_mod.f90
Unescape Escape View File

@ -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

9
cbind/prec/psb_sprec_cbind_mod.f90
Unescape Escape View File

@ -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

9
cbind/prec/psb_zprec_cbind_mod.f90
Unescape Escape View File

@ -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

2
util/psb_c_mat_dist_impl.f90
Unescape Escape View File

@ -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

2
util/psb_d_mat_dist_impl.f90
Unescape Escape View File

@ -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

2
util/psb_s_mat_dist_impl.f90
Unescape Escape View File

@ -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

2
util/psb_z_mat_dist_impl.f90
Unescape Escape View File

@ -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

Write Preview
Loading…
Cancel
Save