Blame view

src/idl/dustem_read_lambda.pro 453 Bytes
427f1205   Jean-Michel Glorian   version 4.2 merged
1
2
FUNCTION dustem_read_lambda,file,silent=silent

b0cabd3c   Ilyes Choubani   general update
3
4
5
6
7
8
9
10
11
12
readcol,file,lambda,silent=silent 

;IC
;this will actually read the number of wavelengths as the first value in the output structure which is wrong. $
;ie st.(0)
;{
;    "LAMBDA": 800.00000
;}
;The wrapper has a fix elsewhere in dustem_get_wavelengths() but this should be fixed at this level.

427f1205   Jean-Michel Glorian   version 4.2 merged
13
14
15
16
17
18
19
20
Nlambda=n_elements(lambda)
one_st={lambda:0.}
st=replicate(one_st,Nlambda)
st.lambda=lambda

return,st

END