PRO KDATE,K,ID,IM,IY
;
;	CONVERTS THE K INDEX TO THE DAY, MONTH AND YEAR
;
;+
; NAME:
;	KDATE
;
; PURPOSE:
;	This procedure converts a k index (modified julian date) into the
;	day, month and year
;
; CATEGORY:
;	UTIL
;
; CALLING SEQUENCE:
;	KDATE,K,Id,Im,Iy
;
; INPUTS:
;	K:	The k-index (modified julian date)
;
; OUTPUTS:
;	Id:	The date of month
;	Im:	The number of the month (1..12)
;	Iy:	The year
;
; MODIFICATION HISTORY:
; 	Written by:	RA Howard, 1975
;
;	@(#)kdate.pro	1.2 10/17/96 LASCO IDL LIBRARY
;-
get_utc,dte
dte.mjd = k
s = UTC2STR(dte)
iy = FIX(STRMID(s,0,4))
im = FIX(STRMID(s,5,2))
id = FIX(STRMID(s,8,2))
RETURN
END