PRO dustem_fillup_systvar_from_fits,syst_var,sed,str_input_SED,used_pol

	(syst_var).sed=ptr_new(sed)

	(*syst_var.sed).instru_names=dustem_filter2instru(str_input_SED.filter)
	(*syst_var.sed).filt_names=str_input_SED.filter
	(*syst_var.sed).wav=str_input_SED.wavelength
	(*syst_var.sed).values=str_input_SED.STOKESI
	(*syst_var.sed).sigma=la_power(str_input_SED.varianceII,0.5)

	IF used_pol THEN BEGIN
		;stop
		syst_var.qsed=ptr_new(sed)
		syst_var.used=ptr_new(sed)
		(*syst_var.qsed).instru_names=dustem_filter2instru(str_input_SED.filter)
		(*syst_var.qsed).filt_names=str_input_SED.filter
		(*syst_var.qsed).wav=str_input_SED.wavelength
		(*syst_var.qsed).values=str_input_SED.STOKESQ
		(*syst_var.qsed).sigma=la_power(str_input_SED.varianceQQ,0.5)
		(*syst_var.used).instru_names=dustem_filter2instru(str_input_SED.filter)
		(*syst_var.used).filt_names=str_input_SED.filter
		(*syst_var.used).wav=str_input_SED.wavelength
		(*syst_var.used).values=str_input_SED.STOKESU
		(*syst_var.used).sigma=la_power(str_input_SED.varianceUU,0.5)
	ENDIF
END