function slt=s_time(S0,UT,long)
%Вычисление местного звездного времени (local sideral time)
%
%Вызов:	slt=s_time(S0,UT,long);
%
%Входные параметры:
%	S0 - гринвичское звездное врем? в 0 час. UT (в часах);
%	UT - всемирное врем? в момент наблюдени? (в часах);
%     long - долгота пункта, положительна? к востоку (в часах);
%Выходные парметры:
%      slt - местное звездное врем? (в часах);
%
%!!! ВНИМАНИЕ !!!  Все параметры д.б. в часах

% Sergey Khomutov,  08.05.97,  Novosibirsk
%    06.06.2002 - перевод всех аргументов в часы.

slt=S0+UT*1.00273790935+long;
slt=mod(slt,24);		% приводим к диапазону 0...24
