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