From db061fe5e1b48cf5cc098fd656bfe097a5a4f9fa Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 7 Dec 2012 12:41:43 +0000 Subject: [PATCH] mld2p4-2: mlprec/impl/smoother/mld_z_base_smoother_apply.f90 mlprec/impl/smoother/mld_s_base_smoother_bld.f90 mlprec/impl/smoother/mld_z_base_smoother_setc.f90 mlprec/impl/smoother/mld_z_base_smoother_seti.f90 mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_z_base_smoother_setr.f90 mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 mlprec/impl/smoother/mld_d_base_smoother_free.f90 mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_d_base_smoother_setc.f90 mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 mlprec/impl/smoother/mld_d_base_smoother_bld.f90 mlprec/impl/smoother/mld_d_base_smoother_seti.f90 mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 mlprec/impl/smoother/mld_d_base_smoother_setr.f90 mlprec/impl/smoother/mld_c_base_smoother_free.f90 mlprec/impl/smoother/mld_z_base_smoother_bld.f90 mlprec/impl/smoother/mld_c_base_smoother_setc.f90 mlprec/impl/smoother/mld_c_base_smoother_descr.f90 mlprec/impl/smoother/mld_d_base_smoother_descr.f90 mlprec/impl/smoother/mld_s_base_smoother_free.f90 mlprec/impl/smoother/mld_c_base_smoother_seti.f90 mlprec/impl/smoother/mld_c_base_smoother_check.f90 mlprec/impl/smoother/mld_c_base_smoother_setr.f90 mlprec/impl/smoother/mld_s_base_smoother_setc.f90 mlprec/impl/smoother/mld_d_base_smoother_check.f90 mlprec/impl/smoother/mld_s_base_smoother_descr.f90 mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 mlprec/impl/smoother/mld_s_base_smoother_seti.f90 mlprec/impl/smoother/mld_c_base_smoother_apply.f90 mlprec/impl/smoother/mld_d_base_smoother_apply.f90 mlprec/impl/smoother/mld_z_base_smoother_descr.f90 mlprec/impl/smoother/mld_s_base_smoother_setr.f90 mlprec/impl/smoother/mld_s_base_smoother_check.f90 mlprec/impl/smoother/mld_c_base_smoother_bld.f90 mlprec/impl/smoother/mld_z_base_smoother_check.f90 mlprec/impl/smoother/mld_s_base_smoother_apply.f90 mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 mlprec/impl/smoother/mld_z_base_smoother_free.f90 Fixed base smoother for long integers. --- mlprec/impl/smoother/mld_c_base_smoother_apply.f90 | 10 +++++----- .../smoother/mld_c_base_smoother_apply_vect.f90 | 14 +++++++------- mlprec/impl/smoother/mld_c_base_smoother_bld.f90 | 8 ++++---- mlprec/impl/smoother/mld_c_base_smoother_check.f90 | 4 ++-- mlprec/impl/smoother/mld_c_base_smoother_descr.f90 | 12 ++++++------ mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 | 8 ++++---- mlprec/impl/smoother/mld_c_base_smoother_free.f90 | 4 ++-- mlprec/impl/smoother/mld_c_base_smoother_setc.f90 | 8 ++++---- mlprec/impl/smoother/mld_c_base_smoother_seti.f90 | 8 ++++---- mlprec/impl/smoother/mld_c_base_smoother_setr.f90 | 8 ++++---- mlprec/impl/smoother/mld_d_base_smoother_apply.f90 | 10 +++++----- .../smoother/mld_d_base_smoother_apply_vect.f90 | 14 +++++++------- mlprec/impl/smoother/mld_d_base_smoother_bld.f90 | 8 ++++---- mlprec/impl/smoother/mld_d_base_smoother_check.f90 | 4 ++-- mlprec/impl/smoother/mld_d_base_smoother_descr.f90 | 12 ++++++------ mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 | 8 ++++---- mlprec/impl/smoother/mld_d_base_smoother_free.f90 | 4 ++-- mlprec/impl/smoother/mld_d_base_smoother_setc.f90 | 8 ++++---- mlprec/impl/smoother/mld_d_base_smoother_seti.f90 | 8 ++++---- mlprec/impl/smoother/mld_d_base_smoother_setr.f90 | 8 ++++---- mlprec/impl/smoother/mld_s_base_smoother_apply.f90 | 10 +++++----- .../smoother/mld_s_base_smoother_apply_vect.f90 | 14 +++++++------- mlprec/impl/smoother/mld_s_base_smoother_bld.f90 | 8 ++++---- mlprec/impl/smoother/mld_s_base_smoother_check.f90 | 4 ++-- mlprec/impl/smoother/mld_s_base_smoother_descr.f90 | 12 ++++++------ mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 | 8 ++++---- mlprec/impl/smoother/mld_s_base_smoother_free.f90 | 4 ++-- mlprec/impl/smoother/mld_s_base_smoother_setc.f90 | 8 ++++---- mlprec/impl/smoother/mld_s_base_smoother_seti.f90 | 8 ++++---- mlprec/impl/smoother/mld_s_base_smoother_setr.f90 | 8 ++++---- mlprec/impl/smoother/mld_z_base_smoother_apply.f90 | 10 +++++----- .../smoother/mld_z_base_smoother_apply_vect.f90 | 14 +++++++------- mlprec/impl/smoother/mld_z_base_smoother_bld.f90 | 8 ++++---- mlprec/impl/smoother/mld_z_base_smoother_check.f90 | 4 ++-- mlprec/impl/smoother/mld_z_base_smoother_descr.f90 | 12 ++++++------ mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 | 8 ++++---- mlprec/impl/smoother/mld_z_base_smoother_free.f90 | 4 ++-- mlprec/impl/smoother/mld_z_base_smoother_setc.f90 | 8 ++++---- mlprec/impl/smoother/mld_z_base_smoother_seti.f90 | 8 ++++---- mlprec/impl/smoother/mld_z_base_smoother_setr.f90 | 8 ++++---- 40 files changed, 168 insertions(+), 168 deletions(-) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_apply.f90 b/mlprec/impl/smoother/mld_c_base_smoother_apply.f90 index b4c17d97..aad43a25 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_apply.f90 @@ -41,17 +41,17 @@ subroutine mld_c_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo use psb_base_mod use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_c_base_smoother_type), intent(in) :: sm complex(psb_spk_),intent(inout) :: x(:) complex(psb_spk_),intent(inout) :: y(:) complex(psb_spk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps complex(psb_spk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 index 9ed6ceca..908b0f4e 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_apply_vect.f90 @@ -42,17 +42,17 @@ subroutine mld_c_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,& use psb_base_mod use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_apply_vect implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_c_base_smoother_type), intent(inout) :: sm type(psb_c_vect_type),intent(inout) :: x type(psb_c_vect_type),intent(inout) :: y - complex(psb_spk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps - complex(psb_spk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + complex(psb_spk_),intent(in) :: alpha,beta + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps + complex(psb_spk_),target, intent(inout) :: work(:) + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_bld.f90 b/mlprec/impl/smoother/mld_c_base_smoother_bld.f90 index 3aec1a71..6c6201c3 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_bld.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_bld.f90 @@ -44,13 +44,13 @@ subroutine mld_c_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold) ! Arguments type(psb_cspmat_type), intent(in), target :: a - Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(in) :: desc_a class(mld_c_base_smoother_type), intent(inout) :: sm - character, intent(in) :: upd - integer, intent(out) :: info + character, intent(in) :: upd + integer(psb_ipk_), intent(out) :: info class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_vect_type), intent(in), optional :: vmold - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_smoother_bld' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_check.f90 b/mlprec/impl/smoother/mld_c_base_smoother_check.f90 index cd9f0362..755a2a7d 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_check.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_check.f90 @@ -44,8 +44,8 @@ subroutine mld_c_base_smoother_check(sm,info) ! Arguments class(mld_c_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='c_base_smoother_check' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_descr.f90 b/mlprec/impl/smoother/mld_c_base_smoother_descr.f90 index 1f76b143..5598c97f 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_descr.f90 @@ -44,15 +44,15 @@ subroutine mld_c_base_smoother_descr(sm,info,iout,coarse) ! Arguments class(mld_c_base_smoother_type), intent(in) :: sm - integer, intent(out) :: info - integer, intent(in), optional :: iout - logical, intent(in), optional :: coarse + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout + logical, intent(in), optional :: coarse ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: ictxt, me, np character(len=20), parameter :: name='mld_c_base_smoother_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse_ diff --git a/mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 b/mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 index 92da7030..e01937e4 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_dmp.f90 @@ -42,12 +42,12 @@ subroutine mld_c_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv use mld_c_base_smoother_mod, mld_protect_name => mld_c_base_smoother_dmp implicit none class(mld_c_base_smoother_type), intent(in) :: sm - integer, intent(in) :: ictxt,level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: 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 :: smoother_ diff --git a/mlprec/impl/smoother/mld_c_base_smoother_free.f90 b/mlprec/impl/smoother/mld_c_base_smoother_free.f90 index 2be6af80..9cf4b6c9 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_free.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_free.f90 @@ -44,8 +44,8 @@ subroutine mld_c_base_smoother_free(sm,info) ! Arguments class(mld_c_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='c_base_smoother_free' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_setc.f90 b/mlprec/impl/smoother/mld_c_base_smoother_setc.f90 index 2168e0e4..a5a8d33e 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_setc.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_setc.f90 @@ -44,10 +44,10 @@ subroutine mld_c_base_smoother_setc(sm,what,val,info) ! Arguments class(mld_c_base_smoother_type), intent(inout) :: sm - 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_smoother_setc' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_seti.f90 b/mlprec/impl/smoother/mld_c_base_smoother_seti.f90 index ed5527cc..3e725814 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_seti.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_seti.f90 @@ -43,10 +43,10 @@ subroutine mld_c_base_smoother_seti(sm,what,val,info) Implicit None ! Arguments class(mld_c_base_smoother_type), intent(inout) :: sm - 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_smoother_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_c_base_smoother_setr.f90 b/mlprec/impl/smoother/mld_c_base_smoother_setr.f90 index 474ca735..04e751fa 100644 --- a/mlprec/impl/smoother/mld_c_base_smoother_setr.f90 +++ b/mlprec/impl/smoother/mld_c_base_smoother_setr.f90 @@ -44,10 +44,10 @@ subroutine mld_c_base_smoother_setr(sm,what,val,info) ! Arguments class(mld_c_base_smoother_type), intent(inout) :: sm - integer, intent(in) :: what - real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + 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_smoother_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_apply.f90 b/mlprec/impl/smoother/mld_d_base_smoother_apply.f90 index feada197..803a61c7 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_apply.f90 @@ -41,17 +41,17 @@ subroutine mld_d_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo use psb_base_mod use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_d_base_smoother_type), intent(in) :: sm real(psb_dpk_),intent(inout) :: x(:) real(psb_dpk_),intent(inout) :: y(:) real(psb_dpk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps real(psb_dpk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 index 4b78050a..e1a0623d 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_apply_vect.f90 @@ -42,17 +42,17 @@ subroutine mld_d_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,& use psb_base_mod use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_apply_vect implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_d_base_smoother_type), intent(inout) :: sm type(psb_d_vect_type),intent(inout) :: x type(psb_d_vect_type),intent(inout) :: y - real(psb_dpk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps - real(psb_dpk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + real(psb_dpk_),intent(in) :: alpha,beta + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps + real(psb_dpk_),target, intent(inout) :: work(:) + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_bld.f90 b/mlprec/impl/smoother/mld_d_base_smoother_bld.f90 index ae4aaa38..489b87ff 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_bld.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_bld.f90 @@ -44,13 +44,13 @@ subroutine mld_d_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold) ! Arguments type(psb_dspmat_type), intent(in), target :: a - Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(in) :: desc_a class(mld_d_base_smoother_type), intent(inout) :: sm - character, intent(in) :: upd - integer, intent(out) :: info + character, intent(in) :: upd + integer(psb_ipk_), intent(out) :: info class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_vect_type), intent(in), optional :: vmold - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_smoother_bld' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_check.f90 b/mlprec/impl/smoother/mld_d_base_smoother_check.f90 index 0d338220..92a858ac 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_check.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_check.f90 @@ -44,8 +44,8 @@ subroutine mld_d_base_smoother_check(sm,info) ! Arguments class(mld_d_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='d_base_smoother_check' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_descr.f90 b/mlprec/impl/smoother/mld_d_base_smoother_descr.f90 index 13538fd5..8633d124 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_descr.f90 @@ -44,15 +44,15 @@ subroutine mld_d_base_smoother_descr(sm,info,iout,coarse) ! Arguments class(mld_d_base_smoother_type), intent(in) :: sm - integer, intent(out) :: info - integer, intent(in), optional :: iout - logical, intent(in), optional :: coarse + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout + logical, intent(in), optional :: coarse ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: ictxt, me, np character(len=20), parameter :: name='mld_d_base_smoother_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse_ diff --git a/mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 b/mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 index 424913cb..17292212 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_dmp.f90 @@ -42,12 +42,12 @@ subroutine mld_d_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv use mld_d_base_smoother_mod, mld_protect_name => mld_d_base_smoother_dmp implicit none class(mld_d_base_smoother_type), intent(in) :: sm - integer, intent(in) :: ictxt,level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: 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 :: smoother_ diff --git a/mlprec/impl/smoother/mld_d_base_smoother_free.f90 b/mlprec/impl/smoother/mld_d_base_smoother_free.f90 index 1cd6c3fd..b6fb1b28 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_free.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_free.f90 @@ -44,8 +44,8 @@ subroutine mld_d_base_smoother_free(sm,info) ! Arguments class(mld_d_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='d_base_smoother_free' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_setc.f90 b/mlprec/impl/smoother/mld_d_base_smoother_setc.f90 index dbd7bc4d..d9029a10 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_setc.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_setc.f90 @@ -44,10 +44,10 @@ subroutine mld_d_base_smoother_setc(sm,what,val,info) ! Arguments class(mld_d_base_smoother_type), intent(inout) :: sm - 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_smoother_setc' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_seti.f90 b/mlprec/impl/smoother/mld_d_base_smoother_seti.f90 index 29967aeb..1fb1574d 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_seti.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_seti.f90 @@ -43,10 +43,10 @@ subroutine mld_d_base_smoother_seti(sm,what,val,info) Implicit None ! Arguments class(mld_d_base_smoother_type), intent(inout) :: sm - 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_smoother_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_d_base_smoother_setr.f90 b/mlprec/impl/smoother/mld_d_base_smoother_setr.f90 index 0fdded83..65393bd2 100644 --- a/mlprec/impl/smoother/mld_d_base_smoother_setr.f90 +++ b/mlprec/impl/smoother/mld_d_base_smoother_setr.f90 @@ -44,10 +44,10 @@ subroutine mld_d_base_smoother_setr(sm,what,val,info) ! Arguments class(mld_d_base_smoother_type), intent(inout) :: sm - integer, intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + 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_smoother_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_apply.f90 b/mlprec/impl/smoother/mld_s_base_smoother_apply.f90 index fa57253f..38fb4fab 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_apply.f90 @@ -41,17 +41,17 @@ subroutine mld_s_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo use psb_base_mod use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_s_base_smoother_type), intent(in) :: sm real(psb_spk_),intent(inout) :: x(:) real(psb_spk_),intent(inout) :: y(:) real(psb_spk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps real(psb_spk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 index 9b0fcd63..02f411c7 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_apply_vect.f90 @@ -42,17 +42,17 @@ subroutine mld_s_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,& use psb_base_mod use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_apply_vect implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_s_base_smoother_type), intent(inout) :: sm type(psb_s_vect_type),intent(inout) :: x type(psb_s_vect_type),intent(inout) :: y - real(psb_spk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps - real(psb_spk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + real(psb_spk_),intent(in) :: alpha,beta + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps + real(psb_spk_),target, intent(inout) :: work(:) + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_bld.f90 b/mlprec/impl/smoother/mld_s_base_smoother_bld.f90 index 8ebc2800..6f80733c 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_bld.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_bld.f90 @@ -44,13 +44,13 @@ subroutine mld_s_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold) ! Arguments type(psb_sspmat_type), intent(in), target :: a - Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(in) :: desc_a class(mld_s_base_smoother_type), intent(inout) :: sm - character, intent(in) :: upd - integer, intent(out) :: info + character, intent(in) :: upd + integer(psb_ipk_), intent(out) :: info class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_vect_type), intent(in), optional :: vmold - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_smoother_bld' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_check.f90 b/mlprec/impl/smoother/mld_s_base_smoother_check.f90 index 50087cbe..71197bf1 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_check.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_check.f90 @@ -44,8 +44,8 @@ subroutine mld_s_base_smoother_check(sm,info) ! Arguments class(mld_s_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='s_base_smoother_check' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_descr.f90 b/mlprec/impl/smoother/mld_s_base_smoother_descr.f90 index 0369b993..df470705 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_descr.f90 @@ -44,15 +44,15 @@ subroutine mld_s_base_smoother_descr(sm,info,iout,coarse) ! Arguments class(mld_s_base_smoother_type), intent(in) :: sm - integer, intent(out) :: info - integer, intent(in), optional :: iout - logical, intent(in), optional :: coarse + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout + logical, intent(in), optional :: coarse ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: ictxt, me, np character(len=20), parameter :: name='mld_s_base_smoother_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse_ diff --git a/mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 b/mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 index 9ac6e123..2d7b3948 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_dmp.f90 @@ -42,12 +42,12 @@ subroutine mld_s_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv use mld_s_base_smoother_mod, mld_protect_name => mld_s_base_smoother_dmp implicit none class(mld_s_base_smoother_type), intent(in) :: sm - integer, intent(in) :: ictxt,level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: 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 :: smoother_ diff --git a/mlprec/impl/smoother/mld_s_base_smoother_free.f90 b/mlprec/impl/smoother/mld_s_base_smoother_free.f90 index 5e6ee3c6..82ba5620 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_free.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_free.f90 @@ -44,8 +44,8 @@ subroutine mld_s_base_smoother_free(sm,info) ! Arguments class(mld_s_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='s_base_smoother_free' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_setc.f90 b/mlprec/impl/smoother/mld_s_base_smoother_setc.f90 index cf1e29e2..88c53f61 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_setc.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_setc.f90 @@ -44,10 +44,10 @@ subroutine mld_s_base_smoother_setc(sm,what,val,info) ! Arguments class(mld_s_base_smoother_type), intent(inout) :: sm - 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_smoother_setc' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_seti.f90 b/mlprec/impl/smoother/mld_s_base_smoother_seti.f90 index 9d842e33..e918fdc9 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_seti.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_seti.f90 @@ -43,10 +43,10 @@ subroutine mld_s_base_smoother_seti(sm,what,val,info) Implicit None ! Arguments class(mld_s_base_smoother_type), intent(inout) :: sm - 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_smoother_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_s_base_smoother_setr.f90 b/mlprec/impl/smoother/mld_s_base_smoother_setr.f90 index 1ab2b814..6ddc6a5c 100644 --- a/mlprec/impl/smoother/mld_s_base_smoother_setr.f90 +++ b/mlprec/impl/smoother/mld_s_base_smoother_setr.f90 @@ -44,10 +44,10 @@ subroutine mld_s_base_smoother_setr(sm,what,val,info) ! Arguments class(mld_s_base_smoother_type), intent(inout) :: sm - integer, intent(in) :: what - real(psb_spk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + 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_smoother_setr' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_apply.f90 b/mlprec/impl/smoother/mld_z_base_smoother_apply.f90 index 5ee240fe..4b6a123d 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_apply.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_apply.f90 @@ -41,17 +41,17 @@ subroutine mld_z_base_smoother_apply(alpha,sm,x,beta,y,desc_data,trans,sweeps,wo use psb_base_mod use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_z_base_smoother_type), intent(in) :: sm complex(psb_dpk_),intent(inout) :: x(:) complex(psb_dpk_),intent(inout) :: y(:) complex(psb_dpk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps complex(psb_dpk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 b/mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 index c365d89f..43b1c74e 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_apply_vect.f90 @@ -42,17 +42,17 @@ subroutine mld_z_base_smoother_apply_vect(alpha,sm,x,beta,y,desc_data,& use psb_base_mod use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_apply_vect implicit none - type(psb_desc_type), intent(in) :: desc_data + type(psb_desc_type), intent(in) :: desc_data class(mld_z_base_smoother_type), intent(inout) :: sm type(psb_z_vect_type),intent(inout) :: x type(psb_z_vect_type),intent(inout) :: y - complex(psb_dpk_),intent(in) :: alpha,beta - character(len=1),intent(in) :: trans - integer, intent(in) :: sweeps - complex(psb_dpk_),target, intent(inout) :: work(:) - integer, intent(out) :: info + complex(psb_dpk_),intent(in) :: alpha,beta + character(len=1),intent(in) :: trans + integer(psb_ipk_), intent(in) :: sweeps + complex(psb_dpk_),target, intent(inout) :: work(:) + integer(psb_ipk_), intent(out) :: info - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_smoother_apply' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_bld.f90 b/mlprec/impl/smoother/mld_z_base_smoother_bld.f90 index aa601772..986e0026 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_bld.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_bld.f90 @@ -44,13 +44,13 @@ subroutine mld_z_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold) ! Arguments type(psb_zspmat_type), intent(in), target :: a - Type(psb_desc_type), Intent(in) :: desc_a + Type(psb_desc_type), Intent(in) :: desc_a class(mld_z_base_smoother_type), intent(inout) :: sm - character, intent(in) :: upd - integer, intent(out) :: info + character, intent(in) :: upd + integer(psb_ipk_), intent(out) :: info class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_vect_type), intent(in), optional :: vmold - Integer :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_smoother_bld' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_check.f90 b/mlprec/impl/smoother/mld_z_base_smoother_check.f90 index f4481e81..0d8d0a45 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_check.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_check.f90 @@ -44,8 +44,8 @@ subroutine mld_z_base_smoother_check(sm,info) ! Arguments class(mld_z_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + Integer(Psb_ipk_) :: err_act character(len=20) :: name='z_base_smoother_check' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_descr.f90 b/mlprec/impl/smoother/mld_z_base_smoother_descr.f90 index fe300025..166db8e7 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_descr.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_descr.f90 @@ -44,15 +44,15 @@ subroutine mld_z_base_smoother_descr(sm,info,iout,coarse) ! Arguments class(mld_z_base_smoother_type), intent(in) :: sm - integer, intent(out) :: info - integer, intent(in), optional :: iout - logical, intent(in), optional :: coarse + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(in), optional :: iout + logical, intent(in), optional :: coarse ! Local variables - integer :: err_act - integer :: ictxt, me, np + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: ictxt, me, np character(len=20), parameter :: name='mld_z_base_smoother_descr' - integer :: iout_ + integer(psb_ipk_) :: iout_ logical :: coarse_ diff --git a/mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 b/mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 index 4019cc95..3963a9f7 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_dmp.f90 @@ -42,12 +42,12 @@ subroutine mld_z_base_smoother_dmp(sm,ictxt,level,info,prefix,head,smoother,solv use mld_z_base_smoother_mod, mld_protect_name => mld_z_base_smoother_dmp implicit none class(mld_z_base_smoother_type), intent(in) :: sm - integer, intent(in) :: ictxt,level - integer, intent(out) :: info + integer(psb_ipk_), intent(in) :: ictxt,level + integer(psb_ipk_), intent(out) :: info character(len=*), intent(in), optional :: prefix, head logical, optional, intent(in) :: 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 :: smoother_ diff --git a/mlprec/impl/smoother/mld_z_base_smoother_free.f90 b/mlprec/impl/smoother/mld_z_base_smoother_free.f90 index 873cd19b..34e77d69 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_free.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_free.f90 @@ -44,8 +44,8 @@ subroutine mld_z_base_smoother_free(sm,info) ! Arguments class(mld_z_base_smoother_type), intent(inout) :: sm - integer, intent(out) :: info - Integer :: err_act + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act character(len=20) :: name='z_base_smoother_free' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_setc.f90 b/mlprec/impl/smoother/mld_z_base_smoother_setc.f90 index 89716bd3..ef9adc86 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_setc.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_setc.f90 @@ -44,10 +44,10 @@ subroutine mld_z_base_smoother_setc(sm,what,val,info) ! Arguments class(mld_z_base_smoother_type), intent(inout) :: sm - 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_smoother_setc' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_seti.f90 b/mlprec/impl/smoother/mld_z_base_smoother_seti.f90 index 70a05ffd..c7b9d238 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_seti.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_seti.f90 @@ -43,10 +43,10 @@ subroutine mld_z_base_smoother_seti(sm,what,val,info) Implicit None ! Arguments class(mld_z_base_smoother_type), intent(inout) :: sm - 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_smoother_seti' call psb_erractionsave(err_act) diff --git a/mlprec/impl/smoother/mld_z_base_smoother_setr.f90 b/mlprec/impl/smoother/mld_z_base_smoother_setr.f90 index b75f175d..f24c4196 100644 --- a/mlprec/impl/smoother/mld_z_base_smoother_setr.f90 +++ b/mlprec/impl/smoother/mld_z_base_smoother_setr.f90 @@ -44,10 +44,10 @@ subroutine mld_z_base_smoother_setr(sm,what,val,info) ! Arguments class(mld_z_base_smoother_type), intent(inout) :: sm - integer, intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer, intent(out) :: info - Integer :: err_act + 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_smoother_setr' call psb_erractionsave(err_act)