PRO dustem_write_gemissiv,file,st;3.0303E-012.0003E+052.9431E+042.1761E+041.3210E-255.6098E-265.6098E-26OPENW,unit,file,/get_lunNtypes=n_elements(st)frmt="(8E15.5)"FOR i=0L,Ntypes-1 DO BEGINprintf,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=frmtENDFORclose,unitfree_lun,unitEND