PRO imf_read,name

; This routine should open a CDF file, read the times of the data stored,
; and output a list of the days of the year and YMD when data are available.

id=cdf_open(name)
PRINT,name
cdf_info=cdf_inquire(id)
len=cdf_info.maxrec
t=LONARR(3,len)
FOR i=0,len-1 DO BEGIN
    cdf_varget,id,'Time_PB5',time,rec_start=i
    t(*,i)=time
    ENDFOR
cdf_close,id
doy=t(1,*)
newday=WHERE(doy-SHIFT(doy,1),nnewday)
startday=t(*,newday)
FOR i=0,nnewday-1 DO BEGIN
    caldat,julday(1,1,startday(0,i))+startday(1,i)-1,m,d,y
    PRINT,y,m,d
    ENDFOR
RETURN
END