;+
; NAME:
;  vty16_fig5_7_write
; PURPOSE: (one line)
;  Write the data for a Pluto movie for Young 2013 ApJL resubmission
; DESCRIPTION:
;  Write the data for a Pluto movie for Young 2013 ApJL resubmission
; CATEGORY:
;  VT
; CALLING SEQUENCE:
;  vty16_fig5_7_write, run, res_all
; INPUTS:
;  run : name of this run.
;  res: structure with the results of the run, suitable for plotting.
;    See vty16_fig5_7_func
; SIDE EFFECTS:
;    write files <run>_<tag>.png
;    where <tag> is tag in the structure res_all
; RESTRICTIONS:
;  None
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2012 October 13, by Leslie Young, SwRI (pluto_dps12_2.pro)
;  Oct 21 2012.  Make function (pluto_mssearch_func.pro)
;  Dec 13 2012.  Add start phase as options
;  2016 Apr 06 LAY. Modified for inclusion in vty16 library.
;-

pro vty16_fig5_7_write,run,res_all

tags = TAG_NAMES(res_all)
ntag = n_tags(res_all)

for itag = 0, ntag-1 do begin
   tag = tags[itag]
   fn = run+'_'+tag+'.fits'
   val = res_all.(itag)
   writefits, fn, val
endfor


 end