Commit 117c8f36d41ba77623a0f7dc7dbc64ebb0356e30
1 parent
5b76b765
Exists in
master
modified to cope for wrong file GAS.DAT in the Fortran code delivery
Showing
1 changed file
with
5 additions
and
2 deletions
Show diff stats
src/idl/dustem_read_gas.pro
| ... | ... | @@ -94,8 +94,11 @@ CASE !dustem_which OF |
| 94 | 94 | ;modified because the file geometry did change !! |
| 95 | 95 | ;st.G0=double(strv[ii]) & ii=ii+1 |
| 96 | 96 | st.G0=double(strv[ii]) & ii=ii+1 |
| 97 | - readf,unit,str | |
| 98 | - strv=str_sep(strcompress(strtrim(str,2)),' ') & ii=0L | |
| 97 | + ;This for the version distributed by Nathalie | |
| 98 | + ;readf,unit,str | |
| 99 | + ;strv=str_sep(strcompress(strtrim(str,2)),' ') & ii=0L | |
| 100 | + ;st.n_charges=long(strv[ii]) | |
| 101 | + ;This for the right version, not distributed by Nathalie ! | |
| 99 | 102 | st.n_charges=long(strv[ii]) |
| 100 | 103 | charges_st=replicate(one_charge_st,st.n_charges) |
| 101 | 104 | FOR i=0L,st.n_charges-1 DO BEGIN | ... | ... |