PRO dustem_write_lambda,file,st

;stop
openw,unit,file,/get_lun

Nwaves=n_elements(st)
printf,unit,fix(st(0).lambda)

FOR i=1L,Nwaves-1 DO BEGIN
  printf,unit,st(i).lambda,format=frmt
ENDFOR

close,unit
free_lun,unit

END