source: MML/trunk/machine/SOLEIL/StorageRing/insertions/IDStarter/idMeasCorEffic.m @ 4

function [strAllFileNames, res] = idMeasCorEffic(idName, tableCorCur, inclPerturbMeas, fileNameCore, dispData)
res = -1;

numMeas = length(tableCorCur);
timeStandBy = 10; 
curAbsTol = 0.001;
curToSetCHE = 0;
curToSetCVE = 0; 
curToSetCHS = 0;
curToSetCVS = 0;
fileNameCoreWithCor = fileNameCore;
strCor = '';
%strAllFileNames = {};
strAllFileNames = '';

for i = 1:numMeas
    curToSetCHE = tableCorCur(i, 1);
    curToSetCVE = tableCorCur(i, 2);
        curToSetCHS = tableCorCur(i, 3);
    curToSetCVS = tableCorCur(i, 4);
    
        if (dispData ~= 0)
        fprintf('\nCurrents: CHE = %f, CVE = %f, CHS = %f, CVS = %f\n', curToSetCHE, curToSetCVE, curToSetCHS, curToSetCVS);
    end

    res = idSetCorCurSync(idName, curToSetCHE, curToSetCVE, curToSetCHS, curToSetCVS, curAbsTol);
    if (res ~= 0)
        fprintf('Failed to set the current values:  %f  %f  %f  %f\nLoop on the current values has stopped abnormally\n', curToSetCHE, curToSetCVE, curToSetCHS, curToSetCVS);
        return;
    end
    
    strCor = sprintf('_he%i_ve%i_hs%i_vs%i', curToSetCHE, curToSetCVE, curToSetCHS, curToSetCVS);
    fileNameCoreWithCor = strcat(fileNameCore, strCor);
    
    pause(timeStandBy);
    
        EIaux = idMeasElecBeamUnd(idName, inclPerturbMeas, fileNameCoreWithCor, dispData);
    
    if (strcmp(EIaux.file, '') == 0)
        if(length(strAllFileNames) > 0)
            strAllFileNames = strcat(strAllFileNames, '\n');
        end
        strAllFileNames = strcat(strAllFileNames, EIaux.file);
        strAllFileNames = sprintf(strAllFileNames);
        %strAllFileNames{i} = EIaux.file;
    end
end

res = idSetCorCurSync(idName, 0, 0, 0, 0, curAbsTol);
if (res ~= 0)
        fprintf('Failed to set the current values:  0  0  0  0\n');
end

if (strcmp(strAllFileNames, '') == 0)
%if (length(strAllFileNames) > 0)
    auxListStruct.file = strAllFileNames;
    fileNameCoreList = strcat(fileNameCore, '_cor_meas_list');
    idSaveStruct(auxListStruct, fileNameCoreList, idName, 0);
end