1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. generic 
  6.  
  7.    No_Of_CPU_Cores : Positive; 
  8.  
  9. package Swarm_Control_Concurrent_Generic is 
  10.  
  11.    type Job_Type is (Set_Accelerations, Forward_Messages, Move_Elements, Update_Rotations, No_Job); 
  12.  
  13.    procedure Distribute_Jobs (Job : Job_Type); 
  14.  
  15. end Swarm_Control_Concurrent_Generic;