--- trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/10/28 20:09:45	834
+++ trunk/OOPSE/libmdtools/mpiSimulation_module.F90	2003/11/07 21:46:56	858
@@ -7,12 +7,12 @@
 !!
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: mpiSimulation_module.F90,v 1.8 2003-10-28 20:09:38 gezelter Exp $, $Date: 2003-10-28 20:09:38 $, $Name: not supported by cvs2svn $, $Revision: 1.8 $
+!! @version $Id: mpiSimulation_module.F90,v 1.9 2003-11-07 21:46:56 chuckv Exp $, $Date: 2003-11-07 21:46:56 $, $Name: not supported by cvs2svn $, $Revision: 1.9 $
 
 module mpiSimulation  
   use definitions
 #ifdef IS_MPI
-  use mpi
+  use oopseMPI
   implicit none
   PRIVATE
 
@@ -32,7 +32,7 @@ module mpiSimulation  
 !! PUBLIC  Subroutines contained in MPI module
   public :: mpi_bcast
   public :: mpi_allreduce
-  public :: mpi_reduce
+!  public :: mpi_reduce
   public :: mpi_send
   public :: mpi_recv
   public :: mpi_get_processor_name
@@ -471,9 +471,9 @@ contains
 
   subroutine gather_integer( sbuffer, rbuffer, this_plan, status)
 
-    type (gs_plan), intent(in) :: this_plan
-    integer, dimension(:), intent(in) :: sbuffer
-    integer, dimension(:), intent(in) :: rbuffer
+    type (gs_plan), intent(inout) :: this_plan
+    integer, dimension(:), intent(inout) :: sbuffer
+    integer, dimension(:), intent(inout) :: rbuffer
     integer :: noffset
     integer, intent(out), optional :: status
     integer :: i
@@ -503,8 +503,8 @@ contains
   subroutine gather_double( sbuffer, rbuffer, this_plan, status)
 
     type (gs_plan), intent(in) :: this_plan
-    real( kind = DP ), dimension(:), intent(in) :: sbuffer
-    real( kind = DP ), dimension(:), intent(in) :: rbuffer
+    real( kind = DP ), dimension(:), intent(inout) :: sbuffer
+    real( kind = DP ), dimension(:), intent(inout) :: rbuffer
     integer :: noffset
     integer, intent(out), optional :: status
 
@@ -531,8 +531,8 @@ contains
   subroutine gather_double_2d( sbuffer, rbuffer, this_plan, status)
 
     type (gs_plan), intent(in) :: this_plan
-    real( kind = DP ), dimension(:,:), intent(in) :: sbuffer
-    real( kind = DP ), dimension(:,:), intent(in) :: rbuffer
+    real( kind = DP ), dimension(:,:), intent(inout) :: sbuffer
+    real( kind = DP ), dimension(:,:), intent(inout) :: rbuffer
     integer :: noffset,i,ierror
     integer, intent(out), optional :: status
     
@@ -563,8 +563,8 @@ contains
   subroutine scatter_double( sbuffer, rbuffer, this_plan, status)
 
     type (gs_plan), intent(in) :: this_plan
-    real( kind = DP ), dimension(:), intent(in) :: sbuffer
-    real( kind = DP ), dimension(:), intent(in) :: rbuffer
+    real( kind = DP ), dimension(:), intent(inout) :: sbuffer
+    real( kind = DP ), dimension(:), intent(inout) :: rbuffer
     integer, intent(out), optional :: status
     external mpi_reduce_scatter
 
@@ -589,8 +589,8 @@ contains
   subroutine scatter_double_2d( sbuffer, rbuffer, this_plan, status)
 
     type (gs_plan), intent(in) :: this_plan
-    real( kind = DP ), dimension(:,:), intent(in) :: sbuffer
-    real( kind = DP ), dimension(:,:), intent(in) :: rbuffer
+    real( kind = DP ), dimension(:,:), intent(inout) :: sbuffer
+    real( kind = DP ), dimension(:,:), intent(inout) :: rbuffer
     integer, intent(out), optional :: status
     external mpi_reduce_scatter