From fccd1b6166d697b8aa3c94159ca1b7e283cb8328 Mon Sep 17 00:00:00 2001
From: sjplimp <sjplimp@f3b2605a-c512-4ea7-a41b-209d697bcdaa>
Date: Thu, 12 Feb 2009 21:03:20 +0000
Subject: [PATCH] git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@2584
 f3b2605a-c512-4ea7-a41b-209d697bcdaa

---
 lib/reax/reax_reac.F | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/lib/reax/reax_reac.F b/lib/reax/reax_reac.F
index cdac3e2546..0b28a94ed0 100644
--- a/lib/reax/reax_reac.F
+++ b/lib/reax/reax_reac.F
@@ -288,25 +288,25 @@ c      end if
 ********************************************************************** 
 ************************************************************************
  
-      subroutine timer(nunit)
+c      subroutine timer(nunit)
  
 ************************************************************************
-#include "cbka.blk"
-#include "cbkinit.blk"
-      real timear
-      real tarray(2)
-#ifdef _IBM
-      call dtime_(tarray,timear)
-#else
-      call dtime(tarray,timear)
-#endif
+c#include "cbka.blk"
+c#include "cbkinit.blk"
+c      real timear
+c      real tarray(2)
+c#ifdef _IBM
+c      call dtime_(tarray,timear)
+c#else
+c      call dtime(tarray,timear)
+c#endif
 
-      ustime=ustime+tarray(1)
-      systime=systime+tarray(2)
-      write (nunit,100)ustime,systime,ustime+systime
-      return
-  100 format ('User time:',f20.4,' System time:',f20.4,
-     $' Total time:',f20.4)
-      end
+c      ustime=ustime+tarray(1)
+c      systime=systime+tarray(2)
+c      write (nunit,100)ustime,systime,ustime+systime
+c      return
+c  100 format ('User time:',f20.4,' System time:',f20.4,
+c     $' Total time:',f20.4)
+c      end
 ************************************************************************
 ************************************************************************