From d6f5f5acd3d93bbfff2773501a0944c1671b8690 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 7 Dec 2012 15:55:36 +0000
Subject: [PATCH] Silly bug in implementation of psb_sum with --enable-integers

---
 base/modules/psi_reduce_mod.F90 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/base/modules/psi_reduce_mod.F90 b/base/modules/psi_reduce_mod.F90
index 4e50e65e..9731d7ff 100644
--- a/base/modules/psi_reduce_mod.F90
+++ b/base/modules/psi_reduce_mod.F90
@@ -3517,10 +3517,10 @@ contains
       root_ = -1
     endif
     if (root_ == -1) then 
-      call mpi_allreduce(dat,dat_,1,psb_mpi_lng_integer,mpi_sum,ictxt,info)
+      call mpi_allreduce(dat,dat_,1,psb_mpi_def_integer,mpi_sum,ictxt,info)
       dat = dat_
     else
-      call mpi_reduce(dat,dat_,1,psb_mpi_lng_integer,mpi_sum,root_,ictxt,info)
+      call mpi_reduce(dat,dat_,1,psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
       dat = dat_
     endif
 
@@ -3557,15 +3557,15 @@ contains
       call psb_realloc(size(dat),dat_,info)
       dat_=dat
       if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),&
-           & psb_mpi_lng_integer,mpi_sum,ictxt,info)
+           & psb_mpi_def_integer,mpi_sum,ictxt,info)
     else
       if (iam == root_) then 
         call psb_realloc(size(dat),dat_,info)
         dat_=dat
-        call mpi_reduce(dat_,dat,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info)
+        call mpi_reduce(dat_,dat,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
       else
         call psb_realloc(1,dat_,info)
-        call mpi_reduce(dat,dat_,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info)
+        call mpi_reduce(dat,dat_,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
       end if
     endif
 #endif    
@@ -3601,15 +3601,15 @@ contains
       call psb_realloc(size(dat,1),size(dat,2),dat_,info)
       dat_=dat
       if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),&
-           & psb_mpi_lng_integer,mpi_sum,ictxt,info)
+           & psb_mpi_def_integer,mpi_sum,ictxt,info)
     else
       if (iam == root_) then 
         call psb_realloc(size(dat,1),size(dat,2),dat_,info)
         dat_=dat
-        call mpi_reduce(dat_,dat,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info)
+        call mpi_reduce(dat_,dat,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
       else
         call psb_realloc(1,1,dat_,info)
-        call mpi_reduce(dat,dat_,size(dat),psb_mpi_lng_integer,mpi_sum,root_,ictxt,info)
+        call mpi_reduce(dat,dat_,size(dat),psb_mpi_def_integer,mpi_sum,root_,ictxt,info)
       end if
     endif
 #endif