function T=epoha(MJD);
% Ïîäïðîãðàììà âû÷èñëåíè? âðåìåíè, ïðîøåäøåãî îò ýïîõè J2000.0
% äî ýïîõè íàáëþäåíè?, â þëèàíñêèõ ñòîëåòè?õ
%
% Âûçîâ:    T=epoha(MJD);
%
%    MJD - ìîäèôèöèðîâàííà? þëèàíñêà? äàòà;
%      T - âðåì? â þëèàíñêèõ ñòîëåòè?õ îò J2000.2.

% Õîìóòîâ Ñ.Þ., 25.08.98
%
% Èñòî÷íèê: ìîäóëü ETSTAR èç ïàêåòà ïðîãðàìì äë? ðàñ÷åòà ïðèëèâà


T=(MJD-51544.5)/36525;