%%% Simple parfor example
tic
parfor k=1 : 60,
   a(k)=max(eig(rand(300)));
end
partime = toc

tic
for k=1 : 60,
   apar(k)=max(eig(rand(300)));
end
time = toc
disp(['serial parallel times are:  ',num2str([time partime])]);

%%pause
%%%%%%%% using distributed arrays
%%A=randn(1000);
%%tic; E=A'; disp(['time for serial transpose  ',num2str(toc)])
%%D=distributed(A);    % store across participating workers
%%tic; E=D'; disp(['time for parallel transpose  ',num2str(toc)]);
