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