From 776a6929c2deae345f631927f37f5c272c40da5a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 2 Jan 2008 11:29:37 +0000 Subject: [PATCH] Minor interface updates. --- mlprec/mld_dbjac_aply.f90 | 16 ++++++++-------- mlprec/mld_prec_mod.f90 | 20 ++++++++++---------- mlprec/mld_zbjac_aply.f90 | 16 ++++++++-------- 3 files changed, 26 insertions(+), 26 deletions(-) diff --git a/mlprec/mld_dbjac_aply.f90 b/mlprec/mld_dbjac_aply.f90 index 7d65f49e..268fe6d5 100644 --- a/mlprec/mld_dbjac_aply.f90 +++ b/mlprec/mld_dbjac_aply.f90 @@ -138,14 +138,14 @@ subroutine mld_dbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info) implicit none ! Arguments - type(psb_desc_type), intent(in) :: desc_data - type(mld_dbaseprc_type), intent(in) :: prec - real(kind(0.d0)),intent(in) :: x(:) - real(kind(0.d0)),intent(inout) :: y(:) - real(kind(0.d0)),intent(in) :: alpha,beta - character(len=1) :: trans - real(kind(0.d0)),target :: work(:) - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_data + type(mld_dbaseprc_type), intent(in) :: prec + real(kind(0.d0)),intent(in) :: x(:) + real(kind(0.d0)),intent(inout) :: y(:) + real(kind(0.d0)),intent(in) :: alpha,beta + character(len=1), intent(in) :: trans + real(kind(0.d0)),target, intent(inout) :: work(:) + integer, intent(out) :: info ! Local variables integer :: n_row,n_col diff --git a/mlprec/mld_prec_mod.f90 b/mlprec/mld_prec_mod.f90 index 4e6cca06..90e34edb 100644 --- a/mlprec/mld_prec_mod.f90 +++ b/mlprec/mld_prec_mod.f90 @@ -269,21 +269,21 @@ module mld_prec_mod real(kind(0.d0)),intent(in) :: x(:) real(kind(0.d0)),intent(inout) :: y(:) real(kind(0.d0)),intent(in) :: alpha,beta - character(len=1) :: trans - real(kind(0.d0)),target :: work(:) + character(len=1),intent(in) :: trans + real(kind(0.d0)),target,intent(inout) :: work(:) integer, intent(out) :: info end subroutine mld_dbjac_aply subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info) use psb_base_mod use mld_prec_type - type(psb_desc_type), intent(in) :: desc_data - type(mld_zbaseprc_type), intent(in) :: prec - complex(kind(0.d0)),intent(in) :: x(:) - complex(kind(0.d0)),intent(inout) :: y(:) - complex(kind(0.d0)),intent(in) :: alpha,beta - character(len=1) :: trans - complex(kind(0.d0)),target :: work(:) - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_data + type(mld_zbaseprc_type), intent(in) :: prec + complex(kind(0.d0)),intent(in) :: x(:) + complex(kind(0.d0)),intent(inout) :: y(:) + complex(kind(0.d0)),intent(in) :: alpha,beta + character(len=1),intent(in) :: trans + complex(kind(0.d0)),target,intent(inout) :: work(:) + integer, intent(out) :: info end subroutine mld_zbjac_aply end interface diff --git a/mlprec/mld_zbjac_aply.f90 b/mlprec/mld_zbjac_aply.f90 index efc1ec9d..d9fba4ee 100644 --- a/mlprec/mld_zbjac_aply.f90 +++ b/mlprec/mld_zbjac_aply.f90 @@ -138,14 +138,14 @@ subroutine mld_zbjac_aply(alpha,prec,x,beta,y,desc_data,trans,work,info) implicit none ! Arguments - type(psb_desc_type), intent(in) :: desc_data - type(mld_zbaseprc_type), intent(in) :: prec - complex(kind(0.d0)),intent(in) :: x(:) - complex(kind(0.d0)),intent(inout) :: y(:) - complex(kind(0.d0)),intent(in) :: alpha,beta - character(len=1) :: trans - complex(kind(0.d0)),target :: work(:) - integer, intent(out) :: info + type(psb_desc_type), intent(in) :: desc_data + type(mld_zbaseprc_type), intent(in) :: prec + complex(kind(0.d0)),intent(in) :: x(:) + complex(kind(0.d0)),intent(inout) :: y(:) + complex(kind(0.d0)),intent(in) :: alpha,beta + character(len=1), intent(in) :: trans + complex(kind(0.d0)),target, intent(inout) :: work(:) + integer, intent(out) :: info ! Local variables integer :: n_row,n_col