OV-GSO-DC / dustem-wrapper_idl

Commit dd194767c854f509030590d6e5c39b30815bf192

Authored by Jean-Philippe Bernard
1 parent 43f5ed1b
Exists in master

removed some prints

Showing 2 changed files with 9 additions and 49 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_set_params.pro
  Diff comments   View file @dd19476
... ... @@ -69,7 +69,9 @@ dustem_set_func_ind,*(*!dustem_fit).param_descs,params
69 69 FOR i=0L,Nparams-1 DO BEGIN
70 70  
71 71 status=dustem_parameter_description2type((*(*!dustem_fit).param_descs)[i],string_name=string_name)
72   - IF !dustem_verbose THEN message,(*(*!dustem_fit).param_descs)[i]+' is '+status,/continue
  72 + IF !dustem_verbose THEN BEGIN
  73 + message,(*(*!dustem_fit).param_descs)[i]+' is '+status,/continue
  74 + ENDIF
73 75  
74 76 CASE status OF
75 77 'WRAPPER': BEGIN
... ...
src/idl/dustem_write_gas.pro
  Diff comments   View file @dd19476
... ... @@ -76,63 +76,21 @@ FOR i=0,Ncomments-1 DO BEGIN
76 76 printf,unit,st.comments[i]
77 77 ENDFOR
78 78  
79   -;st={file:file, $
80   -; Tgas:0.D0,nH:0.D0,nh2:0.D0,CR_rate:0.D0,G0:0.D0,n_charges:0L, $
81   -; charges_props:ptr_new(), $
82   -; comments:strarr(Ncomments)}
83   -;one_charge_st={density:0.D0,mass:0.D0,charge:0.D0,polarizability:0.D0}
84   -
85 79 frmt='(5E14.6,I4)'
86 80 printf,unit,st.Tgas,st.nH,st.nh2,st.CR_rate,st.G0,st.n_charges,format=frmt
87 81  
88 82 frmt='(3E14.6,F5.2)'
89 83 FOR i=0L,st.n_charges-1 DO BEGIN
90 84 sst=(*st.charges_props)[i]
91   - printf,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
92   - IF !dustem_verbose EQ 1 THEN BEGIN
93   - print,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
94   - ENDIF
  85 + printf,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
  86 + ;IF !dustem_verbose EQ 1 THEN BEGIN
  87 + ; print,unit,sst.density,sst.mass,sst.charge,sst.polarizability,format=frmt
  88 + ;ENDIF
95 89 ENDFOR
96 90  
97 91 close,unit
98 92 free_lun,unit
  93 +;stop
99 94  
100 95 the_end:
101   -END
102   -
103   -
104   -; ;==== LEFT OVERS
105   -;
106   -; PRO dustem_write_gas,dir,st
107   -;
108   -;
109   -; ;Writes ALL the GAS_xxx.DAT files
110   -; ;stop
111   -;
112   -; comments=st.comments
113   -; Ncomments=n_elements(comments)
114   -;
115   -; frmt='(A)'
116   -;
117   -; ;Get filename
118   -; ffile=st.file
119   -; fv=str_sep(ffile,'/')
120   -; file=dir+fv(n_elements(fv)-1)
121   -; ;Open file
122   -; message,'Will write GAS file '+file,/continue
123   -; openw,unit,file,/get_lun
124   -; ;Print comments
125   -; IF Ncomments NE 0 THEN BEGIN
126   -; FOR ii=0,Ncomments-1 DO BEGIN
127   -; printf,unit,comments[ii]
128   -; ENDFOR
129   -; ENDIF
130   -; ;print data
131   -; FOR k=0L,n_elements(st.fgas)-1 DO BEGIN
132   -; printf,unit,(st.fgas)[k],format=frmt
133   -; ENDFOR
134   -; close,unit
135   -; free_lun,unit
136   -;
137   -; END
138   -;
  96 +END
139 97 \ No newline at end of file
... ...