From f059962c4c43f439bd3f0337d8a1394c86b61180 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 1 Feb 2012 15:11:22 +0000
Subject: [PATCH] psblas3-integer8:  base/tools/psb_csphalo.F90 
 base/tools/psb_dsphalo.F90  base/tools/psb_ssphalo.F90 
 base/tools/psb_zsphalo.F90

Advance in tools.
---
 base/tools/psb_csphalo.F90 | 4 ++--
 base/tools/psb_dsphalo.F90 | 4 ++--
 base/tools/psb_ssphalo.F90 | 4 ++--
 base/tools/psb_zsphalo.F90 | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/base/tools/psb_csphalo.F90 b/base/tools/psb_csphalo.F90
index fca9c3b1..8c1c8b43 100644
--- a/base/tools/psb_csphalo.F90
+++ b/base/tools/psb_csphalo.F90
@@ -169,7 +169,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   idx = 0
   idxs = 0
   idxr = 0
-  call acoo%allocate(0,a%get_ncols(),info)
+  call acoo%allocate(izero,a%get_ncols(),info)
   ! For all rows in the halo descriptor, extract and send/receive.
   Do 
     proc=idxv(counter)
@@ -298,7 +298,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   l1  = 0
-  call acoo%set_nrows(0)
+  call acoo%set_nrows(izero)
   !
   irmin = huge(irmin)
   icmin = huge(icmin)
diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index 26d28335..c2636280 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -169,7 +169,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   idx = 0
   idxs = 0
   idxr = 0
-  call acoo%allocate(0,a%get_ncols(),info)
+  call acoo%allocate(izero,a%get_ncols(),info)
   ! For all rows in the halo descriptor, extract and send/receive.
   Do 
     proc=idxv(counter)
@@ -298,7 +298,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   l1  = 0
-  call acoo%set_nrows(0)
+  call acoo%set_nrows(izero)
   !
   irmin = huge(irmin)
   icmin = huge(icmin)
diff --git a/base/tools/psb_ssphalo.F90 b/base/tools/psb_ssphalo.F90
index 4b0b0141..9368ce2a 100644
--- a/base/tools/psb_ssphalo.F90
+++ b/base/tools/psb_ssphalo.F90
@@ -169,7 +169,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   idx = 0
   idxs = 0
   idxr = 0
-  call acoo%allocate(0,a%get_ncols(),info)
+  call acoo%allocate(izero,a%get_ncols(),info)
   ! For all rows in the halo descriptor, extract and send/receive.
   Do 
     proc=idxv(counter)
@@ -298,7 +298,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   l1  = 0
-  call acoo%set_nrows(0)
+  call acoo%set_nrows(izero)
   !
   irmin = huge(irmin)
   icmin = huge(icmin)
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index 4d006b12..74bcbcb6 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -169,7 +169,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   idx = 0
   idxs = 0
   idxr = 0
-  call acoo%allocate(0,a%get_ncols(),info)
+  call acoo%allocate(izero,a%get_ncols(),info)
   ! For all rows in the halo descriptor, extract and send/receive.
   Do 
     proc=idxv(counter)
@@ -298,7 +298,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
   end if
 
   l1  = 0
-  call acoo%set_nrows(0)
+  call acoo%set_nrows(izero)
   !
   irmin = huge(irmin)
   icmin = huge(icmin)