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.