JULDAY_NO_LEAP
Name
JULDAY_NO_LEAP
Purpose
This function computes a pseudo-Julian day for a calendar without leap days given a
pseudo-date (month, day, and year). The reference date is taken to be 1 January 2001.
The inverse of this procedure is CALDAT_NO_LEAP.
Category
Date and time calculations.
Calling Sequence
jday = JULDAY_NO_LEAP(month, day, year)
Input
month : month (1 - 12)
day : day of the month (1 - 28, 30, or 31)
year : calendar year
Output
LONG variable containing the psuedo-Julian day for a calendar without leap days.
Keywords
None.
Procedure
This function computes the day number from 1 January of a 365-day reference year using
the built in function JULDAY. The psuedo-Julian day is then computed assuming
that every year has exactly 365 days. The reference year must be a non-leap year.
Arguments are checked to ensure that the date requested is not February 29, that
month lies in the range (1-12), and that day lies in the range (1-31).
Modification History
Kenneth Bowman, 2001-03.