INTEGER*2 CTL_NONE,CTL_YIELD,CTL_STOP,CTL_PRETIMED,CTL_ACTUATED
      INTEGER*2 CTL_EXTERNAL

      PARAMETER (CTL_NONE     = 1)
      PARAMETER (CTL_YIELD    = 2)
      PARAMETER (CTL_STOP     = 3)
      PARAMETER (CTL_PRETIMED = 4)
      PARAMETER (CTL_ACTUATED = 5)
      PARAMETER (CTL_EXTERNAL = 6)
      

      
      STRUCTURE /Phase_Data/
         INTEGER*2 number
         INTEGER*2 offset
         INTEGER*2 time   ! Pretimed
         INTEGER*2 min    ! Actuated
         INTEGER*2 max    ! Actuated
         INTEGER*2 change
         INTEGER*2 numapp
         INTEGER*2 nummove(MAX_IN)     !num of moves, each approach
         INTEGER   movelist(MAX_IN,MAX_MOVE_TYPE)  !Pointers to movements
         INTEGER*2 active
         INTEGER   start
         INTEGER   end
         REAL      movevol(MAX_IN,MAX_MOVE_TYPE) ! volume
         END STRUCTURE
      
      STRUCTURE /Plan_Data/
         INTEGER*2 number
         INTEGER*2 type   !(none,yield,pretime,etc)
         INTEGER*2 offset
         INTEGER*2 numphases
         INTEGER   phaselist(MAX_PLAN_PHASE)  !Pointers to phases
         INTEGER*2 cycle
         INTEGER*2 active
         END STRUCTURE