Commit 909b77f6d3e3887fe3d833a13634f468a1794f08
1 parent
cbf9f937
Exists in
master
moved dustem_define_isrf_stellar_modifyer_variable.pro to ONHOLD outside repo
Showing
1 changed file
with
0 additions
and
28 deletions
Show diff stats
src/idl/dustem_define_isrf_stellar_modifyer_variable.pro deleted
| ... | ... | @@ -1,28 +0,0 @@ |
| 1 | -FUNCTION dustem_define_isrf_stellar_modifyer_variable,stellar_values=stellar_values | |
| 2 | - | |
| 3 | -one_st={radius:0.,temperature:0.,distance:0.,amplitude:0.} | |
| 4 | - | |
| 5 | -IF not keyword_set(stellar_values) THEN BEGIN | |
| 6 | - ;The defaults is one sun at 1au, but with zero amplitude | |
| 7 | - Nstar=1 | |
| 8 | - st=replicate(one_st,Nstar) | |
| 9 | - one_pc=3.08e16 | |
| 10 | - one_au=1.49e11 | |
| 11 | - st[0].radius=1. ;Rsun | |
| 12 | - st[0].temperature=5770. ;K | |
| 13 | - st[0].distance=one_au/one_pc ;pc | |
| 14 | - st[0].amplitude=0. ;-- | |
| 15 | - status=1 | |
| 16 | -ENDIF ELSE BEGIN | |
| 17 | - Nstars=n_elements(stellar_values) | |
| 18 | - ;st=replicate(one_st,Nstar) | |
| 19 | - st=stellar_values | |
| 20 | - status=2 | |
| 21 | -ENDELSE | |
| 22 | - | |
| 23 | -defsysv,'!dustem_isrf_star_add',st | |
| 24 | -message,'defined !dustem_isrf_star_add',/continue | |
| 25 | - | |
| 26 | -RETURN,status | |
| 27 | - | |
| 28 | -END | |
| 29 | 0 | \ No newline at end of file |