diff --git a/src/idl/dustem_define_isrf_stellar_modifyer_variable.pro b/src/idl/dustem_define_isrf_stellar_modifyer_variable.pro deleted file mode 100755 index 18ce5be..0000000 --- a/src/idl/dustem_define_isrf_stellar_modifyer_variable.pro +++ /dev/null @@ -1,28 +0,0 @@ -FUNCTION dustem_define_isrf_stellar_modifyer_variable,stellar_values=stellar_values - -one_st={radius:0.,temperature:0.,distance:0.,amplitude:0.} - -IF not keyword_set(stellar_values) THEN BEGIN - ;The defaults is one sun at 1au, but with zero amplitude - Nstar=1 - st=replicate(one_st,Nstar) - one_pc=3.08e16 - one_au=1.49e11 - st[0].radius=1. ;Rsun - st[0].temperature=5770. ;K - st[0].distance=one_au/one_pc ;pc - st[0].amplitude=0. ;-- - status=1 -ENDIF ELSE BEGIN - Nstars=n_elements(stellar_values) - ;st=replicate(one_st,Nstar) - st=stellar_values - status=2 -ENDELSE - -defsysv,'!dustem_isrf_star_add',st -message,'defined !dustem_isrf_star_add',/continue - -RETURN,status - -END \ No newline at end of file -- libgit2 0.21.2