mld2p4-2:

mlprec/impl/mld_ccoarse_bld.f90
 mlprec/impl/mld_dcoarse_bld.f90
 mlprec/impl/mld_scoarse_bld.f90
 mlprec/impl/mld_zcoarse_bld.f90

 fix integer kinds.
stopcriterion
Salvatore Filippone 12 years ago
parent 983833679d
commit 68b0e5fc8b

@ -76,12 +76,13 @@ subroutine mld_ccoarse_bld(a,desc_a,p,info)
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a type(psb_desc_type), intent(in), target :: desc_a
type(mld_c_onelev_type), intent(inout),target :: p type(mld_c_onelev_type), intent(inout),target :: p
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local variables ! Local variables
character(len=20) :: name character(len=20) :: name
integer :: ictxt, np, me, err_act integer(psb_mpik_) :: ictxt, np, me
integer, allocatable :: ilaggr(:), nlaggr(:) integer(psb_ipk_) :: err_act
integer(psb_ipk_), allocatable :: ilaggr(:), nlaggr(:)
name='mld_ccoarse_bld' name='mld_ccoarse_bld'
if (psb_get_errstatus().ne.0) return if (psb_get_errstatus().ne.0) return

@ -76,12 +76,13 @@ subroutine mld_dcoarse_bld(a,desc_a,p,info)
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a type(psb_desc_type), intent(in), target :: desc_a
type(mld_d_onelev_type), intent(inout),target :: p type(mld_d_onelev_type), intent(inout),target :: p
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local variables ! Local variables
character(len=20) :: name character(len=20) :: name
integer :: ictxt, np, me, err_act integer(psb_mpik_) :: ictxt, np, me
integer, allocatable :: ilaggr(:), nlaggr(:) integer(psb_ipk_) :: err_act
integer(psb_ipk_), allocatable :: ilaggr(:), nlaggr(:)
name='mld_dcoarse_bld' name='mld_dcoarse_bld'
if (psb_get_errstatus().ne.0) return if (psb_get_errstatus().ne.0) return

@ -76,12 +76,13 @@ subroutine mld_scoarse_bld(a,desc_a,p,info)
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a type(psb_desc_type), intent(in), target :: desc_a
type(mld_s_onelev_type), intent(inout),target :: p type(mld_s_onelev_type), intent(inout),target :: p
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local variables ! Local variables
character(len=20) :: name character(len=20) :: name
integer :: ictxt, np, me, err_act integer(psb_mpik_) :: ictxt, np, me
integer, allocatable :: ilaggr(:), nlaggr(:) integer(psb_ipk_) :: err_act
integer(psb_ipk_), allocatable :: ilaggr(:), nlaggr(:)
name='mld_scoarse_bld' name='mld_scoarse_bld'
if (psb_get_errstatus().ne.0) return if (psb_get_errstatus().ne.0) return

@ -76,12 +76,13 @@ subroutine mld_zcoarse_bld(a,desc_a,p,info)
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a type(psb_desc_type), intent(in), target :: desc_a
type(mld_z_onelev_type), intent(inout),target :: p type(mld_z_onelev_type), intent(inout),target :: p
integer, intent(out) :: info integer(psb_ipk_), intent(out) :: info
! Local variables ! Local variables
character(len=20) :: name character(len=20) :: name
integer :: ictxt, np, me, err_act integer(psb_mpik_) :: ictxt, np, me
integer, allocatable :: ilaggr(:), nlaggr(:) integer(psb_ipk_) :: err_act
integer(psb_ipk_), allocatable :: ilaggr(:), nlaggr(:)
name='mld_zcoarse_bld' name='mld_zcoarse_bld'
if (psb_get_errstatus().ne.0) return if (psb_get_errstatus().ne.0) return

Loading…
Cancel
Save