*** empty log message ***

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_)  &