function th=dpms2dms(t,code);
% преобразование данных (время/угол) из формата DD.MMSS в DD.DDDD или 
% [DD MM SS]
%
%           th=dpms2dms(t,code);
%
% t - время (угол) в формате HH.MMSSsss (DD.MMSSsss)
% code - определение вывода:
%           1 - в th записывается время в десятичном формате (часы), по
%               умолчанию
%           2 - th=[hh mm ss] - матрица векторов час, мин, сек
% th - либо время (угол) в обычном десятичном формате (code=1), либо
%       матрица [hh mm ss]
%

% 03.12.2009    - Хомутов С.Ю.

if nargin==1,
    code=1;
end

hh=fix(t);
mm=fix(round(rem(t,1)*1e8)/1e6);
ss=rem(round(rem(t,1)*1e8),1e6)/1e4;

if code==1,
    th=hh+mm/60+ss/3600;
else
    th=[hh mm ss];
end
