1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
function [errorRet] = CheckWls(wls1,wls2,quiet)
% [errorRet] = CheckWls(wls1,wls2,[quiet])
%
% Check that two wavelength descriptions are consistent with
% the same underlying sampling.
%
% Arguments may be either[start delta n],
% a list of wavelengths, or a struct.
%
% errorRet indicates status
% == 0: OK
% == 1: Mismatch
%
% Arg quiet tells function whether or not to print display to
% screen notifying user that check failed:
% 0 => display message
% else => keep quiet
%
% 9/13/93 dhb Added error return, no longer exits on error.
% 3/12/99 xmz Took care of cases when wls1 and wls2 are not
% equal in length.
% 1/4/00 mpr Added quiet flag to suppress display.
% 4/22/04 dhb Make quiet the default.
if nargin < 3 || isempty(quiet)
quiet = 1;
end
errorRet = 1;
wls1 = MakeItWls(wls1);
wls2 = MakeItWls(wls2);
if (length(wls1)==length(wls2))
if (all(wls1 == wls2))
errorRet = 0;
end
end
if (errorRet==1) && ~quiet
disp('CheckWls: Wavelength descriptions are not consistent');
end
|
