function [t]=dtjpl2t(dtjpl)
%
%  [t]=dtjpl2t(dtjpl)
%
%  dtjpl is character string e.g. '01APR30'

leapyears = 1988:4:2024;

[yyyy,doy]=yyyymmdd2doy(str2double(yymmmdd2yyyymmdd(dtjpl)));
if isempty(find(leapyears==yyyy,1))
    t=yyyy + (doy-.5)/365;
else
    t=yyyy + (doy-.5)/366;
end
