read_data_src_list.pro (Kronos IDL library)

;+
; Contains the read_data_src_list procedure
;
; :Author:
;    Baptiste Cecconi
;
; :History:
;    2005/05/06: Created
;
;    2005/05/06: Last Edit
;-
;
;+
; read_data_src_list is a procedure that <behavior desc here>
;
; :Params:
;    src_list: in, required, type=sometype
;       A parameter named src_list
;
; :Keywords:
;    file:     in, optional, type=sometype
;       A keyword named file
;    verbose:  in, optional, type=sometype
;       A keyword named verbose
;-
PRO READ_DATA_SRC_LIST,src_list,file=file,verbose=verbose

if not(keyword_set(file)) then begin
    path_root_rpws = getenv('ROOT_RPWS')
    file_src_list = path_root_rpws+'/pro/src_list.txt'
endif else file_src_list=file
strline=''
src_list_tmp = {data_src_list}
src_list = src_list_tmp 

if keyword_set(verbose) then print,'Reading list of source in '+file_src_list

openr,lun,file_src_list,/get_lun
readf,lun,strline
while strmid(strline,0,1) eq '#' do readf,lun,strline
while strmid(strline,0,4) ne '#end' do begin
    strline_tmp = strsplit(strline,':',/extract)
    src_list_tmp.df_name = strline_tmp(0)
    src_list_tmp.uxse = strline_tmp(1)
    src_list_tmp.coor = strline_tmp(2)
    src_list_tmp.orig = strline_tmp(3)
    src_list_tmp.qeph = strline_tmp(4)
    src_list_tmp.veph = strline_tmp(5)
    src_list_tmp.need = strline_tmp(6)
    src_list_tmp.body_rad_name = strline_tmp(7)
    src_list_tmp.body_rad_value = float(strline_tmp(8))
    src_list_tmp.full_name = strline_tmp(9)
    if n_elements(strline_tmp) eq 12 then begin
        src_list_tmp.src_position = float(strline_tmp(10:12))
    endif else begin
        src_list_tmp.src_position = [0.,0.,0.]
   endelse
    src_list = [src_list,src_list_tmp]
    readf,lun,strline
end
src_list = src_list(1:*)
close,lun
free_lun,lun

return
end