0001 function [Zcurr,ZP0,dke_out,equilDKE,mksa] = loop_rundke(iDr0,Dr0_list,iDr0_save,...
0002 id_simul,dkepath,equil,dkeparam,dkedisplay,ohm,waves,transpfaste,ripple)
0003
0004 permission = test_permissions_yp;
0005
0006 if ~permission
0007 disp('Please move the script to a local folder where you have write permission before to run it')
0008 return;
0009 end
0010
0011 transpfaste.Dr0 = Dr0_list(iDr0);
0012
0013 [Znorm,Zcurr,ZP0,dke_out,radialDKE,equilDKE,momentumDKE,gridDKE,Zmomcoef,Zbouncecoef,Zmripple,mksa] = main_dke_yp(id_simul,dkepath,equil,dkeparam,dkedisplay,ohm,waves,transpfaste,ripple,[],[]);
0014
0015 if iDr0 == iDr0_save,
0016 filename = ['DKE_RESULTS_',equil.id,'_',id_simul,'_Dr0_',num2str(Dr0_list(iDr0)),'.mat'];
0017 save(filename);
0018 info_dke_yp(2,['Data saved in ',filename]);
0019 end