dustem_write_qabs_desert.pro
331 Bytes
PRO dustem_write_qabs_desert,file,st
OPENW,unit,file,/get_lun
Ntypes=n_elements(st)
frmt="(11E15.5)"
FOR i=0L,Ntypes-1 DO BEGIN
printf,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=frmt
ENDFOR
close,unit
free_lun,unit
END