1 %======================================================================

     2 %                    D E C _ T I M E . M 

     3 %                    doc: Thu Mar  1 18:16:50 2012

     4 %                    dlm: Thu Mar  1 18:18:15 2012

     5 %                    (c) 2012 A.M. Thurnherr

     6 %                    uE-Info: 15 0 NIL 0 0 72 0 2 4 NIL ofnI

     7 %======================================================================

     8 % 

     9 %	dt = dec_time(time[,epoch])

    10 %

    11 % 	make ATNS dn field from matlab numeric time

    12 %

    13 % HISTORY:

    14 %	Mar  1, 2012: - created

    15 

    16 function dt=dec_time(time,varargin)

    17 

    18 if nargin==2

    19 	dt = time - datenum(varargin{1},1,1) + 1;

    20 elseif nargin==1

    21 	dv = datevec(time);

    22 	dt = dec_time(time,dv(1));

    23 else

    24 	disp('dt=dec_time(time[,epoch])');

    25 	error

    26 end

    27 

    28