[continued from previous message]   
      
   for i:=0 to 2   
   do   
     begin   
      pdq64.PDQ_CreateNode(router[i],pdq64.CEN,pdq64.FCFS);   
      pdq64.PDQ_SetDemand(router[i],work,serviceDemands[i]);   
     end;   
      
   pdq64.PDQ_Solve(pdq64.CANON);   
   pdq64.PDQ_Report();   
      
   setlength(router,0);   
   setlength(servTime,0);   
   setlength(visitRatios,0);   
   setlength(serviceDemands,0);   
      
   A.free;   
   b.free;   
   x.free;   
      
      
   end.   
      
   ---   
      
      
   Thank you,   
   Amine Moulay Ramdane.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)