removed anoying print

Jean-Philippe Bernard
1 parent acbfdcee
Showing 1 changed file with 5 additions and 5 deletions Show diff stats
src/idl/dustem_write_grain_release.pro
@@ -116,11 +116,11 @@ FOR i=0L,(*!dustem_params).ngrains-1 DO BEGIN
           st(i).zeta, $
           st(i).eta, $
           format=frmt
-   IF !dustem_verbose EQ 1 THEN BEGIN
-    ;stop
-    print,st(i).grain_type,st(i).nsize,st(i).type_keywords,st(i).mdust_o_mh,st(i).rho,st(i).amin,st(i).amax, $
-              st(i).alpha_o_a0, st(i).at,st(i).ac,st(i).gamma,st(i).au,st(i).zeta,st(i).eta,format=frmt
-  ENDIF
+   ;IF !dustem_verbose EQ 1 THEN BEGIN
+   ; ;stop
+   ; print,st(i).grain_type,st(i).nsize,st(i).type_keywords,st(i).mdust_o_mh,st(i).rho,st(i).amin,st(i).amax, $
+   ;           st(i).alpha_o_a0, st(i).at,st(i).ac,st(i).gamma,st(i).au,st(i).zeta,st(i).eta,format=frmt
+  ;ENDIF
 ENDFOR
  
 close,unit