From eb26a4958cdf79d362dd0b34f5b949f3c86dc113 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 13 Dec 2011 16:37:31 +0000
Subject: [PATCH] psblas3  base/tools/psb_csphalo.F90 
 base/tools/psb_dsphalo.F90  base/tools/psb_ssphalo.F90 
 base/tools/psb_zsphalo.F90

Silly double allocation bug.
---
 base/tools/psb_csphalo.F90 | 9 ---------
 base/tools/psb_dsphalo.F90 | 9 ---------
 base/tools/psb_ssphalo.F90 | 9 ---------
 base/tools/psb_zsphalo.F90 | 9 ---------
 4 files changed, 36 deletions(-)

diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90
index 7471cc64..086b572e 100644
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@@ -163,15 +163,6 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-
-  allocate(acoo,stat=info)    
-  if (info /= psb_success_) then 
-    info = psb_err_alloc_dealloc_
-    call psb_errpush(info,name)
-    goto 9999
-  end if
-
-
   l1  = 0
 
   sdsz(:)=0
diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index 568e4655..e397f4b3 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -163,15 +163,6 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-
-  allocate(acoo,stat=info)    
-  if (info /= psb_success_) then 
-    info = psb_err_alloc_dealloc_
-    call psb_errpush(info,name)
-    goto 9999
-  end if
-
-
   l1  = 0
 
   sdsz(:)=0
diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90
index ecaba85d..e15e7704 100644
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@@ -163,15 +163,6 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-
-  allocate(acoo,stat=info)    
-  if (info /= psb_success_) then 
-    info = psb_err_alloc_dealloc_
-    call psb_errpush(info,name)
-    goto 9999
-  end if
-
-
   l1  = 0
 
   sdsz(:)=0
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index 38274115..709d2354 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -163,15 +163,6 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
     goto 9999
   end select
 
-
-  allocate(acoo,stat=info)    
-  if (info /= psb_success_) then 
-    info = psb_err_alloc_dealloc_
-    call psb_errpush(info,name)
-    goto 9999
-  end if
-
-
   l1  = 0
 
   sdsz(:)=0