Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.stsci.edu/~mperrin/software/sources/lasertimes.pro Дата изменения: Sat Aug 11 03:00:40 2007 Дата индексирования: Sat Mar 1 15:44:34 2014 Кодировка: Поисковые слова: annular solar eclipse

;+
; NAME: lasertimes
;
; PURPOSE:
; Compute the start and stop allowable times for the Lick Laser, in LST.
; These correspond to 11 pm and 5 am, local time (either PST or PDT)
;
; USAGE:
; suntimes,jd,rise,set, [/date, /lst]
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; BUGS:
; Not daylight savings time aware. It assumes that the entire year
; uses whatever the current timezone setting is. (i.e. if it's
; PDT when you run the program, it assumes it's -always- PDT, and
; vice versa for PST)
;
; HISTORY:
; Began 2005-07-14 16:07:24 by Marshall Perrin
; see 'obsplan.pro' from the Buie library for algorithm source.
;-

PRO lasertimes,laserstart,laserstop,today=today,date=date,lst=uselst

gmt_offset_days = gmt_offsec()/84600.
gmt_offset_hours = gmt_offsec()/3600.

if ~(keyword_set(jd)) and ~(keyword_set(date)) then today=1
if keyword_set(today) then begin
; julday by itself doesn't know about time zones.
; So you have to add in an offset to take into account the
; fact that the computer's clock may not be in GMT.
jd = julday()+gmt_offset_days
daycnv,jd-gmt_offset_days,yr,mon,day,hr
date = [yr,mon,day,hr]
endif else $
if keyword_set(date) then begin
jdcnv,date[0],date[1],date[2],date[3],jd
jd += gmt_offset_days
endif

year=date[0]
mon=date[1]
day=date[2]

obsname='lick'
observatory,obsname,obs

ct2lst,laserstart,obs.longitude*(-1),gmt_offset_hours,23,day,mon,year
ct2lst,laserstop,obs.longitude*(-1),gmt_offset_hours,5,day+1,mon,year


end