a JP /BUT HAS FAULTY DUSTEM_CREATE_SYNCHROTRON

Ilyes Choubani
1 parent 7f2b2149
Showing 3 changed files with 63 additions and 51 deletions Show diff stats
src/idl/dustem_activate_plugins.pro
src/idl/dustem_create_continuum.pro
src/idl/dustem_init_plugins.pro
@@ -94,6 +94,8 @@ FOR i=0L,n_elements(p_min)-1 DO BEGIN
 ;             str='((*!dustem_scope).('+strtrim(k,2)+'))=ptr_new('+ftn+'(/scope)'+')'[0]
             ;str=str(0)
             toto=execute(str)
+            
+            print, scope
             (*!dustem_scope).(k)=ptr_new(scope)
             ;str='((*!dustem_scope).('+strtrim(k,2)+'))=ptr_new('+ftn+'(/scope)'+')'[0]
  
@@ -38,18 +38,12 @@ FUNCTION dustem_create_continuum,key=key,val=val,scope=scope,help=help
  
 IF keyword_set(help) THEN BEGIN
   doc_library,'dustem_create_continuum'
-  ;output=0.
+  output=0.
   goto,the_end
 ENDIF
  
  
-IF keyword_set(scope) THEN BEGIN
 scope='ADD_SED'
-output=scope
-goto, the_end
-ENDIF
-
-
  
  
 ;default values of input parameters
@@ -7,6 +7,7 @@ varvar=create_struct(&#39;varvar&#39;,ptr_new())
  
 plugin_names=['']
 plugind_detect_string='dustem_create'
+
 for i=0L,n_elements(pd)-1 do begin
     fi=strtrim(strmid(pd(i),0,strlen(plugind_detect_string)),2)
     if fi eq plugind_detect_string then begin
@@ -17,55 +18,70 @@ for i=0L,n_elements(pd)-1 do begin
         plugin_names=[plugin_names,ftn]
     ENDIF
 ENDFOR
+
 plugin_names=plugin_names[1:*]
 order=sort(plugin_names)
 plugin_names=plugin_names[order]
 un=uniq(plugin_names)
 plugin_names=plugin_names[un]
-Npluggins=n_elements(plugin_names)
-
-IF Npluggins NE 0 THEN BEGIN
-
-    varvar=create_struct(plugin_names,ptr_new())
-    defsysv, '!dustem_scope', ptr_new(varvar)
-ENDIF ELSE BEGIN
-
-ENDELSE
-
-defsysv, '!dustem_scope', ptr_new(varvar)
-
-for i=0L,n_elements(pd)-1 do begin
-
-    fi=strtrim(strmid(pd(i),0,13),2)
-
-    test=(n_tags(varvar) eq 1 && tag_exist(varvar,'varvar'))
-
-    if fi eq 'dustem_create' then begin
-        stop
-        ftn = strmid((*(*!dustem_fit).param_descs)(i),0) ; String containing the name of the plugin and the keyword used (ie: dustem_create_continuum_2)    
-        ii = strsplit(ftn,'_',count=countx)
-        ii = ii(countx-1)-1 ; Locating the last underscore to automate the extraction of the plugin's keyword
-        ftn = strmid(ftn,14,ii-14) ; String containing the name of the plugin without the associated keyword
-        plugin_name=ftn
-
-        fii=strtrim(strmid(pd(i),14,4),2)
-
-        j=0L
-        if i eq 0 then j=2
-        if i eq n_elements(pd)-1 then j=1
-
-        trl=fii eq strtrim(strmid(pd(i+j-1),14,4),2)
-
-        if i eq 0 && trl then trl=0 else trl=fii eq strtrim(strmid(pd(i+j-1),14,4),2)
-
-
-        if test && (~trl) then varvar=create_struct(plugin_name,ptr_new())
-        if (~test) && (~trl) then varvar=create_struct(varvar,plugin_name,ptr_new())
-
-
-    endif
-
-endfor
+Nplugins=n_elements(plugin_names)
+
+IF Nplugins NE 0 THEN BEGIN
+    
+    IF Nplugins GT 1 THEN BEGIN ;case of multiple plugins
+    
+        str_ptrs=replicate('ptr_new()',Nplugins)
+        str_ptrs=strjoin(ini,',')
+        str_plgnms=strjoin(plugin_names,',')
+                
+        str='varvar=create_struct('+str_plgnms+','+str_ptrs+')'
+        toto=execute(str)
+
+        defsysv, '!dustem_scope', ptr_new(varvar)
+    
+   ENDIF ELSE BEGIN ;case of one plugin
+   
+           varvar=create_struct(plugin_names,ptr_new())
+           defsysv, '!dustem_scope', ptr_new(varvar)
+         ENDELSE 
+
+ENDIF 
+
+
+
+; 
+; for i=0L,n_elements(pd)-1 do begin
+; 
+;     fi=strtrim(strmid(pd(i),0,13),2)
+; 
+;     test=(n_tags(varvar) eq 1 && tag_exist(varvar,'varvar'))
+; 
+;     if fi eq 'dustem_create' then begin
+;         stop
+;         ftn = strmid((*(*!dustem_fit).param_descs)(i),0) ; String containing the name of the plugin and the keyword used (ie: dustem_create_continuum_2)    
+;         ii = strsplit(ftn,'_',count=countx)
+;         ii = ii(countx-1)-1 ; Locating the last underscore to automate the extraction of the plugin's keyword
+;         ftn = strmid(ftn,14,ii-14) ; String containing the name of the plugin without the associated keyword
+;         plugin_name=ftn
+; 
+;         fii=strtrim(strmid(pd(i),14,4),2)
+; 
+;         j=0L
+;         if i eq 0 then j=2
+;         if i eq n_elements(pd)-1 then j=1
+; 
+;         trl=fii eq strtrim(strmid(pd(i+j-1),14,4),2)
+; 
+;         if i eq 0 && trl then trl=0 else trl=fii eq strtrim(strmid(pd(i+j-1),14,4),2)
+; 
+; 
+;         if test && (~trl) then varvar=create_struct(plugin_name,ptr_new())
+;         if (~test) && (~trl) then varvar=create_struct(varvar,plugin_name,ptr_new())
+; 
+; 
+;     endif
+; 
+; endfor
  
  
 test=(n_tags(varvar) eq 1 && tag_exist(varvar,'varvar'))