function tim2intstr, time0, time1
;
;+ 
;   Name: tim2intstr 
;
;   Purpose: convert ext/int to standard yohkoh structure
;				         {xx,Time:0l,Day:0} 
;
;   Input Parameters:
;      time0 - external time if one parameter, msod if two parameters
;      time1 - days since 1/1/79
;
;   History: slf, 17-Apr-1992
;-

siztime0=size(time0)

; make time structure template
timestr=make_str('{dummy,Time:0L,Day:0}')

case n_params() of 
   1: ex2int, time0, msod, ds79 
   2: begin
         msod=time0
	 ds79=time1
      endcase
endcase

if n_elements(msod) gt 1 then $
   timestr=replicate(timestr,n_elements(msod))

timestr.time=msod
timestr.day=ds79

return, timestr
end