%% scan_pid.m
% Input cpu node number and image search name.  Return a list of process
% image ID numbers matching supplied name.
function pid = scan_pid(cpu,pname)

dos(sprintf('tasklist > cpu%g.tasklist',cpu));
pid = 0;n = 0;
list = importdata(sprintf('cpu%g.tasklist',cpu));
for ii = 6:length(list)
    line = list{ii};
    [a1,a2,a,a,a,a]=strread(line,'%s %s %s %s %s %s');
    if strcmp(a1{1},pname)
        n = n+1;
        pid(n) = str2num(a2{1});
    end
end

if n == 0
    pid = 0;
end