dustem_write_lambda.pro 223 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17


PRO dustem_write_lambda,file,st

;stop
openw,unit,file,/get_lun

Nwaves=n_elements(st)
printf,unit,fix(st(0).lambda)

FOR i=1L,Nwaves-1 DO BEGIN
  printf,unit,st(i).lambda,format=frmt
ENDFOR

close,unit
free_lun,unit

END