diff --git a/src/idl/dustem_set_params.pro b/src/idl/dustem_set_params.pro
index 640c629..add3b24 100755
--- a/src/idl/dustem_set_params.pro
+++ b/src/idl/dustem_set_params.pro
@@ -69,7 +69,9 @@ dustem_set_func_ind,*(*!dustem_fit).param_descs,params
 FOR i=0L,Nparams-1 DO BEGIN
     
    status=dustem_parameter_description2type((*(*!dustem_fit).param_descs)[i],string_name=string_name)
-   IF !dustem_verbose THEN message,(*(*!dustem_fit).param_descs)[i]+' is '+status,/continue
+   IF !dustem_verbose THEN BEGIN
+        message,(*(*!dustem_fit).param_descs)[i]+' is '+status,/continue
+   ENDIF
    
    CASE status OF
     'WRAPPER': BEGIN
diff --git a/src/idl/dustem_write_gas.pro b/src/idl/dustem_write_gas.pro
index 2ab4c99..cb9d3fc 100755
--- a/src/idl/dustem_write_gas.pro
+++ b/src/idl/dustem_write_gas.pro
@@ -76,63 +76,21 @@ FOR i=0,Ncomments-1 DO BEGIN
   printf,unit,st.comments[i]
 ENDFOR
 
-;st={file:file, $
-;        Tgas:0.D0,nH:0.D0,nh2:0.D0,CR_rate:0.D0,G0:0.D0,n_charges:0L, $
-;        charges_props:ptr_new(), $
-;        comments:strarr(Ncomments)}
-;one_charge_st={density:0.D0,mass:0.D0,charge:0.D0,polarizability:0.D0}
-
 frmt='(5E14.6,I4)'
 printf,unit,st.Tgas,st.nH,st.nh2,st.CR_rate,st.G0,st.n_charges,format=frmt
 
 frmt='(3E14.6,F5.2)'
 FOR i=0L,st.n_charges-1 DO BEGIN
 	sst=(*st.charges_props)[i]
-  	printf,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
-  IF !dustem_verbose EQ 1 THEN BEGIN
-    print,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
-  ENDIF
+  printf,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
+  ;IF !dustem_verbose EQ 1 THEN BEGIN
+  ;  print,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
+  ;ENDIF
 ENDFOR
 
 close,unit
 free_lun,unit
+;stop
 
 the_end:
-END
-
-
-; ;==== LEFT OVERS
-; 
-; PRO dustem_write_gas,dir,st
-; 
-; 
-; ;Writes ALL the GAS_xxx.DAT files
-; ;stop
-; 
-; comments=st.comments
-; Ncomments=n_elements(comments)
-;       
-; frmt='(A)'
-; 
-; ;Get filename
-; ffile=st.file
-; fv=str_sep(ffile,'/')
-; file=dir+fv(n_elements(fv)-1)
-; ;Open file
-; message,'Will write GAS file '+file,/continue
-; openw,unit,file,/get_lun
-; ;Print comments
-; IF Ncomments NE 0 THEN BEGIN
-;   FOR ii=0,Ncomments-1 DO BEGIN
-;     printf,unit,comments[ii]
-;   ENDFOR
-; ENDIF
-; ;print data
-; FOR k=0L,n_elements(st.fgas)-1 DO BEGIN
-;   printf,unit,(st.fgas)[k],format=frmt
-; ENDFOR
-; close,unit
-; free_lun,unit
-; 
-; END
-; 
+END
\ No newline at end of file
--
libgit2 0.21.2