SLA_DJCL - MJD to Year,Month,Day,Frac

ACTION:

Modified Julian Date to Gregorian year, month, day, and fraction of a day.

CALL:

CALL sla_DJCL (DJM, IY, IM, ID, FD, J)

GIVEN:

DJM

D

modified Julian Date (JD$-$2400000.5)

RETURNED:

IY	I	year
IM	I	month
ID	I	day
FD	D	fraction of day
J	I	status:
		0 = OK
		$-$1 = unacceptable date
		(before 4701BC March 1)

REFERENCE:

The algorithm is adapted from Hatcher, Q.Jl.R.astr.Soc. (1984) 25, 53-55.