cd /NAS3/SABIOD/METHODES/SCATTERING/RANDALL/scatterbox		 
startup
a=dir('/NAS2/PIMC/SITE/PORTCROS/SORTIES/2013063*');
cd('/NAS2/PIMC/SITE/PORTCROS/SORTIES/')
for i=[round(length(a)/2):length(a) round(length(a)/2)-1:-1:1 ]
cd(a(i).name)
b=dir('./')
for j=3:length(b)	
if b(j).name(end)=='v'
DIR=strcat('/NAS2/PIMC/SITE/PORTCROS/SORTIES/',a(i).name,'/',b(j).name)
porcros(256,DIR,['PORCROS/' a(i).name],60,20,b(j).name,a(i).name)
end
end
cd('../')
end









