Commit da01e0aa88c7af017166522feb2979a3b03e48e7
1 parent
8c5a6a07
Exists in
master
comments editing / removed stops
Showing
3 changed files
with
4 additions
and
11 deletions
Show diff stats
src/idl/dustem_read_qabs_lv.pro
| 1 | 1 | FUNCTION dustem_read_qabs_lv,file,silent=silent,read_densities=read_densities |
| 2 | 2 | |
| 3 | -;stop | |
| 4 | - | |
| 5 | 3 | st='' |
| 6 | 4 | Nmax=10000L |
| 7 | 5 | sts=strarr(Nmax) |
| ... | ... | @@ -28,7 +26,7 @@ IF keyword_set(read_densities) THEN BEGIN |
| 28 | 26 | IF st EQ '#### Qabs ####' THEN BEGIN |
| 29 | 27 | message,'Problem with size dependent densities in Qabs.DAT',/continue |
| 30 | 28 | ;stop |
| 31 | - ENDIF | |
| 29 | + ENDIF | |
| 32 | 30 | densities=float(str_sep(strcompress(strtrim(st,2)),' ')) |
| 33 | 31 | ENDIF ELSE BEGIN |
| 34 | 32 | densities=fltarr(Nsizes)+la_undef() |
| ... | ... | @@ -53,7 +51,6 @@ WHILE first_char NE '#' DO BEGIN |
| 53 | 51 | first_char=strmid(st,0,1) |
| 54 | 52 | ENDWHILE |
| 55 | 53 | qabs_str=sts[0:nlines-2] |
| 56 | -;stop | |
| 57 | 54 | |
| 58 | 55 | ;==read comments |
| 59 | 56 | str='' & first_char='#' |
| ... | ... | @@ -83,7 +80,7 @@ Nlines=n_elements(qsca_str) |
| 83 | 80 | |
| 84 | 81 | qabs_values=fltarr(Nlines,Ncol) |
| 85 | 82 | qsca_values=fltarr(Nlines,Ncol) |
| 86 | -;stop | |
| 83 | + | |
| 87 | 84 | FOR i=0L,Nlines-2 DO BEGIN |
| 88 | 85 | qabs_values(i,*)=str_sep(strcompress(strtrim(qabs_str(i),2)),' ') |
| 89 | 86 | qsca_values(i,*)=str_sep(strcompress(strtrim(qsca_str(i),2)),' ') | ... | ... |
src/idl/dustem_write_gas.pro
| 1 | - | |
| 2 | 1 | PRO dustem_write_gas,file,st |
| 3 | 2 | |
| 4 | -;=== Format for DUSTEM_WHICH=WEB3p8 | |
| 3 | +;=== Format for DUSTEM_WHICH=WEB3p8/RELEASE | |
| 5 | 4 | ;# DUSTEM : Gas quantities from Ysard, Juvela & Verstraete (2011) |
| 6 | 5 | ;# |
| 7 | 6 | ;# Gas temperature (K), hydrogen density, H2 density, CR rate, G0 (if>0 supersedes GRAIN.DAT) |
| ... | ... | @@ -14,9 +13,6 @@ PRO dustem_write_gas,file,st |
| 14 | 13 | ;0e0 1.00794e0 1e0 0.67 |
| 15 | 14 | ; -1.3000e-05 12.0107e0 1e0 1.54 |
| 16 | 15 | |
| 17 | -;stop | |
| 18 | -; I'm going to modify this | |
| 19 | - | |
| 20 | 16 | Ncomments=n_elements(st.comments) |
| 21 | 17 | |
| 22 | 18 | openw,unit,file,/get_lun | ... | ... |
src/idl/dustem_write_grain_release.pro
| 1 | 1 | PRO dustem_write_grain_release,file,st |
| 2 | 2 | |
| 3 | -;Remark: It is a bit odfd that this is using both st and (*!dustem_params) | |
| 3 | +;Remark: It is a bit odd that this is using both st and (*!dustem_params) | |
| 4 | 4 | ;Remark: This should use automated comment detection, as in dustem_write_gas.pro |
| 5 | 5 | |
| 6 | 6 | ;stop | ... | ... |