pro mdi_closest_fd, time0, time1, file0, file1, closeest=closest, all=all , $ 
    window_minutes=window_minutes, status=status, _extra=_extra, $
    debug=debug,after_time0=after_time0

debug=keyword_set(debug)

if n_elements(time1) eq 0 then begin 
   box_message,'Need time range'
   return
endif

if n_elements(window_minutes) eq 0 then window_minutes=(2.*96)

time_window,[time0,time1],t0,t1,minute=window_minutes

status=0

;magfiles=mdi_files(t0,t1,_extra=_extra,ftimes=ftimes)
;magfiles=str_replace(magfiles,'$MDI_MAGS',get_logenv('MDI_MAGS'))
magfiles=mdi_time2file(t0,t1,/STANFORD)
magfiles=[mdi_time2file(time0,/STANFORD), $
          mdi_time2file(time1,/STANFORD,/AFTER)]
ftimes=[time0,time1]
file0=magfiles(0)
file1=magfiles(1)
status=1
return
         
help,magfiles
if magfiles(0) eq '' then begin 
   box_message,'No MDI files in window, returning'
   return
endif
fbef=last_nelem(where(ssw_deltat(ftimes,ref=time0,/min) lt 0,bcnt)) > 0
case 1 of 
   keyword_set(after_time0): aftref=time0 
   else: aftref=time1
endcase
   
help,time0,aftref
faft=(where(ssw_deltat(ftimes,ref=aftref,/min) gt 0,acnt))(0)
status=bcnt gt 0 and acnt gt 0 
if status then begin
   file0=magfiles(fbef)
   file1=magfiles(faft)
endif
return
end