function sigma10()
% Sigma10 all sigmas = A

% define foldername
modelfolder = getmodel;
% read model files
InfTable = zeros(1,9);
filename = strcat(modelfolder,'InfTable.txt');
fid = fopen(filename,'r');
InfTable = fscanf(fid,'%i',9);
fclose(fid);
nFreqs = InfTable(9);

A = 10;
sigma = zeros(nFreqs,1);
for i = 1:nFreqs
    sigma(i) = A;
end % i
filename = strcat(modelfolder,'sigma.txt');
fid = fopen(filename,'w');
fprintf(fid,' %5.2f  \n',sigma);
fclose(fid);



function modelfolder = getmodel()
% gets model name in LevInfinite

filename = 'C:\LevInfinite\Config\Molecules.ini';
fid = fopen(filename,'rt');
molfolder = fgetl(fid);
fclose(fid);

filename = 'C:\LevInfinite\Config\ToCalculate.ini';
fid = fopen(filename,'rt');
modelname = fgetl(fid);
fclose(fid);

modelfolder = strcat(molfolder,modelname);
modelfolder = strcat(modelfolder,'\');
