% Start w/o the Oplus gauss and add them in:
load_par("e0102_vpshock_4els_sigdat.par");
% Include higher O transitions:
fit_fun("phabs(1)*(vpshock(1)+" +  %  "gauss(704)+gauss(705)+" + 
  "gauss(706)+gauss(707)+gauss(708)+gauss(709)+gauss(710))");
% O VII N-to-1 lines:
#iffalse
%   Use these two to adjust the norm for the set:
set_par("gauss(704).center", 17.7680, 1);
set_par("gauss(704).area", 72.e-4*372.e-4, 1);
set_par("gauss(704).sigma", 17.e-4, 1);
set_par("gauss(705).center", 17.3960, 1);
set_par("gauss(705).area", 72.e-4*179.e-4, 1);
set_par("gauss(705).sigma", 17.e-4, 1);
#endif
%
set_par("gauss(706).center", 17.2000, 1);
set_par("gauss(706).area", 72.e-4*91.e-4, 1);
set_par("gauss(706).sigma", 17.e-4, 1);
set_par("gauss(707).center", 17.0729, 1);
set_par("gauss(707).area", 72.e-4*56.e-4, 1);
set_par("gauss(707).sigma", 17.e-4, 1);
set_par("gauss(708).center", 16.9985, 1);
set_par("gauss(708).area", 72.e-4*37.e-4, 1);
set_par("gauss(708).sigma", 17.e-4, 1);
set_par("gauss(709).center", 16.9479, 1);
set_par("gauss(709).area", 72.e-4*22.e-4, 1);
set_par("gauss(709).sigma", 17.e-4, 1);
set_par("gauss(710).center", 16.9118, 1);
set_par("gauss(710).area", 72.e-4*15.e-4, 1);
set_par("gauss(710).sigma", 17.e-4, 1);
%
% O VIII N-to-1 lines:
fit_fun("phabs(1)*(vpshock(1)+" +
     %  "gauss(704)+gauss(705)+" + 
  "gauss(706)+gauss(707)+gauss(708)+gauss(709)+gauss(710)+" +
     %  "gauss(804)+gauss(805)+" +
  "gauss(806)+gauss(807)+gauss(808)+gauss(809)+gauss(810))" );
#iffalse
%   Use these two to adjust the norm for the set:
set_par("gauss(804).center", 15.1765, 1);
set_par("gauss(804).area", 110.e-4*278.e-4, 1);
set_par("gauss(804).sigma", 17.e-4, 1);
set_par("gauss(805).center", 14.8207, 1);
set_par("gauss(805).area", 110.e-4*105.e-4, 1);
set_par("gauss(805).sigma", 17.e-4, 1);
#endif
%
set_par("gauss(806).center", 14.6326, 1);
set_par("gauss(806).area", 110.e-4*54.e-4, 1);
set_par("gauss(806).sigma", 17.e-4, 1);
set_par("gauss(807).center", 14.5226, 1);
set_par("gauss(807).area", 110.e-4*32.e-4, 1);
set_par("gauss(807).sigma", 17.e-4, 1);
set_par("gauss(808).center", 14.4520, 1);
set_par("gauss(808).area", 110.e-4*18.e-4, 1);
set_par("gauss(808).sigma", 17.e-4, 1);
set_par("gauss(809).center", 14.4041, 1);
set_par("gauss(809).area", 110.e-4*14.e-4, 1);
set_par("gauss(809).sigma", 17.e-4, 1);
set_par("gauss(810).center", 14.3699, 1);
set_par("gauss(810).area", 110.e-4*8.e-4, 1);
set_par("gauss(810).sigma", 17.e-4, 1);