STRUCTURE /TCM_LINK_DATA/
         INTEGER  number
         INTEGER  fromnode
         INTEGER  tonode
         INTEGER  vol
         INTEGER  occ
         INTEGER  speed
         INTEGER  inc_code
         END STRUCTURE
      
      STRUCTURE /TCM_TIME_DATA/
         INTEGER  seconds_since_midnight
         END STRUCTURE

      STRUCTURE /TCM_QUERY_DATA/
         RECORD /TCM_TIME_DATA/ sim_time
         INTEGER                nlinks
         RECORD /TCM_LINK_DATA/ link(NU_LI)
         END STRUCTURE
      
      RECORD /TCM_QUERY_DATA/ tcm_query

      REAL   volroll(NU_LI,5),occroll(NU_LI,5),speedroll(NU_LI,5)
      INTEGER ptr(NU_LI)
      COMMON /TCM_QUERY_COMMON/ tcm_query,volroll,occroll,speedroll,ptr