Define DESC%check_addr for debugging

base/modules/desc/psb_desc_mod.F90

@@ -245,6 +245,7 @@ module psb_desc_mod
     procedure, pass(desc) :: free            => psb_cdfree
     procedure, pass(desc) :: destroy         => psb_cd_destroy
     procedure, pass(desc) :: nullify         => nullify_desc
+    procedure, pass(desc) :: check_addr      => psb_cd_check_addr
 
     procedure, pass(desc) :: get_fmt         => cd_get_fmt
     procedure, pass(desc) :: fnd_owner       => cd_fnd_owner
@@ -1162,6 +1163,60 @@ contains
 
   end subroutine psb_cd_clone
 
+  subroutine psb_cd_check_addr(desc, info)
+
+    use psb_error_mod
+    use psb_penv_mod
+    use psb_realloc_mod
+    implicit none
+    !....parameters...
+
+    class(psb_desc_type), intent(inout), target :: desc
+    integer(psb_ipk_), intent(out)              :: info
+    !locals
+    type(psb_ctxt_type) :: ctxt
+    integer(psb_ipk_)   :: np, me, err_act
+    integer(psb_ipk_)   :: debug_level, debug_unit
+    character(len=20)   :: name
+
+    debug_unit  = psb_get_debug_unit()
+    debug_level = psb_get_debug_level()
+
+    if (psb_get_errstatus() /= 0) return 
+    info = psb_success_
+    call psb_erractionsave(err_act)
+    name = 'psb_cdcpy'
+
+    if (desc%is_asb()) then
+      write(0,*) 'DESC%CHECK_ADDR:  v_halo, v_ext_idx, v_ovrlap_idx,v_ovr_mst'
+      if (info == psb_success_) &
+           & call desc%v_halo_index%check_addr()
+      if (info == psb_success_) &
+           & call desc%v_ext_index%check_addr()
+      if (info == psb_success_) &
+           & call desc%v_ovrlap_index%check_addr()
+      if (info == psb_success_) &
+           & call desc%v_ovr_mst_idx%check_addr()
+      write(0,*) 'DESC%CHECK_ADDR:  done'
+    end if
+    
+    if (info /= psb_success_) then
+      info = psb_err_from_subroutine_
+      call psb_errpush(info,name)
+      goto 9999
+    endif
+    if (debug_level >= psb_debug_ext_) &
+         & write(debug_unit,*) me,' ',trim(name),': Done'
+
+    call psb_erractionrestore(err_act)
+    return
+
+9999 call psb_error_handler(ctxt,err_act)
+
+    return
+
+  end subroutine psb_cd_check_addr
+
   
   Subroutine psb_cd_get_recv_idx(tmp,desc,data,info)
     use psb_error_mod

base/modules/serial/psb_i_base_vect_mod.F90

@@ -168,8 +168,7 @@ module psb_i_base_vect_mod
     procedure, pass(y) :: sctb_buf => i_base_sctb_buf
     generic, public    :: sct      => sctb, sctb_x, sctb_buf
 
-
-
+    procedure, pass(x) :: check_addr  => i_base_check_addr
 
 
   end type psb_i_base_vect_type
@@ -1178,6 +1177,13 @@ contains
   end subroutine i_base_set_vect
 
 
+  subroutine i_base_check_addr(x)
+    class(psb_i_base_vect_type), intent(inout) :: x
+
+    write(0,*) 'Check addr: base version, do nothing'
+
+  end subroutine i_base_check_addr
+
 
   !
   ! Gather: Y = beta * Y + alpha * X(IDX(:))

base/modules/serial/psb_i_vect_mod.F90

@@ -105,6 +105,7 @@ module psb_i_vect_mod
     procedure, pass(x) :: set_dev  => i_vect_set_dev
     procedure, pass(x) :: set_sync => i_vect_set_sync
 
+    procedure, pass(x) :: check_addr => i_vect_check_addr
 
 
   end type psb_i_vect_type
@@ -474,6 +475,13 @@ contains
 
   end subroutine i_vect_set_vect
 
+  subroutine i_vect_check_addr(x)
+    class(psb_i_vect_type), intent(inout) :: x
+
+    integer(psb_ipk_) :: info
+    if (allocated(x%v)) call x%v%check_addr()
+
+  end subroutine i_vect_check_addr
 
   function constructor(x) result(this)
     integer(psb_ipk_)   :: x(:)