function ep1_merge19606(inS)
% EP1_MERGE19606 - This deals with the problem 19606 sensor

% Brian Schlining
% 11 Mar 2000

infile = netcdf(inS, 'write');

t = nctime(infile);

get_19606_1 = find(t > datenum('14 Nov 1997') & t < datenum('03 Nov 1998'));
get_19606_2 = find(t > datenum('08 Jul 1999') & t < datenum('27 Oct 1999'));
i19606 = [get_19606_1; get_19606_2];

Lu412_19606 = infile{'Lu412_3_2'}(:);
Lu412 = infile{'Lu412_3_1'}(:);
Lu412(i19606) = Lu412_19606(i19606);
infile{'Lu412_3_1'}(:) = Lu412;
infile{'Lu412_3_2'}.symbol(:) = 'null';
infile{'Lu412_3_2'}.comment = ncchar('Contain values from the 19606 sensor. This data has been merged into Lu412_3_1.');


Lu443_19606 = infile{'Lu443_3_1'}(:);
Lu443 = infile{'Lu443_3_2'}(:);
Lu443(i19606) = Lu443_19606(i19606);
infile{'Lu443_3_2'}(:) = Lu443;
infile{'Lu443_3_1'}.symbol(:) = 'null';
infile{'Lu443_3_1'}.comment = ncchar('Contain values from the 19606 sensor. This data has been merged into Lu443_3_2.');


%Lu555 = infile{'Lu555_3_5'}(:);
%Lu555(i19606) =  Lu555(i19606).*0.7057719;
%infile{'Lu555_3_5'}(:) = Lu555;
%infile{'Lu555_3_5'}.comment = ncchar('Corrected values from the 19606 sensor by a factor of 0.7057719');

ncquit(infile);