Name

---

CALDAT_NO_LEAP

Purpose

---

This procedure computes the pseudo-date for a calendar without leap days given
a pseudo-Julian day. The reference date is taken to be 2001-01-01.
The inverse of this procedure is JULDAY_NO_LEAP.

Category

---

Date and time calculations.

Calling Sequence

---

CALDAT_NO_LEAP, jday, month, day, year

Input

---

jday : pseudo-Julian day for a calendar with no leap years.

Output

---

month : month (1 - 12)
day : day of the month (1 - 28, 30, or 31)
year : calendar year

Keywords

---

None.

Procedure

---

This function computes the pseudo-date for a 365-day year using
the built in function CALDAT. The pseudo-date is computed assuming
that every year has exactly 365 days. The reference year must be a non-leap year.

Modification History

---

Kenneth Bowman, 2001-03.