gmaze_pv/subfct/dtecco2.m

% date = dtecco2(X,FORM)
%
% If: 
% FORM = 0, translate the stepnum X into a date string (yyyymmddHHMM)
% FORM = 1, translate the date string X (yyyymmddHHMM) into a stepnum
%
% 06/08/29
% gmaze@mit.edu
%

function varargout = dtecco2(varargin)

% Test inputs:
if nargin ~= 2
  help dtecco2.m
  error('dtecco2.m : Wrong number of parameters');
  return
end %if

% Recup inputs:
X = varargin{1};
FORM = varargin{2};

% New tests:
if FORM~=0 & FORM~=1
   help dtecco2.m
   error('dtecco2.m : Second argument must be 0 or 1');
   return
elseif FORM == 0 & ~isnumeric(X)
   help dtecco2.m
   error('dtecco2.m : if 2nd arg is 0, 1st arg must be numeric');
   return
elseif FORM == 1 & isnumeric(X)
   help dtecco2.m
   error('dtecco2.m : if 2nd arg is 1, 1st arg must be a string');
   return
end


% Let's go:
switch FORM
  
 case 0
  ID = datestr(datenum(1992,1,1)+X*300/60/60/24,'yyyymmddHHMM');
  varargout(1) = {ID};
  
 case 1
  ID = 60*60*24/300*( datenum(X,'yyyymmddHHMM') - datenum(1992,1,1) );
  varargout(1) = {ID};
  
  
end %switch
1	% date = dtecco2(X,FORM)
2	%
3	% If:
4	% FORM = 0, translate the stepnum X into a date string (yyyymmddHHMM)
5	% FORM = 1, translate the date string X (yyyymmddHHMM) into a stepnum
6	%
7	% 06/08/29
8	% gmaze@mit.edu
9	%
10
11	function varargout = dtecco2(varargin)
12
13	% Test inputs:
14	if nargin ~= 2
15	help dtecco2.m
16	error('dtecco2.m : Wrong number of parameters');
17	return
18	end %if
19
20	% Recup inputs:
21	X = varargin{1};
22	FORM = varargin{2};
23
24	% New tests:
25	if FORM~=0 & FORM~=1
26	help dtecco2.m
27	error('dtecco2.m : Second argument must be 0 or 1');
28	return
29	elseif FORM == 0 & ~isnumeric(X)
30	help dtecco2.m
31	error('dtecco2.m : if 2nd arg is 0, 1st arg must be numeric');
32	return
33	elseif FORM == 1 & isnumeric(X)
34	help dtecco2.m
35	error('dtecco2.m : if 2nd arg is 1, 1st arg must be a string');
36	return
37	end
38
39
40	% Let's go:
41	switch FORM
42
43	case 0
44	ID = datestr(datenum(1992,1,1)+X*300/60/60/24,'yyyymmddHHMM');
45	varargout(1) = {ID};
46
47	case 1
48	ID = 606024/300*( datenum(X,'yyyymmddHHMM') - datenum(1992,1,1) );
49	varargout(1) = {ID};
50
51
52	end %switch