INTEGER FUNCTION DYNA_EI_COMMAND(
     +     pass_command,param,qparam,io,sim,net,act,veh,retval)

      
C   - INCLUDED FILES:
#include "dyna.inc"
#include "io.inc"
#include "sim.inc"
#include "network.inc"
#include "activity.inc"
#include "vehicle.inc"

      
#include "DYNAcomm.inc"
#include "par.inc"
#include "queries.inc"

      
C   - UNMODIFIED ARGUMENTS:
      INTEGER pass_command      ! command to be processed
      RECORD /COMMAND_PARAM/ param ! command parameters
      RECORD /QUERY_PARAM/   qparam

C   - MODIFIED ARGUMENTS:  
      
      RECORD /Io_Data/      io
      RECORD /Sim_Data/     sim
      RECORD /Road_Network/ net
      RECORD /Activity/     act
      RECORD /Vehicle_Data/ veh(NU_VE)
      INTEGER retval

C   - LOCAL VARIABLES:
C   . SUN FORTRAN assumes all variables are static, this may not be the
C   . case on other platforms.  As such, a local COMMON block might be
C   . necessary to store this data
      INTEGER command           ! local storage for command
      
      INTEGER ires              ! stores simulation result
      INTEGER qtype             ! query type flag (for report_link)


C   - RETURN VALUE:
                                ! 0 if the command was not processed
                                ! 1 if the command was processed

C ----------------------------------------------------------------------
c 

      DYNA_EI_COMMAND = 0
      command = pass_command
      
      RETURN
      END