psblas3-type-indexed:

base/modules/psb_d_base_vect_mod.f90 base/tools/psb_icdasb.F90 Modified clocv to use set_host. Modified allocation in icdasb.
12 years ago · 7848b5d2d3
parent 0bbe5dae22
commit 7848b5d2d3
2 changed files with 2 additions and 0 deletions
--- a/base/modules/psb_d_base_vect_mod.f90
+++ b/base/modules/psb_d_base_vect_mod.f90
@ -823,6 +823,7 @@ contains

    class(psb_d_base_vect_type), target :: x
    type(c_ptr)                         :: res
+
    if (allocated(x%v)) then 
      call aux_get_clocv(x%v,res)
 !!$      res = c_loc(x%v)
--- a/base/tools/psb_icdasb.F90
+++ b/base/tools/psb_icdasb.F90
@ -186,6 +186,7 @@ subroutine psb_icdasb(desc,info,ext_hv)
    bfsz = max(bfsz,nesd,nerv)
    pnti   = pnti + nerv + nesd + 3      
  end do
+  bfsz = max(1,bfsz)
  allocate(blens(bfsz),new_idx(bfsz),stat=info)
  if(info /= psb_success_) then
    call psb_errpush(psb_err_alloc_dealloc_,name)