PRO dustem_write_calor,file,st

sst='-- CAPACITE CALORIFIQUE DES GRAINS DE POUSSIERE ------------'

OPENW,unit,file,/get_lun

printf,unit,sst

Ntypes=n_elements(st)
;frmt="(11E15.5)"

FOR i=0L,Ntypes-1 DO BEGIN
  printf,unit,st(i).st
  Nel=n_elements(*st(i).lnc)
  FOR j=0L,Nel-1 DO BEGIN
    printf,unit,(*st(i).lnT)(j),(*st(i).lnc)(j)
  ENDFOR
  printf,unit,' '
ENDFOR

CLOSE,unit
free_lun,unit

END