From 7fdd0ef65bcec6e0bf33ed837d78a7fb0902795c Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 5 May 2012 19:11:27 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_base_linmap_mod.f90 | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/base/modules/psb_base_linmap_mod.f90 b/base/modules/psb_base_linmap_mod.f90 index bd365d24..bedf4f07 100644 --- a/base/modules/psb_base_linmap_mod.f90 +++ b/base/modules/psb_base_linmap_mod.f90 @@ -83,38 +83,38 @@ contains end subroutine base_set_kind - function base_is_ok(map) result(this) + function base_is_ok(map) result(res) use psb_descriptor_type implicit none class(psb_base_linmap_type), intent(in) :: map - logical :: this - this = .false. + logical :: res + res = .false. select case(map%get_kind()) case (psb_map_aggr_) if (.not.associated(map%p_desc_X)) return if (.not.associated(map%p_desc_Y)) return - this = map%p_desc_X%is_ok().and.map%p_desc_Y%is_ok() + res = map%p_desc_X%is_ok().and.map%p_desc_Y%is_ok() case(psb_map_gen_linear_) - this = map%desc_X%is_ok().and.map%desc_Y%is_ok() + res = map%desc_X%is_ok().and.map%desc_Y%is_ok() end select end function base_is_ok - function base_is_asb(map) result(this) + function base_is_asb(map) result(res) use psb_descriptor_type implicit none class(psb_base_linmap_type), intent(in) :: map - logical :: this - this = .false. + logical :: res + res = .false. select case(map%get_kind()) case (psb_map_aggr_) if (.not.associated(map%p_desc_X)) return if (.not.associated(map%p_desc_Y)) return - this = map%p_desc_X%is_asb().and.map%p_desc_Y%is_asb() + res = map%p_desc_X%is_asb().and.map%p_desc_Y%is_asb() case(psb_map_gen_linear_) - this = map%desc_X%is_asb().and.map%desc_Y%is_asb() + res = map%desc_X%is_asb().and.map%desc_Y%is_asb() end select end function base_is_asb