From 791e7ba572cc0160e26f485971602094cbd9385a Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 2 Jan 2011 20:22:33 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_desc_type.f90 | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/base/modules/psb_desc_type.f90 b/base/modules/psb_desc_type.f90 index 647354cb..1a4fa267 100644 --- a/base/modules/psb_desc_type.f90 +++ b/base/modules/psb_desc_type.f90 @@ -50,7 +50,6 @@ module psb_descriptor_type ! !| type psb_desc_type !| class(psb_indx_map), allocatable :: indxmap - !| integer, allocatable :: matrix_data(:) !| integer, allocatable :: halo_index(:), ext_index(:) !| integer, allocatable :: bnd_elem(:) !| integer, allocatable :: ovrlap_index(:) @@ -200,7 +199,6 @@ module psb_descriptor_type type psb_desc_type -!!$ integer, allocatable :: matrix_data(:) integer, allocatable :: halo_index(:) integer, allocatable :: ext_index(:) integer, allocatable :: ovrlap_index(:) @@ -264,7 +262,6 @@ contains integer(psb_long_int_k_) :: val val = 0 -!!$ if (allocated(desc%matrix_data)) val = val + psb_sizeof_int*size(desc%matrix_data) if (allocated(desc%halo_index)) val = val + psb_sizeof_int*size(desc%halo_index) if (allocated(desc%ext_index)) val = val + psb_sizeof_int*size(desc%ext_index) if (allocated(desc%bnd_elem)) val = val + psb_sizeof_int*size(desc%bnd_elem) @@ -612,12 +609,6 @@ contains name = 'psb_cdfree' -!!$ if (.not.allocated(desc_a%matrix_data)) then -!!$ info=psb_err_forgot_spall_ -!!$ call psb_errpush(info,name) -!!$ return -!!$ end if - ictxt=psb_cd_get_context(desc_a) call psb_info(ictxt, me, np) @@ -710,8 +701,6 @@ contains end if end if -!!$ deallocate(desc_a%matrix_data) - call psb_nullify_desc(desc_a) call psb_erractionrestore(err_act) @@ -770,7 +759,6 @@ contains ! function might be called even when desc_in is ! empty. -!!$ call psb_move_alloc( desc_in%matrix_data , desc_out%matrix_data , info) if (info == psb_success_) & & call psb_move_alloc( desc_in%halo_index , desc_out%halo_index , info) if (info == psb_success_) &