PRO dustem_write_qabs_desert,file,stOPENW,unit,file,/get_lunNtypes=n_elements(st)frmt="(11E15.5)"FOR i=0L,Ntypes-1 DO BEGINprintf,unit,st(i).lambqabs,st(i).qabs1,st(i).qabs2,st(i).qabs3,st(i).qabs4,st(i).qabs5,st(i).qabs6,st(i).qabs7,st(i).qabs8,st(i).qabs9,st(i).qabs10,format=frmtENDFORclose,unitfree_lun,unitEND