pro image2fits, images, _extra=_extra, times=times
;
;+
;   Input Paramters:
;      images - image file (from gif/jpeg/png...) - 2D or 3D cube
;
;   Keyword Parameters:
;      times - image time(s) -  assumed 1:1 for nimages
;      _extra - all other keywords -> mwritefits.pro (see  that header)
;-

if n_elements(times) eq 0 then $
   times=timegrid(reltime(now),/min,nsamp=data_chk(images,/nimage))

mwritefits,_extra=_extra, struct2ssw({date_obs:anytim(times,/ccsds) , $
   naxis1:(data_chk(images,/nx))(0), naxis2:(data_chk(images,/ny))(0)},/nopoint),images

return
end