From 7848b5d2d3123261bf0a63b34becc0af9f7bcb39 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 4 Mar 2013 16:56:58 +0000 Subject: [PATCH] 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. --- base/modules/psb_d_base_vect_mod.f90 | 1 + base/tools/psb_icdasb.F90 | 1 + 2 files changed, 2 insertions(+) diff --git a/base/modules/psb_d_base_vect_mod.f90 b/base/modules/psb_d_base_vect_mod.f90 index d1150396..e8ab37c8 100644 --- 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) diff --git a/base/tools/psb_icdasb.F90 b/base/tools/psb_icdasb.F90 index 7501c30c..305be316 100644 --- 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)