%% main.m
% Foil simulation main run script.  Set variable "cpu" to an available
% number and run this file.
running = 1;
flist = dir('queue\*.mat');
fnum = length(flist);
while running
    if fnum(1) < 1,running = 0;break,end
    fl = flist(round(rand*(fnum-1))+1).name;
    try,load(['queue\',fl]);delete(['queue\',fl]);
    catch,flist = dir('queue\*.mat');fnum = length(flist);continue,end
    write_infile(fname,run,cpu);
    foil = fname(1:length(fname)-4);
    disp(['Running ',fname])
    dos(sprintf('xfoilP4 < cpu%g.input > logs\\%s.%f.output &',cpu,foil,run));
    eval(sprintf('!echo %f %s > cpu%f.current',run,foil,cpu));
    xfoil_wait(cpu,timer,run);
    delete(['cpu',num2str(cpu),'.current']);
    xfoil_error([foil,'.polar'],cpu,run);
end