PRO dustem_write_all_lv,st,dir_out ;stop ;== ISRF file_out=dir_out+'les_DAT/'+'ISRF.DAT' dustem_write_isrf_lv,file_out,st.isrf ;== LAMBDA file_out=dir_out+'les_QABS/'+'LAMBDA.DAT' dustem_write_lambda,file_out,st.lambda ;== GRAIN file_out=dir_out+'les_DAT/'+'GRAIN.DAT' dustem_write_grain_lv,file_out,st.grains ;== SIZE file_out=dir_out+'les_DAT/' dustem_write_size_lv,file_out,st.size ;== QABS file_out=dir_out+'les_QABS/' dustem_write_qabs_lv,file_out,st.qabs ;== CALOR file_out=dir_out+'les_CAPA/' dustem_write_calor_lv,file_out,st.calor sortie: END