Merge branch 'master' of https://gitlab.irap.omp.eu/OV-GSO-DC/dustem-wrapper_idl

Annie Hughes
2 parents f197ecae 2449233a
Showing 2 changed files with 9 additions and 13 deletions Show diff stats
src/idl/dustem_plugin_stellar_population.pro
src/idl/dustem_stellarpopisrf_example.pro
@@ -95,7 +95,7 @@ paramtag=strarr(Nparam)
 ii=0L
 FOR i=0L,Nparam-1 DO BEGIN
         ij=index2ij([i],[Nstars,2])
-        IF ij[0,1] EQ 0 THEN cc='dist to' ELSE cc='N of '
+        IF ij[0,1] EQ 0 THEN cc='dist to ' ELSE cc='N of '
         paramtag[ii]=cc+spectral_types[ij[0,0]]
         ii=ii+1
 ENDFOR
@@ -118,23 +118,19 @@ dustem_define_la_common
 ;; Here we attempt to fit the distance to a single O7V star
 ;; Other ISRF contributions are fixed to ~zero
 toto=dustem_plugin_stellar_population(/initialize)
+;=== get the parameter tagnames
+toto=dustem_plugin_stellar_population(paramtag=paramtag)
  
-Nstars=n_elements(!dustem_plugin_stellar_population)
-params=fltarr(Nstars,2)
+;stop
 spt='O7V'
-ind=where(!dustem_plugin_stellar_population.spt EQ spt,count)
-ij=lonarr(2,2)
-ij[*,0]=ind
-ij[0,1]=0      ;This is N
-ij[1,1]=1      ;This is dist
-indexes=ij2index(ij,[Nstars,2])
-print,indexes
-
-pd = ['dustem_plugin_stellar_population_'+strtrim(indexes[0]+1,2)];          ;distance to O7V star
+ind1=where(paramtag EQ 'dist to '+spt,count1)
+ind2=where(paramtag EQ 'N of '+spt,count2)
+
+pd = ['dustem_plugin_stellar_population_'+strtrim(ind1+1,2)];          ;distance to O7V star
 true_vals =   [2.]                ; true distance to the star
 iv = true_vals+[1.]               ; distance we use as an initial guess
  
-fpd=['dustem_plugin_stellar_population_'+strtrim(indexes[1]+1,2) , $ ;number of O7V star (FIXED)
+fpd=['dustem_plugin_stellar_population_'+strtrim(ind2+1,2) , $ ;number of O7V star (FIXED)
      '(*!dustem_params).G0'] ; Mathis field (FIXED TO ~ZERO)
 fiv=[1.,1.e-12]