Commit 9ee42e4094a7caafb1593cf5526b54c92c21aba1
1 parent
6a714abf
Exists in
master
fixed small bugs
Showing
3 changed files
with
9 additions
and
7 deletions
Show diff stats
src/idl/dustem_check_data.pro
| ... | ... | @@ -247,7 +247,7 @@ IF KEYWORD_SET(ext) THEN begin |
| 247 | 247 | qexst.sigma=sqrt(abs(ext.sigextQQ)) |
| 248 | 248 | ;Testig if there is EXT_P data. If not move to EXT_U testing |
| 249 | 249 | ind = where(ext.EXT_Q NE la_undef() and finite(ext.EXT_Q) EQ 1 and ext.sigextQQ NE la_undef() and finite(ext.sigextQQ) EQ 1,NQ_ext) ;Testing if the data and errors are set |
| 250 | - ;stop | |
| 250 | + ;dustem_set_data.prostop | |
| 251 | 251 | IF NQ_ext EQ 0 THEN BEGIN |
| 252 | 252 | qexst = ptr_new() |
| 253 | 253 | goto, uexzone |
| ... | ... | @@ -315,6 +315,6 @@ ENDIF |
| 315 | 315 | |
| 316 | 316 | |
| 317 | 317 | RETURN, 0. |
| 318 | -stop | |
| 318 | +;stop | |
| 319 | 319 | |
| 320 | 320 | END | ... | ... |
src/idl/dustem_plot_fit_sed.pro
| ... | ... | @@ -233,7 +233,7 @@ IF keyword_set(legend_ypos) THEN use_legend_ypos=legend_ypos |
| 233 | 233 | IF keyword_set(legend_offset) THEN use_legend_offset=legend_offset |
| 234 | 234 | |
| 235 | 235 | IF !d.name NE 'PS' THEN cleanplot |
| 236 | -oo=0 | |
| 236 | +;oo=0 | |
| 237 | 237 | tg=0 |
| 238 | 238 | prv_str='' |
| 239 | 239 | IF keyword_set(res) THEN BEGIN |
| ... | ... | @@ -303,9 +303,12 @@ IF keyword_set(res) THEN BEGIN |
| 303 | 303 | yypos=use_legend_ypos-(i-k)*use_legend_offset |
| 304 | 304 | xyouts,xxpos,yypos,str,color=0,/normal,charsize=legend_charsize |
| 305 | 305 | endif else begin |
| 306 | - IF STRUPCASE(strmid(strtrim(parameter_description,2),0,24)) eq '(*!DUSTEM_PARAMS).GRAINS' then begin | |
| 307 | - oo+=1 | |
| 308 | - string_name=(((*!dustem_params).GRAINS).grain_type)[oo-1] | |
| 306 | + IF STRUPCASE(strmid(strtrim(parameter_description,2),0,24)) eq '(*!DUSTEM_PARAMS).GRAINS' and STRUPCASE(strmid(strtrim(parameter_description,2),3,1,/reverse_offset)) EQ 'O' then begin | |
| 307 | + indpop=fix(STRUPCASE(strmid(strtrim(parameter_description,2),12,1,/reverse_offset))) | |
| 308 | + ;oo+=1 | |
| 309 | + ;string_name=(((*!dustem_params).GRAINS).grain_type)[oo-1] | |
| 310 | + string_name=(((*!dustem_params).GRAINS).grain_type)[indpop] | |
| 311 | + ;stop | |
| 309 | 312 | endif |
| 310 | 313 | k+=1 |
| 311 | 314 | xxpos=use_legend_xpos*1.5 | ... | ... |
src/idl/dustem_set_data.pro
| ... | ... | @@ -153,7 +153,6 @@ IF keyword_set(rchi2_weight) THEN BEGIN |
| 153 | 153 | !fit_rchi2_weight.sed = rchi2_weight.sed |
| 154 | 154 | !fit_rchi2_weight.ext = rchi2_weight.ext |
| 155 | 155 | |
| 156 | - | |
| 157 | 156 | IF !run_pol THEN BEGIN |
| 158 | 157 | IF isa(pst) THEN !fit_rchi2_weight.polsed = rchi2_weight.polsed |
| 159 | 158 | IF isa(qst) THEN !fit_rchi2_weight.qsed = rchi2_weight.qsed | ... | ... |