pro mk_op_file,sttim,Ndays,keep_ascii=keep_ascii
;+
;  NAME:
;    mk_op_file
;  PURPOSE:
;    Generate the 16s aoslos file for op_first_guess
;    File is written to $DIR_GEN_ORBIT_RAW
;  CALLING SEQUENCE:
;     mk_op_file,Sttim,Num_days
;     mk_op_file,'5-may-93',5
;  INPUTS:
;    sttim	= Starting time in any format
;    Num_days	= Integer number of days
;  OPTIONAL INPUT KEYWORDS:
;    None.
;  MODIFICATION HISTORY:
;     4-may-93, J. R. Lemen, Written
;-

; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Path is for the output *.ascii file (from dsnfil):
   if keyword_set(ASCA) then 			$
		path = '$DIR_ASCA_ORBIT'  else	$ ; ASCA
		path = '$DIR_GEN_ORBIT_RAW'	; Write to the orbit_raw dir
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


if n_elements(sttim) eq 0 then input,'* Enter the start time:', 	$
			sttim, fmt_tim(anytim2ex(!stime))
if n_elements(Ndays) eq 0 then input,'* Enter the number of days:', Ndays, 3
interval = 16			; 16s
sttim = anytim2ex(sttim)
ndset = 5400L * Ndays			; 5400 16s intervals/day

print,'Run dsnfil: Time=',fmt_tim(sttim),', interval =', $
			strtrim(interval,2),' s, Num =',strtrim(ndset,2), $
	   '  (',strtrim(string(float(ndset)/86400l*interval,format='(f10.1)'),2)+' days)'
mk_aoslos,sttim,interval,ndset,aoslos_file=aoslos_file,path=path,	$
			keep=keep_ascii,asca=asca


end