From 79b88600b0afe272d97f771ac01f3572d029a0ad Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 6 Oct 2011 13:38:40 +0000
Subject: [PATCH] *** empty log message ***

---
 base/modules/psi_reduce_mod.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/modules/psi_reduce_mod.F90 b/base/modules/psi_reduce_mod.F90
index 45d285fe..cca9b4e4 100644
--- a/base/modules/psi_reduce_mod.F90
+++ b/base/modules/psi_reduce_mod.F90
@@ -2569,7 +2569,7 @@ contains
     integer, intent(inout)  :: dat
     integer, intent(in), optional    :: root
     integer :: root_
-    integer(psb_long_int_k_) :: dat_
+    integer :: dat_
     integer :: iam, np, info
 
 #if !defined(SERIAL_MPI)