--- trunk/OOPSE/libmdtools/timing.F90	2003/12/19 20:36:35	891
+++ trunk/OOPSE/libmdtools/timing.F90	2003/12/22 21:27:04	892
@@ -1,24 +1,22 @@
 subroutine getTimes(forceTime,commTime)
       use do_Forces
+      use definitions, ONLY: dp
 #ifdef IS_MPI
       use mpiSimulation
 #endif
       implicit none
 
-      real :: forceTime
-      real :: commTime
+      real(kind=dp) :: forceTime
+      real(kind=dp) :: commTime
+      
+      forceTime = 0.0
+      commTime  = 0.0
 #ifdef PROFILE
       forceTime = getForceTime()
 
 #ifdef IS_MPI
       commTime  = getCommTime()
-#else
-      commTime = 0.0
 #endif
-
-#else
-      forceTime = 0.0
-      commTime = 0.0
 #endif
 
 end subroutine getTimes