get_juldate.pro

来自「basic median filter simulation」· PRO 代码 · 共 45 行

pro get_juldate,jd
;+
; NAME:
;    GET_JULDATE
; PURPOSE:
;     Return the current Julian Date
;
; EXPLANATION:
;     In V5.4, GET_JULDATE became completely obsolete with the introduction
;     of the /UTC keyword to SYSTIME().   So GET_JULDATE,jd is equivalent to
;     jd = SYSTIME(/JULIAN,/UTC).
;
; CALLING SEQUENCE:
;       GET_JULDATE,jd
;
; INPUTS:
;       None
;
; OUTPUTS:
;       jd = Current Julian Date, double precision scalar
;
; EXAMPLE:
;       Return the current hour, day, month and year as integers
;
;       IDL> GET_JULDATE, JD                  ;Get current Julian date
;       IDL> DAYCNV, JD, YR, MON, DAY, HOURS  ;Convert to hour,day month & year
;
; METHOD:
;       A call is made to SYSTIME(/JULIAN,/UTC).
;
; REVISION HISTORY:
;       Written Wayne Landsman                March, 1991
;       Converted to IDL V5.0   W. Landsman   September 1997
;       Assume since V5.4 Use /UTC keyword to SYSTIME()  W. Landsman April 2006
;-
 compile_opt idl2
 if N_Params() LT 1 then begin
     Print,'Syntax - GET_JULDATE, JD'
     return
 endif

     jd = SYSTIME(/JULIAN,/UTC)
 return    
 end