From c9376b5b4ffbb893a829bc9f6969356c53641046 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Dec 2012 11:31:54 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/level/mld_d_base_onelev_free.f90 mlprec/impl/level/mld_s_base_onelev_seti.f90 mlprec/impl/level/mld_z_base_onelev_setc.f90 mlprec/impl/level/mld_s_base_onelev_dump.f90 mlprec/impl/level/mld_z_base_onelev_descr.f90 mlprec/impl/level/mld_z_base_onelev_seti.f90 mlprec/impl/level/mld_z_base_onelev_dump.f90 mlprec/impl/level/mld_s_base_onelev_setr.f90 mlprec/impl/level/mld_s_base_onelev_check.f90 mlprec/impl/level/mld_c_base_onelev_setc.f90 mlprec/impl/level/mld_d_base_onelev_setc.f90 mlprec/impl/level/mld_c_base_onelev_descr.f90 mlprec/impl/level/mld_s_base_onelev_free.f90 mlprec/impl/level/mld_d_base_onelev_descr.f90 mlprec/impl/level/mld_z_base_onelev_check.f90 mlprec/impl/level/mld_c_base_onelev_seti.f90 mlprec/impl/level/mld_z_base_onelev_setr.f90 mlprec/impl/level/mld_d_base_onelev_seti.f90 mlprec/impl/level/mld_c_base_onelev_dump.f90 mlprec/impl/level/mld_d_base_onelev_dump.f90 mlprec/impl/level/mld_z_base_onelev_free.f90 mlprec/impl/level/mld_c_base_onelev_setr.f90 mlprec/impl/level/mld_c_base_onelev_check.f90 mlprec/impl/level/mld_d_base_onelev_setr.f90 mlprec/impl/level/mld_d_base_onelev_check.f90 mlprec/impl/level/mld_s_base_onelev_setc.f90 mlprec/impl/level/mld_s_base_onelev_descr.f90 mlprec/impl/level/mld_c_base_onelev_free.f90 Fixed integers in impl/level --- mlprec/impl/level/mld_c_base_onelev_check.f90 | 10 +++++----- mlprec/impl/level/mld_c_base_onelev_descr.f90 | 13 ++++++------- mlprec/impl/level/mld_c_base_onelev_dump.f90 | 8 ++++---- mlprec/impl/level/mld_c_base_onelev_free.f90 | 4 ++-- mlprec/impl/level/mld_c_base_onelev_setc.f90 | 10 +++++----- mlprec/impl/level/mld_c_base_onelev_seti.f90 | 8 ++++---- mlprec/impl/level/mld_c_base_onelev_setr.f90 | 10 +++++----- mlprec/impl/level/mld_d_base_onelev_check.f90 | 10 +++++----- mlprec/impl/level/mld_d_base_onelev_descr.f90 | 13 ++++++------- mlprec/impl/level/mld_d_base_onelev_dump.f90 | 8 ++++---- mlprec/impl/level/mld_d_base_onelev_free.f90 | 4 ++-- mlprec/impl/level/mld_d_base_onelev_setc.f90 | 10 +++++----- mlprec/impl/level/mld_d_base_onelev_seti.f90 | 8 ++++---- mlprec/impl/level/mld_d_base_onelev_setr.f90 | 10 +++++----- mlprec/impl/level/mld_s_base_onelev_check.f90 | 10 +++++----- mlprec/impl/level/mld_s_base_onelev_descr.f90 | 13 ++++++------- mlprec/impl/level/mld_s_base_onelev_dump.f90 | 8 ++++---- mlprec/impl/level/mld_s_base_onelev_free.f90 | 4 ++-- mlprec/impl/level/mld_s_base_onelev_setc.f90 | 10 +++++----- mlprec/impl/level/mld_s_base_onelev_seti.f90 | 8 ++++---- mlprec/impl/level/mld_s_base_onelev_setr.f90 | 10 +++++----- mlprec/impl/level/mld_z_base_onelev_check.f90 | 10 +++++----- mlprec/impl/level/mld_z_base_onelev_descr.f90 | 13 ++++++------- mlprec/impl/level/mld_z_base_onelev_dump.f90 | 8 ++++---- mlprec/impl/level/mld_z_base_onelev_free.f90 | 4 ++-- mlprec/impl/level/mld_z_base_onelev_setc.f90 | 10 +++++----- mlprec/impl/level/mld_z_base_onelev_seti.f90 | 8 ++++---- mlprec/impl/level/mld_z_base_onelev_setr.f90 | 10 +++++----- 28 files changed, 124 insertions(+), 128 deletions(-) diff --git a/mlprec/impl/level/mld_c_base_onelev_check.f90 b/mlprec/impl/level/mld_c_base_onelev_check.f90 index 6ea4845a..c9ca656e 100644 --- a/mlprec/impl/level/mld_c_base_onelev_check.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_check.f90 @@ -45,19 +45,19 @@ subroutine mld_c_base_onelev_check(lv,info) ! Arguments class(mld_c_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_onelev_check' call psb_erractionsave(err_act) info = psb_success_ call mld_check_def(lv%parms%sweeps,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_pre,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_post,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) if (allocated(lv%sm)) then diff --git a/mlprec/impl/level/mld_c_base_onelev_descr.f90 b/mlprec/impl/level/mld_c_base_onelev_descr.f90 index 3f573e17..bc000408 100644 --- a/mlprec/impl/level/mld_c_base_onelev_descr.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_descr.f90 @@ -42,16 +42,15 @@ subroutine mld_c_base_onelev_descr(lv,il,nl,info,iout) use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_descr Implicit None ! Arguments - class(mld_c_onelev_type), intent(in) :: lv - integer, intent(in) :: il,nl - integer, intent(out) :: info - integer, intent(in), optional :: iout + class(mld_c_onelev_type), intent(in) :: lv + integer(psb_ipk_), intent(in) :: il,nl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act character(len=20), parameter :: name='mld_c_base_onelev_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse diff --git a/mlprec/impl/level/mld_c_base_onelev_dump.f90 b/mlprec/impl/level/mld_c_base_onelev_dump.f90 index 5623dbc8..8212798b 100644 --- a/mlprec/impl/level/mld_c_base_onelev_dump.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_dump.f90 @@ -42,12 +42,12 @@ subroutine mld_c_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve use mld_c_onelev_mod, mld_protect_name => mld_c_base_onelev_dump implicit none class(mld_c_onelev_type), intent(in) :: lv - integer, intent(in) :: level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: ac, rp, smoother, solver - integer :: i, j, il1, iln, lname, lev - integer :: icontxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: icontxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than logical :: ac_, rp_ diff --git a/mlprec/impl/level/mld_c_base_onelev_free.f90 b/mlprec/impl/level/mld_c_base_onelev_free.f90 index 9ce19286..dce558a0 100644 --- a/mlprec/impl/level/mld_c_base_onelev_free.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_free.f90 @@ -43,8 +43,8 @@ subroutine mld_c_base_onelev_free(lv,info) implicit none class(mld_c_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - integer :: i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i info = psb_success_ diff --git a/mlprec/impl/level/mld_c_base_onelev_setc.f90 b/mlprec/impl/level/mld_c_base_onelev_setc.f90 index 271207a1..bf0930ec 100644 --- a/mlprec/impl/level/mld_c_base_onelev_setc.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_setc.f90 @@ -45,12 +45,12 @@ subroutine mld_c_base_onelev_setc(lv,what,val,info) ! Arguments class(mld_c_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + character(len=*), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_onelev_setc' - integer :: ival + integer(psb_ipk_) :: ival call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_c_base_onelev_seti.f90 b/mlprec/impl/level/mld_c_base_onelev_seti.f90 index 6b79cac8..e459133a 100644 --- a/mlprec/impl/level/mld_c_base_onelev_seti.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_seti.f90 @@ -45,10 +45,10 @@ subroutine mld_c_base_onelev_seti(lv,what,val,info) ! Arguments class(mld_c_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='c_base_onelev_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_c_base_onelev_setr.f90 b/mlprec/impl/level/mld_c_base_onelev_setr.f90 index 9edc60cb..ba150677 100644 --- a/mlprec/impl/level/mld_c_base_onelev_setr.f90 +++ b/mlprec/impl/level/mld_c_base_onelev_setr.f90 @@ -45,11 +45,11 @@ subroutine mld_c_base_onelev_setr(lv,what,val,info) ! Arguments class(mld_c_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act - character(len=20) :: name='c_base_onelev_setr' + integer(psb_ipk_), intent(in) :: what + real(psb_spk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='c_base_onelev_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_d_base_onelev_check.f90 b/mlprec/impl/level/mld_d_base_onelev_check.f90 index 1decf09f..aa0500ae 100644 --- a/mlprec/impl/level/mld_d_base_onelev_check.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_check.f90 @@ -45,19 +45,19 @@ subroutine mld_d_base_onelev_check(lv,info) ! Arguments class(mld_d_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_onelev_check' call psb_erractionsave(err_act) info = psb_success_ call mld_check_def(lv%parms%sweeps,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_pre,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_post,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) if (allocated(lv%sm)) then diff --git a/mlprec/impl/level/mld_d_base_onelev_descr.f90 b/mlprec/impl/level/mld_d_base_onelev_descr.f90 index 7ac3d616..5da55751 100644 --- a/mlprec/impl/level/mld_d_base_onelev_descr.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_descr.f90 @@ -42,16 +42,15 @@ subroutine mld_d_base_onelev_descr(lv,il,nl,info,iout) use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_descr Implicit None ! Arguments - class(mld_d_onelev_type), intent(in) :: lv - integer, intent(in) :: il,nl - integer, intent(out) :: info - integer, intent(in), optional :: iout + class(mld_d_onelev_type), intent(in) :: lv + integer(psb_ipk_), intent(in) :: il,nl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act character(len=20), parameter :: name='mld_d_base_onelev_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse diff --git a/mlprec/impl/level/mld_d_base_onelev_dump.f90 b/mlprec/impl/level/mld_d_base_onelev_dump.f90 index 85d277d8..cb461622 100644 --- a/mlprec/impl/level/mld_d_base_onelev_dump.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_dump.f90 @@ -42,12 +42,12 @@ subroutine mld_d_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve use mld_d_onelev_mod, mld_protect_name => mld_d_base_onelev_dump implicit none class(mld_d_onelev_type), intent(in) :: lv - integer, intent(in) :: level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: ac, rp, smoother, solver - integer :: i, j, il1, iln, lname, lev - integer :: icontxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: icontxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than logical :: ac_, rp_ diff --git a/mlprec/impl/level/mld_d_base_onelev_free.f90 b/mlprec/impl/level/mld_d_base_onelev_free.f90 index 64ac17ab..1974e89e 100644 --- a/mlprec/impl/level/mld_d_base_onelev_free.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_free.f90 @@ -43,8 +43,8 @@ subroutine mld_d_base_onelev_free(lv,info) implicit none class(mld_d_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - integer :: i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i info = psb_success_ diff --git a/mlprec/impl/level/mld_d_base_onelev_setc.f90 b/mlprec/impl/level/mld_d_base_onelev_setc.f90 index 1bbc798e..452f3cec 100644 --- a/mlprec/impl/level/mld_d_base_onelev_setc.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_setc.f90 @@ -45,12 +45,12 @@ subroutine mld_d_base_onelev_setc(lv,what,val,info) ! Arguments class(mld_d_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + character(len=*), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_onelev_setc' - integer :: ival + integer(psb_ipk_) :: ival call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_d_base_onelev_seti.f90 b/mlprec/impl/level/mld_d_base_onelev_seti.f90 index 9acfb48f..c66fd323 100644 --- a/mlprec/impl/level/mld_d_base_onelev_seti.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_seti.f90 @@ -45,10 +45,10 @@ subroutine mld_d_base_onelev_seti(lv,what,val,info) ! Arguments class(mld_d_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='d_base_onelev_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_d_base_onelev_setr.f90 b/mlprec/impl/level/mld_d_base_onelev_setr.f90 index ab0dd223..f7c603a1 100644 --- a/mlprec/impl/level/mld_d_base_onelev_setr.f90 +++ b/mlprec/impl/level/mld_d_base_onelev_setr.f90 @@ -45,11 +45,11 @@ subroutine mld_d_base_onelev_setr(lv,what,val,info) ! Arguments class(mld_d_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act - character(len=20) :: name='d_base_onelev_setr' + integer(psb_ipk_), intent(in) :: what + real(psb_dpk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='d_base_onelev_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_s_base_onelev_check.f90 b/mlprec/impl/level/mld_s_base_onelev_check.f90 index 5955292f..35f8e2f1 100644 --- a/mlprec/impl/level/mld_s_base_onelev_check.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_check.f90 @@ -45,19 +45,19 @@ subroutine mld_s_base_onelev_check(lv,info) ! Arguments class(mld_s_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_onelev_check' call psb_erractionsave(err_act) info = psb_success_ call mld_check_def(lv%parms%sweeps,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_pre,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_post,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) if (allocated(lv%sm)) then diff --git a/mlprec/impl/level/mld_s_base_onelev_descr.f90 b/mlprec/impl/level/mld_s_base_onelev_descr.f90 index d7127f76..3bff6fd9 100644 --- a/mlprec/impl/level/mld_s_base_onelev_descr.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_descr.f90 @@ -42,16 +42,15 @@ subroutine mld_s_base_onelev_descr(lv,il,nl,info,iout) use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_descr Implicit None ! Arguments - class(mld_s_onelev_type), intent(in) :: lv - integer, intent(in) :: il,nl - integer, intent(out) :: info - integer, intent(in), optional :: iout + class(mld_s_onelev_type), intent(in) :: lv + integer(psb_ipk_), intent(in) :: il,nl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act character(len=20), parameter :: name='mld_s_base_onelev_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse diff --git a/mlprec/impl/level/mld_s_base_onelev_dump.f90 b/mlprec/impl/level/mld_s_base_onelev_dump.f90 index 922dd19a..35fec510 100644 --- a/mlprec/impl/level/mld_s_base_onelev_dump.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_dump.f90 @@ -42,12 +42,12 @@ subroutine mld_s_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve use mld_s_onelev_mod, mld_protect_name => mld_s_base_onelev_dump implicit none class(mld_s_onelev_type), intent(in) :: lv - integer, intent(in) :: level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: ac, rp, smoother, solver - integer :: i, j, il1, iln, lname, lev - integer :: icontxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: icontxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than logical :: ac_, rp_ diff --git a/mlprec/impl/level/mld_s_base_onelev_free.f90 b/mlprec/impl/level/mld_s_base_onelev_free.f90 index 69c3cac7..e0210ebc 100644 --- a/mlprec/impl/level/mld_s_base_onelev_free.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_free.f90 @@ -43,8 +43,8 @@ subroutine mld_s_base_onelev_free(lv,info) implicit none class(mld_s_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - integer :: i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i info = psb_success_ diff --git a/mlprec/impl/level/mld_s_base_onelev_setc.f90 b/mlprec/impl/level/mld_s_base_onelev_setc.f90 index a996040a..33e0779a 100644 --- a/mlprec/impl/level/mld_s_base_onelev_setc.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_setc.f90 @@ -45,12 +45,12 @@ subroutine mld_s_base_onelev_setc(lv,what,val,info) ! Arguments class(mld_s_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + character(len=*), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_onelev_setc' - integer :: ival + integer(psb_ipk_) :: ival call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_s_base_onelev_seti.f90 b/mlprec/impl/level/mld_s_base_onelev_seti.f90 index 21170fe5..c1daa7db 100644 --- a/mlprec/impl/level/mld_s_base_onelev_seti.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_seti.f90 @@ -45,10 +45,10 @@ subroutine mld_s_base_onelev_seti(lv,what,val,info) ! Arguments class(mld_s_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='s_base_onelev_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_s_base_onelev_setr.f90 b/mlprec/impl/level/mld_s_base_onelev_setr.f90 index 7af25adf..885126f4 100644 --- a/mlprec/impl/level/mld_s_base_onelev_setr.f90 +++ b/mlprec/impl/level/mld_s_base_onelev_setr.f90 @@ -45,11 +45,11 @@ subroutine mld_s_base_onelev_setr(lv,what,val,info) ! Arguments class(mld_s_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act - character(len=20) :: name='s_base_onelev_setr' + integer(psb_ipk_), intent(in) :: what + real(psb_spk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='s_base_onelev_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_z_base_onelev_check.f90 b/mlprec/impl/level/mld_z_base_onelev_check.f90 index b766ce8b..bfa72687 100644 --- a/mlprec/impl/level/mld_z_base_onelev_check.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_check.f90 @@ -45,19 +45,19 @@ subroutine mld_z_base_onelev_check(lv,info) ! Arguments class(mld_z_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_onelev_check' call psb_erractionsave(err_act) info = psb_success_ call mld_check_def(lv%parms%sweeps,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_pre,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) call mld_check_def(lv%parms%sweeps_post,& - & 'Jacobi sweeps',1,is_legal_jac_sweeps) + & 'Jacobi sweeps',ione,is_legal_jac_sweeps) if (allocated(lv%sm)) then diff --git a/mlprec/impl/level/mld_z_base_onelev_descr.f90 b/mlprec/impl/level/mld_z_base_onelev_descr.f90 index dc0a26cb..1299bd7d 100644 --- a/mlprec/impl/level/mld_z_base_onelev_descr.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_descr.f90 @@ -42,16 +42,15 @@ subroutine mld_z_base_onelev_descr(lv,il,nl,info,iout) use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_descr Implicit None ! Arguments - class(mld_z_onelev_type), intent(in) :: lv - integer, intent(in) :: il,nl - integer, intent(out) :: info - integer, intent(in), optional :: iout + class(mld_z_onelev_type), intent(in) :: lv + integer(psb_ipk_), intent(in) :: il,nl + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act character(len=20), parameter :: name='mld_z_base_onelev_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse diff --git a/mlprec/impl/level/mld_z_base_onelev_dump.f90 b/mlprec/impl/level/mld_z_base_onelev_dump.f90 index 80dc4ac9..dce61eb3 100644 --- a/mlprec/impl/level/mld_z_base_onelev_dump.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_dump.f90 @@ -42,12 +42,12 @@ subroutine mld_z_base_onelev_dump(lv,level,info,prefix,head,ac,rp,smoother,solve use mld_z_onelev_mod, mld_protect_name => mld_z_base_onelev_dump implicit none class(mld_z_onelev_type), intent(in) :: lv - integer, intent(in) :: level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: ac, rp, smoother, solver - integer :: i, j, il1, iln, lname, lev - integer :: icontxt,iam, np + integer(psb_ipk_) :: i, j, il1, iln, lname, lev + integer(psb_ipk_) :: icontxt,iam, np character(len=80) :: prefix_ character(len=120) :: fname ! len should be at least 20 more than logical :: ac_, rp_ diff --git a/mlprec/impl/level/mld_z_base_onelev_free.f90 b/mlprec/impl/level/mld_z_base_onelev_free.f90 index 2f9f67fc..026f166d 100644 --- a/mlprec/impl/level/mld_z_base_onelev_free.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_free.f90 @@ -43,8 +43,8 @@ subroutine mld_z_base_onelev_free(lv,info) implicit none class(mld_z_onelev_type), intent(inout) :: lv - integer, intent(out) :: info - integer :: i + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i info = psb_success_ diff --git a/mlprec/impl/level/mld_z_base_onelev_setc.f90 b/mlprec/impl/level/mld_z_base_onelev_setc.f90 index 88cf4790..c3146d16 100644 --- a/mlprec/impl/level/mld_z_base_onelev_setc.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_setc.f90 @@ -45,12 +45,12 @@ subroutine mld_z_base_onelev_setc(lv,what,val,info) ! Arguments class(mld_z_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - character(len=*), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + character(len=*), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_onelev_setc' - integer :: ival + integer(psb_ipk_) :: ival call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_z_base_onelev_seti.f90 b/mlprec/impl/level/mld_z_base_onelev_seti.f90 index 706c6e54..cb2d1200 100644 --- a/mlprec/impl/level/mld_z_base_onelev_seti.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_seti.f90 @@ -45,10 +45,10 @@ subroutine mld_z_base_onelev_seti(lv,what,val,info) ! Arguments class(mld_z_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - integer, intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(in) :: what + integer(psb_ipk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='z_base_onelev_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/level/mld_z_base_onelev_setr.f90 b/mlprec/impl/level/mld_z_base_onelev_setr.f90 index e3aafb0a..7d067b38 100644 --- a/mlprec/impl/level/mld_z_base_onelev_setr.f90 +++ b/mlprec/impl/level/mld_z_base_onelev_setr.f90 @@ -45,11 +45,11 @@ subroutine mld_z_base_onelev_setr(lv,what,val,info) ! Arguments class(mld_z_onelev_type), intent(inout) :: lv - integer, intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act - character(len=20) :: name='z_base_onelev_setr' + integer(psb_ipk_), intent(in) :: what + real(psb_dpk_), intent(in) :: val + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='z_base_onelev_setr' call psb_erractionsave(err_act)