INTEGER BY_NUMBER,BY_NODES,BY_LINK,BY_ID
      PARAMETER(BY_NUMBER = 2001)
      PARAMETER(BY_NODES  = 2002)
      PARAMETER(BY_LINK   = 2003)
      PARAMETER(BY_ID     = 2004)


      STRUCTURE /RUN_PARAM/
         INTEGER steps
         END STRUCTURE

      STRUCTURE /LINK_BY_NODES/
         INTEGER from
         INTEGER to
         END STRUCTURE

      STRUCTURE /LINK_INFO/
         INTEGER number
         RECORD /LINK_BY_NODES/ by_nodes
         END STRUCTURE

      STRUCTURE /LINK_PARAM/
         INTEGER            how_coded
         RECORD /LINK_INFO/ id
         CHARACTER          descrip*80

         END STRUCTURE
      
      STRUCTURE /NODE_INFO/
         INTEGER number
         END STRUCTURE

      STRUCTURE /NODE_PARAM/
         INTEGER            how_coded
         RECORD /NODE_INFO/ id
         CHARACTER          descrip*80
         END STRUCTURE

      STRUCTURE /ZONE_INFO/
         INTEGER number
         END STRUCTURE

      STRUCTURE /ZONE_PARAM/
         INTEGER            how_coded
         RECORD /ZONE_INFO/ id
         CHARACTER          descrip*80
         END STRUCTURE
      
      STRUCTURE /VEHICLE_INFO/
         INTEGER number
         END STRUCTURE

      STRUCTURE /VEHICLE_PARAM/
         INTEGER               how_coded
         RECORD /VEHICLE_INFO/ id
         RECORD /LINK_PARAM/   link     ! /* if specifying link */
         INTEGER               on_what  ! /* ON_ALL,ON_LINK,ON_ENDQ,ON_GENQ */
         CHARACTER             descrip*80
         END STRUCTURE

      STRUCTURE /CMS_INFO/
         INTEGER             number
         RECORD /LINK_PARAM/ link
         END STRUCTURE

      STRUCTURE /CMS_PARAM/
         INTEGER           how_coded
         RECORD /CMS_INFO/ id
         INTEGER           msg
         CHARACTER         descrip*80
         END STRUCTURE
      
      STRUCTURE /PATH_INFO/
         RECORD /LINK_PARAM/ fromlink
         RECORD /ZONE_PARAM/ tozone
         END STRUCTURE

      STRUCTURE /PATH_PARAM/
         INTEGER            how_coded
         RECORD /PATH_INFO/ id
         CHARACTER          descrip*80
         END STRUCTURE

      STRUCTURE /EXTERNAL_PARAM/
         CHARACTER hostname*80
         INTEGER   port
         CHARACTER descrip*80
         END STRUCTURE
      
      STRUCTURE /Approach_Input/
         INTEGER upnode
         INTEGER movecode(5)   !should be max_move_type
         END STRUCTURE

      STRUCTURE /Phase_Input/
         INTEGER number
         INTEGER offset
         INTEGER duration
         INTEGER min
         INTEGER max
         INTEGER numapp   !number of approaches
         RECORD /Approach_Input/ approach(6)  ! should be max approaches
         END STRUCTURE
      
      INTEGER MAX_PLAN_PHASES
      PARAMETER (MAX_PLAN_PHASES = 10)

      STRUCTURE /SIGNAL_PARAM/
         INTEGER number
         INTEGER usernode
         INTEGER type
         INTEGER num_phases
         INTEGER cycle
         RECORD /Phase_Input/ phase(MAX_PLAN_PHASES)
         CHARACTER          descrip*80
         END STRUCTURE

      STRUCTURE /INCIDENT_INFO/
         INTEGER number
         END STRUCTURE
      
      STRUCTURE /MOVE_PARAM/
         INTEGER             number
         RECORD /LINK_PARAM/ fromlink
         RECORD /LINK_PARAM/ tolink
         END STRUCTURE
      
      STRUCTURE /INCIDENT_EFFECT/
         RECORD /LINK_PARAM/ link
         RECORD /MOVE_PARAM/ move
         REAL    capacity_reduction
         END STRUCTURE

      STRUCTURE /INCIDENT_PARAM/
         RECORD /INCIDENT_INFO/   id
         REAL                     starttime
         REAL                     endtime
         INTEGER                  numeffects
         RECORD /INCIDENT_EFFECT/ effect(MAX_INCIDENT_EFFECTS)
         CHARACTER                descrip*80
         END STRUCTURE
      
      STRUCTURE /INC_DET_PARAM/
         REAL                det_level
         CHARACTER           descrip*80
         END STRUCTURE

      STRUCTURE /OPTION_ASSIGNMENT_PARAM/
         CHARACTER           option_string*80
         INTEGER             option_id
         INTEGER             ivalue
         REAL*8              dvalue
         CHARACTER           svalue*80
         END STRUCTURE
      
      STRUCTURE /COMMAND_PARAM/
         UNION
            MAP
               RECORD /RUN_PARAM/      run
               END MAP
            MAP
               RECORD /LINK_PARAM/     link
               END MAP
            MAP
               RECORD /NODE_PARAM/     node
               END MAP
            MAP
               RECORD /ZONE_PARAM/     zone
               END MAP
            MAP
               RECORD /VEHICLE_PARAM/  vehicle
               END MAP
            MAP
               RECORD /CMS_PARAM/      cms
               END MAP
            MAP
               RECORD /PATH_PARAM/     path
               END MAP
            MAP
               RECORD /EXTERNAL_PARAM/ external
               END MAP
            MAP 
               RECORD /SIGNAL_PARAM/   signal
               END MAP
            MAP 
               RECORD /INCIDENT_PARAM/ incident
               END MAP
            MAP
               RECORD /INC_DET_PARAM/  idet_par
               END MAP
            MAP
               RECORD /OPTION_ASSIGNMENT_PARAM/ oap
               END MAP
               
            END UNION
         END STRUCTURE

      STRUCTURE /TIME_PARAM/
         REAL               minutes
         REAL               offset_from_midnight
         END STRUCTURE
      
      STRUCTURE /DYNA_STATUS_STRUCT/
         CHARACTER           netfile*80
         RECORD /TIME_PARAM/ time
         INTEGER             nnodes
         INTEGER             nlinks
         INTEGER             nzones
         INTEGER             ndests
         INTEGER             veh_gen
         INTEGER             tag_in
         INTEGER             tag_out
         END STRUCTURE
         

      
      STRUCTURE /QUERY_PARAM/
         UNION
            MAP
               RECORD /DYNA_STATUS_STRUCT/ status
               END MAP
            END UNION
         END STRUCTURE