From 4fd3247f929e9190cdaa0f9d35f7b2ccc2c46b71 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 May 2012 15:20:03 +0000 Subject: [PATCH] psblas3 psb_base_linmap_mod.f90 psb_desc_type.f90 psb_linmap_mod.f90 Internal cosmetic changes. --- base/modules/psb_base_linmap_mod.f90 | 4 ++-- base/modules/psb_desc_type.f90 | 16 ++++++++-------- base/modules/psb_linmap_mod.f90 | 2 -- 3 files changed, 10 insertions(+), 12 deletions(-) diff --git a/base/modules/psb_base_linmap_mod.f90 b/base/modules/psb_base_linmap_mod.f90 index b7f3c2a5..bd365d24 100644 --- a/base/modules/psb_base_linmap_mod.f90 +++ b/base/modules/psb_base_linmap_mod.f90 @@ -140,8 +140,8 @@ contains use psb_descriptor_type use psb_mat_mod, only : psb_move_alloc implicit none - type(psb_base_linmap_type) :: mapin,mapout - integer(psb_ipk_), intent(out) :: info + type(psb_base_linmap_type), intent(inout) :: mapin,mapout + integer(psb_ipk_), intent(out) :: info mapout%kind = mapin%kind call psb_move_alloc(mapin%iaggr,mapout%iaggr,info) diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 6e2370ae..563455df 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -199,16 +199,16 @@ module psb_descriptor_type type psb_desc_type - integer(psb_ipk_), allocatable :: halo_index(:) - integer(psb_ipk_), allocatable :: ext_index(:) - integer(psb_ipk_), allocatable :: ovrlap_index(:) - integer(psb_ipk_), allocatable :: ovrlap_elem(:,:) - integer(psb_ipk_), allocatable :: ovr_mst_idx(:) - integer(psb_ipk_), allocatable :: bnd_elem(:) + integer(psb_ipk_), allocatable :: halo_index(:) + integer(psb_ipk_), allocatable :: ext_index(:) + integer(psb_ipk_), allocatable :: ovrlap_index(:) + integer(psb_ipk_), allocatable :: ovrlap_elem(:,:) + integer(psb_ipk_), allocatable :: ovr_mst_idx(:) + integer(psb_ipk_), allocatable :: bnd_elem(:) class(psb_indx_map), allocatable :: indxmap - integer(psb_ipk_), allocatable :: lprm(:) + integer(psb_ipk_), allocatable :: lprm(:) type(psb_desc_type), pointer :: base_desc => null() - integer(psb_ipk_), allocatable :: idx_space(:) + integer(psb_ipk_), allocatable :: idx_space(:) contains procedure, pass(desc) :: is_ok => psb_is_ok_desc procedure, pass(desc) :: is_valid => psb_is_valid_desc diff --git a/base/modules/psb_linmap_mod.f90 b/base/modules/psb_linmap_mod.f90 index 5bb14538..028907b4 100644 --- a/base/modules/psb_linmap_mod.f90 +++ b/base/modules/psb_linmap_mod.f90 @@ -38,8 +38,6 @@ module psb_linmap_mod use psb_const_mod -!!$ use psb_descriptor_type -!!$ use psb_linmap_type_mod use psb_s_linmap_mod use psb_d_linmap_mod use psb_c_linmap_mod