PRO dustem_write_gemissiv,file,st
;3.0303E-01  2.0003E+05  2.9431E+04  2.1761E+04  1.3210E-25  5.6098E-26  5.6098E-26

OPENW,unit,file,/get_lun

Ntypes=n_elements(st)

frmt="(8E15.5)"
FOR i=0L,Ntypes-1 DO BEGIN
  printf,unit,st(i).lambir,st(i).qgra,st(i).qsi,st(i).qcar,st(i).qcccat,st(i).qccneu,st(i).qchcat,st(i).qchneu,format=frmt
ENDFOR

close,unit
free_lun,unit

END