function [atot]=makat(apg);
%
%  These values are from Pope and Fry, Applied Optics, 36: 8710-8723, 1997.
%    for the wavelengths 412, 440, 488, 510, 532, 555, 650, 676
%
aw=[.004562 .00635 .0146 .0325 .04444 .0596 .34 .4558];
info=size(apg);
num=info(2);
atot=zeros(8,num);

for j=1:num
  for i=1:8
    atot(i,j)=apg(i,j)+aw(1,i);
  end
end
