OV-GSO-DC / dustem-wrapper_idl

Commit 1825ded0a0de2ac1cc9b5dc5846518a2310b8633

Authored by Jean-Philippe Bernard
2 parents 3f6fe9cc 6f8ede87
Exists in master

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

Showing 1 changed file with 7 additions and 4 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_compute_ext.pro
  Diff comments   View file @1825ded
... ... @@ -60,11 +60,14 @@ EXT_spec = st.ext.ext_tot * (*!dustem_HCD)/1.0e21 ;For any column density. Defau
60 60  
61 61  
62 62 ;ADDING PLUGIN TO SPECTRUM----------------
63   -scopes=tag_names((*!dustem_plugin))
64   -IF scopes[0] NE 'NONE' THEN BEGIN
  63 +;scopes=tag_names((*!dustem_plugin))
  64 +plugin_tags=(*!dustem_plugin).name
  65 +ind=where(plugin_tags NE 'NONE',Nplugins)
  66 +
  67 +IF Nplugins NE 'NONE' THEN BEGIN
65 68 ;IF ptr_valid(!dustem_plugin) THEN BEGIN
66   - for i=0L,n_tags(*!dustem_plugin)-1 do begin
67   - if total(strsplit((*(*!dustem_plugin).(i).scope),'+',/extract) eq 'ADD_EXT') then EXT_spec+=(*(*!dustem_plugin).(i).spec)[*,0]
  69 + for i=0L,Nplugins-1 do begin
  70 + if total(strsplit(((*!dustem_plugin)[i].scope),'+',/extract) eq 'ADD_EXT') then EXT_spec+=(*(*!dustem_plugin)[i].spec)[*,0]
68 71 endfor
69 72 ENDIF
70 73 ;------------------------------------------
... ...