function [ctot]=makct(cpg);
%
%  These values are from Morel 1974 Optical properties of pure water and pure 
%   sea water, chapter 1, in Optical Aspects of Oceanography, Edited by N.G. Jerlov 
%   and E.S. Nielsen, Academic Press, New York, 1-24.
%
%    The wavelengths 412, 440, 488, 510, 532, 555, 650, 676
%
%
%  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];
bw=[.0051 .0039 .0025 .0020 .0017 .0014 .00071 .00061];
info=size(cpg);
num=info(2);
ctot=zeros(8,num);

for j=1:num
  for i=1:8
    ctot(i,j)=cpg(i,j)+bw(1,i)+aw(1,i);
  end
end
