PRO phangs_compare_seds_isrf

dir=!phangs_data_dir+'/ISRF/GRIDS/'
isrf_class_str='_isrfclass15'
model='DBP90'
table_name=dir+model+'_MuseISRF_JWST_G0_YPAH_YVSG_4Phangs'+isrf_class_str+'.fits'
st=mrdfits(table_name,1,h)

use_filters_names=['F360M','F0770W','F1000W','F1130W','F2100W']
filters=dustem_filter_names2filters(use_filters_names)

Nfilters=n_elements(filters)

ii=100L

Nseds=1

sed=dustem_initialize_sed(Nfilters)

;sed=fltarr(Nfilters)

tags=tag_names(st)

FOR i=0L,Nfilters-1 DO BEGIN
	ind=where(tags EQ 'I'+filters[i],count)

	sed[i].filter=filters[i]
	sed[i].stokesI=st[ii].(ind[0])

ENDFOR

sed.sigmaii=sed.stokesI*1.e-5

Nparams=3
true_params=fltarr(Nparams)
FOR i=0L,Nparams-1 DO BEGIN
  true_params[i]=st[ii].(i)
ENDFOR

stop

isrf_class_str='_isrfclass0'
table_name_2=dir+model+'_MuseISRF_JWST_G0_YPAH_YVSG_4Phangs'+isrf_class_str+'.fits'

params=dustem_brute_force_fit(sed,table_name_2,filters,fact=fact,chi2=chi2,/normalize,rchi2=rchi2,show_sed=show_sed $
		   					 ,params_hit=params_hit,params_uncertainties=params_uncertainties,params_min=params_min,params_max=params_max $
		   					 ,fixed_parameters_description=fixed_parameters_description,fixed_parameters_values=fixed_parameters_values)

print,true_params
print,params

stop

END