From d4f8829f1f999f66789785d17bc3c486dca6511d Mon Sep 17 00:00:00 2001
From: ichoubani <ilyes.choubani@irap.omp.eu>
Date: Thu, 29 Sep 2022 18:21:42 +0200
Subject: [PATCH] small cleaning

---
 src/idl/dustemwrap_plot.pro | 72 ++++++------------------------------------------------------------------
 1 file changed, 6 insertions(+), 66 deletions(-)

diff --git a/src/idl/dustemwrap_plot.pro b/src/idl/dustemwrap_plot.pro
index 58edcc9..16bfefb 100755
--- a/src/idl/dustemwrap_plot.pro
+++ b/src/idl/dustemwrap_plot.pro
@@ -1,6 +1,5 @@
 PRO dustemwrap_plot,p_dim,st,dustem_sed,SED_spec,dustem_qsed,Q_spec,dustem_used,U_spec,dustem_polsed,P_spec,dustem_polfrac,SP_spec,dustem_psi_em,PSI_spec,dustem_ext,EXT_spec,dustem_qext,QEXT_spec,dustem_uext,UEXT_spec,dustem_polext,POLEXT_spec,dustem_fpolext,SPEXT_spec,dustem_psi_ext,PSIEXT_spec,_extra=_extra 
 
-;stop
 
 ;This is also necessary for the plotting of the results of the fit (Last iteration) 
 IF not keyword_set(st) THEN BEGIN
@@ -67,9 +66,8 @@ ENDIF ELSE BEGIN ;st is provided
     endif
     
 ENDELSE 
-;stop
 
-;if ~windowavailable(cgquery()) then begin
+
 
 ;LIST OF TESTS THAT NEED TO BE RAN SO THAT THE PLOTTING OF THE MODEL SPECTRA OCCURS
 
@@ -555,33 +553,8 @@ if test_m then begin
       
 
     ENDIF
-        
-   ; end_m:
-    
-    ;cgcontrol, update=1
-;     varrr=cgquery(dimensions=dim_m) ;be careful because the dim_m array can be multi-dimensional because of the presence of two windows.
-;     cgcontrol, update=1
-;     cgcontrol, resize=[dim_m(0),dim_m(1)]
-;     
-    ;cgcontrol, resize=1
-;     cgcontrol,update=1
-;     cgcontrol,update=1
-        
-;     cgcontrol, resize=[!D.X_SIZE,!D.Y_SIZE]
-    
-    ;cgcontrol, update=1
-    ;cgcontrol, update=0
-    
-    
- ;   cgcontrol, update=1 
-    
-    
-    
-    
-    ;varr=cgquery(dimensions=dim_m,objectref=winobj_m)
-   ;stop
+      
     cgcontrol, winid_m, execute=1
-    ;cgcontrol, winid_m, execute=0      
          
 ENDIF 
 
@@ -836,8 +809,8 @@ if test_x then begin
         endelse       
     endelse
     
-    ;if ~!run_pol then begin;I don't think the order of the  ;goto, end_x
-      if !run_pol then begin ;then goto, end_x
+    
+      if !run_pol then begin 
         
         if ~test_qext then begin ;Qext is not present
             
@@ -982,45 +955,12 @@ if test_x then begin
 
     ENDIF
         
-   ; end_x:
-    
-    ;cgcontrol, update=1
-;     varrr=cgquery(dimensions=dim_m) ;be careful because the dim_m array can be multi-dimensional because of the presence of two windows.
-;     cgcontrol, update=1
-;     cgcontrol, resize=[dim_m(0),dim_m(1)]
-;     
-    ;cgcontrol, resize=1
-;     cgcontrol,update=1
-;     cgcontrol,update=1
-        
-;     cgcontrol, resize=[!D.X_SIZE,!D.Y_SIZE]
-    
-    ;cgcontrol, update=1
-    ;cgcontrol, update=0
-    
-    
-  ;   cgcontrol, update=1 
-    
-    
-    ;varr=cgquery(dimensions=dim_m,objectref=winobj_m)
-    ;stop
     cgcontrol, winid_x, execute=1
-    ;cgcontrol, winid_m, execute=0      
+     
           
 ENDIF 
 
 
-;Plotting of the parameter and plugin values / This will have to be placed after the extinction block which hasn't been 
-;written yet. 
-
-;This block will be different because it does not depend on wether dustemwrap is used in polarization or not
-
-
-;stop
-;Plotting the parameter window 
-;cgcontrol, execute=0
-
-
 IF ~iswinprms THEN BEGIN;(NEXT RUNS)
     
     winid_prms = !dustemcgwin_id.prms
@@ -1042,7 +982,7 @@ ENDELSE
 
 
 ;DISPLAY OF PLUGINS HAS A SMALL ISSUE
-IF (tag_names(*!dustem_plugin))(0) NE 'NONE' THEN BEGIN ;this will display an empty window when the plugin is only calle with a fixed value. 
+IF (tag_names(*!dustem_plugin))(0) NE 'NONE' THEN BEGIN  
 
     IF ~iswinplgns THEN BEGIN;(NEXT RUNS)
         
--
libgit2 0.21.2