[ViewVC] Diff of: group/trunk/OOPSE-4/src/UseTheForce/DarkSide/neighborLists.F90

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/neighborLists.F90 (file contents):
Revision 2757 by chrisfen, Thu Jan 12 04:13:46 2006 UTC vs.
Revision 2758 by gezelter, Wed May 17 19:54:27 2006 UTC

#	Line 48 \| Line 48
48		!! @author Charles F. Vardeman II
49		!! @author Matthew Meineke
50		!! @author J. Daniel Gezelter
51	<	!! @version $Id: neighborLists.F90,v 1.4 2006-01-12 04:13:46 chrisfen Exp $,
51	>	!! @version $Id: neighborLists.F90,v 1.5 2006-05-17 19:54:26 gezelter Exp $,
52
53		module neighborLists
54
#	Line 225 \| Line 225 \| contains
225		dispmx_tmp = max( abs ( q(2,i) - q0(2,i) ), dispmx_tmp )
226		dispmx_tmp = max( abs ( q(3,i) - q0(3,i) ), dispmx_tmp )
227		end do
228	+	#ifdef SINGLE_PRECISION
229	+	call mpi_allreduce(dispmx_tmp,dispmx,1,mpi_real, &
230	+	mpi_max,mpi_comm_world,mpi_err)
231	+	#else
232		call mpi_allreduce(dispmx_tmp,dispmx,1,mpi_double_precision, &
233		mpi_max,mpi_comm_world,mpi_err)
234	+	#endif
235
236		#else
237

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines