From 33f439b0f83cfba82c85f522ad6118e5708cdc93 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 31 Jan 2008 16:20:32 +0000
Subject: [PATCH] psblas: internals/psi_fnd_onwer.f90

Changed fnd_owner to return an allocated vector of size 0 if NV=0.
---
 base/internals/psi_fnd_owner.f90 | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/base/internals/psi_fnd_owner.f90 b/base/internals/psi_fnd_owner.f90
index 71afb113..e221d0eb 100644
--- a/base/internals/psi_fnd_owner.f90
+++ b/base/internals/psi_fnd_owner.f90
@@ -145,13 +145,11 @@ subroutine psi_fnd_owner(nv,idx,iprc,desc,info)
 
   ! Fifth, we extract the answers for our local query, and shift back the 
   ! process indices to 0-based.
-  if (nv > 0) then 
-    call psb_realloc(nv,iprc,info)
-    ih = hidx(me+1)
-    do i=1, hsz(me+1) 
-      iprc(i) = hproc(ih+i-1) - 1 
-    end do 
-  end if
+  call psb_realloc(nv,iprc,info)
+  ih = hidx(me+1)
+  do i=1, hsz(me+1) 
+    iprc(i) = hproc(ih+i-1) - 1 
+  end do
   call psb_erractionrestore(err_act)
   return