1      subroutine argos_prop_step(mdstep,stime,eww,esw,ess,fss,esk,
2     + epme)
3c
4c $Id$
5c
6      implicit none
7c
8#include "argos_prop.fh"
9#include "msgids.fh"
10#include "mafdecls.fh"
11#include "global.fh"
12c
13      logical frequency
14      external frequency
15c
16      integer mdstep
17      real*8 eww(mpe,2),esw(msf,mpe,2),ess(msf,msf,mpe,2),epme(3)
18      real*8 fss(msf,msf,3,2)
19      real*8 stime,esk(msf)
20c
21      if(me.eq.0) call argos_prop_stat(mdstep,stime,eww,esw,
22     + ess,esk,epme(iset))
23c
24      if(frequency(mdstep,npener)) then
25      call argos_cafe_print_energy(lfnout)
26      endif
27c
28      if(frequency(mdstep,nfprop)) call argos_prop_record()
29c
30      return
31      end
32