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,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 | \ No newline at end of file | 0 | \ No newline at end of file |