--- trunk/OOPSE/libmdtools/do_Forces.F90	2003/12/19 17:25:00	887
+++ trunk/OOPSE/libmdtools/do_Forces.F90	2003/12/19 20:36:35	891
@@ -4,7 +4,7 @@
 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: do_Forces.F90,v 1.39 2003-12-19 17:25:00 mmeineke Exp $, $Date: 2003-12-19 17:25:00 $, $Name: not supported by cvs2svn $, $Revision: 1.39 $
+!! @version $Id: do_Forces.F90,v 1.40 2003-12-19 20:36:35 mmeineke Exp $, $Date: 2003-12-19 20:36:35 $, $Name: not supported by cvs2svn $, $Revision: 1.40 $
 
 module do_Forces
   use force_globals
@@ -49,6 +49,7 @@ module do_Forces
   public :: getforcetime
   real, save :: forceTime = 0
   real :: forceTimeInitial, forceTimeFinal
+  integer :: nLoops
 #endif
 
 contains
@@ -1089,7 +1090,7 @@ contains
   end function FF_RequiresPostpairCalc
   
 #ifdef PROFILE
-  function getforcetime() return(totalforcetime)
+  function getforcetime() result(totalforcetime)
     real(kind=dp) :: totalforcetime
     totalforcetime = forcetime
   end function getforcetime