SUBROUTINE JUN_POST_STEP_HOOKS(io,sim,net,act,veh)

#include "dyna.inc"
#include "io.inc"
#include "sim.inc"
#include "network.inc"
#include "activity.inc"
#include "vehicle.inc"
      
      RECORD /Io_Data/      io
      RECORD /Sim_Data/     sim
      RECORD /Road_Network/ net
      RECORD /Activity/     act
      RECORD /Vehicle_Data/ veh(NU_VE)

      
      INTEGER i
      
      IF (.NOT.io.use_file(100)) RETURN
      
      WRITE(100,*)   sim.time.minutes
      WRITE(100,600) (net.link(i).speed,i=1,net.nlinks)
  600 FORMAT(10(F10.5))
      
      RETURN
      END