#define IN_NETWORK   0
#define IN_ENDQ      1
#define IN_GENQ      2
      
      STRUCTURE /Vehicle_Data/
         
         INTEGER index     ! index in vehicle storage array (redundant)
         INTEGER number    ! vehicle number (probably different from
                           !   index)
         
         INTEGER prevveh   ! previous in list
         INTEGER nextveh   ! next in list
         
         
         INTEGER*2 decision  ! # of routing decisions vehicle has made
         
         REAL      stime     ! vehicles start time from origin
         REAL      atime     ! vehicles arrival time at destination
         INTEGER*2 curlink   ! vehicles current link
         INTEGER*2 isec      ! vehicles current link  (redundant)
         INTEGER*2 zfrom_index ! index of vehicles origin zone
         
         REAL      xpar     ! vehicles distance from the downstream
                            !   node on its current link
         
         REAL      distans  ! distance vehicle has travelled
         INTEGER*2 qstatus  ! qstatus = 0 if vehicle is in network
                            ! qstatus = 1 if vehicle is in endq
                            ! qstatus = 2 if vehicle is in genq
         
         INTEGER   mvindex  ! the number of the movement a vehicles is
                            !   making (for link2link)
         
         REAL      tleft    ! amount of timestep remaining after a
                            !   vehicle reaches the end of its link
         REAL      tqwait   ! Amount of time vehicle has spent in its
                            ! current queue
         REAL      tqtot    ! Total time vehicle spent queued during trip
         REAL      ribf     ! vehicles indifference band (for routing)
         INTEGER*2 ifamiliar ! vehicles familiarity level with network
         
         REAL      ttilnow  ! time vehicle has spent travelling (redundant?)
         INTEGER*2 jdest    ! index (?) of vehicles destination
         INTEGER*2 jpath(NU_PA) ! enumeration of vehicles path
         INTEGER*2 icurrnt      ! index of vehicles location in its path
         INTEGER*2 netstat  ! =1 if on net, =2 if entryqueue
         INTEGER*2 jpflag   ! =2 for vehs finding sp at next node, 1 otherwise
         
CR jay3.inc
         INTEGER*2 info      ! flag = 1 if vehicle receives routing info
         INTEGER*2 itag      ! flag = 1 if vehicle is tagged for stats
         
         
CR switch.inc
         INTEGER*2 switch    ! path switch flag (?)
         
         REAL      tocross   ! time reqd for vehicle to reach end of
                             !   its link at its current speed (THIS
                             !   SHOULD BE A LOCAL VARIABLE IN PARTCO!)
         
         END STRUCTURE