function [scfa,dava,lambda]=read_ecobb2fcal(file_loc,calfile,calind)

fname = sprintf('%scfg\\%s.cfg',file_loc,calfile.instruments(calind).ECO);
fid=fopen(fname);
k=0;
while ~feof(fid)
    X=fgetl(fid);
    if strncmp(X,'Lambda',6)|strncmp(X,'CHL',3)
        k=k+1;
        ind=findstr(X,'=')+2;
        vals=sscanf(X(ind:end),'%f');

        scfa(k)=vals(1);
        dava(k)=vals(2);
        if strncmp(X,'CHL',3)
            lambda(k,:)='CHL';
        else
        lambda(k,:)=num2str(vals(3));
        end    
    end
    clear vals;
end