%
%
%
%
%AC open file and save constituents

%water type
idu=strfind(fnam_a,'_');
water=fnam_a(idu(1)+1:idu(2)-1);

%load files
[at1,adat, awvl]=rd_wetview_new(fnam_a);
[ct1,cdat]=rd_wetview_new(fnam_c);

%sort wavelengths
[wvl, I]=sort(awvl);
wvl=wvl(1:9)-1000;

a=adat(:,1:9);
c=cdat(:,10:end);









