From 4ca3b89e1c2e39c2d946eb86f77cb8244f894494 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 27 Jul 2011 15:06:27 +0000 Subject: [PATCH] psblas3: base/modules/psb_desc_type.f90 prec/psb_d_prec_type.f90 Interfaces in desc_type did not go well with NAG compiler. Reverted change in apply1v, as it was not the cause of the problem experienced earlier today. --- base/modules/psb_desc_type.f90 | 48 +++++++++++++++++----------------- prec/psb_d_prec_type.f90 | 3 +-- 2 files changed, 25 insertions(+), 26 deletions(-) diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 1a9467ad..94171ba4 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -230,30 +230,30 @@ module psb_descriptor_type module procedure psb_cd_sizeof end interface psb_sizeof - interface psb_is_ok_desc - module procedure psb_is_ok_desc - end interface psb_is_ok_desc - - interface psb_is_valid_desc - module procedure psb_is_valid_desc - end interface psb_is_valid_desc - - interface psb_is_asb_desc - module procedure psb_is_asb_desc - end interface psb_is_asb_desc - - interface psb_is_upd_desc - module procedure psb_is_upd_desc - end interface psb_is_upd_desc - - interface psb_is_ovl_desc - module procedure psb_is_ovl_desc - end interface psb_is_ovl_desc - - interface psb_is_bld_desc - module procedure psb_is_bld_desc - end interface psb_is_bld_desc - +!!$ interface psb_is_ok_desc +!!$ module procedure psb_is_ok_desc +!!$ end interface psb_is_ok_desc +!!$ +!!$ interface psb_is_valid_desc +!!$ module procedure psb_is_valid_desc +!!$ end interface psb_is_valid_desc +!!$ +!!$ interface psb_is_asb_desc +!!$ module procedure psb_is_asb_desc +!!$ end interface psb_is_asb_desc +!!$ +!!$ interface psb_is_upd_desc +!!$ module procedure psb_is_upd_desc +!!$ end interface psb_is_upd_desc +!!$ +!!$ interface psb_is_ovl_desc +!!$ module procedure psb_is_ovl_desc +!!$ end interface psb_is_ovl_desc +!!$ +!!$ interface psb_is_bld_desc +!!$ module procedure psb_is_bld_desc +!!$ end interface psb_is_bld_desc +!!$ interface psb_move_alloc module procedure psb_cdtransfer diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90 index 2f0731a5..8ef0ad97 100644 --- a/prec/psb_d_prec_type.f90 +++ b/prec/psb_d_prec_type.f90 @@ -243,14 +243,13 @@ contains end subroutine d_apply2v - subroutine d_apply1v(prec,x,desc_data,info,trans,work) + subroutine d_apply1v(prec,x,desc_data,info,trans) use psb_base_mod type(psb_desc_type),intent(in) :: desc_data class(psb_dprec_type), intent(in) :: prec real(psb_dpk_),intent(inout) :: x(:) integer, intent(out) :: info character(len=1), optional :: trans - real(psb_dpk_),intent(inout), optional, target :: work(:) character :: trans_ integer :: ictxt,np,me, err_act