From 429ba7fdeef864b1b583bc9aa5587f002ddd68f1 Mon Sep 17 00:00:00 2001
From: Tjerk Straatsma <straatsmatp@ornl.gov>
Date: Tue, 28 Mar 2000 23:15:59 +0000
Subject: [PATCH] Time per step in property array

---
 src/nwmd/prp_init.F | 6 ++++--
 src/nwmd/prp_main.F | 3 ++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/nwmd/prp_init.F b/src/nwmd/prp_init.F
index 8af8a53f5f..c297889c24 100644
--- a/src/nwmd/prp_init.F
+++ b/src/nwmd/prp_init.F
@@ -4,7 +4,7 @@
      + nwmtot,msfi,nsfi,mpei,mdacq,mrn,ipset,isetp1,isetp2,tstp,
      + msmi)
 c
-c $Id: prp_init.F,v 1.19 2000-02-18 04:52:19 d3j191 Exp $
+c $Id: prp_init.F,v 1.20 2000-03-28 23:15:59 d3j191 Exp $
 c
       implicit none
 c
@@ -201,8 +201,10 @@ c
       lp(97)=ntype.ge.1
       pronam( 98)='Efficiency load balancing                         '
       lp(98)=ntype.ge.1
+      pronam( 99)='Time per step                                    s'
+      lp(99)=ntype.ge.1
 c
-      isprop=98
+      isprop=99
       if(nsf.gt.0) then
       it=0
       do 3 i=1,nsf
diff --git a/src/nwmd/prp_main.F b/src/nwmd/prp_main.F
index 4d20a8c056..40fab14115 100644
--- a/src/nwmd/prp_main.F
+++ b/src/nwmd/prp_main.F
@@ -1,6 +1,6 @@
       subroutine prp_step(mdstep,stime,eww,esw,ess,esk,epme,uqmd,uqmmm)
 c
-c $Id: prp_main.F,v 1.30 2000-02-18 04:52:19 d3j191 Exp $
+c $Id: prp_main.F,v 1.31 2000-03-28 23:15:59 d3j191 Exp $
 c
       implicit none
 c
@@ -171,6 +171,7 @@ c
       p(76)=epme(iset)
       p(97)=timer_wall(2)
       p(98)=timer_wall(3)
+      if(me.eq.0) p(99)=timer_wall(3)
 c
       maxp=isprop
       if(nsf.gt.0) then