! cso_lines.astro ! read supplemental line catalog ! sradford 2014-01-12, 01-14 ! supplemental line catalog begin data gag_proc:cso_lines.dat !**************************************************************** ! CSO bands ! absent from standard IRAM/ALMA line catalog !**************************************************************** ! 460 GHz band 434.120161 'SiO 10-9' 440.76543 '\\u13\\dCO 4-3' 461.040811 'CO 4-3' 461.46503 'NH\d2-3' 462.3354 '\\u13\\dCS 10-9' 462.43351 'NH\d2-1' 462.43351 'NH\d2-U' 464.92452 'HDO101-000' 466.244426 'NH3V1' 466.246 'NH3-G' 469.44062 'NH\d2-2' 470.88895 'H\d2O-G' 477.504547 'SIO11-10' 481.916 'C34S10-9' 489.751 'CS10-9' 492.1607 'CI1-0' 507.1756 'H23ALPHA' ! 850 GHz band 806.6517200 'CO 7-6' 809.3432000 'CI 2-1' end data ! does data file exist? if (.not.file("gag_proc:cso_lines.dat")) then return endif if (.not.exist(cso)) then def struct cso /global endif if (exist(cso%line)) then del /var cso%line endif def struct cso%line /global def int cso%line%n /g ! number of lines in catalog ! line catalog col x 1 /file gag_proc:cso_lines.dat col /close let cso%line%n nxy def real cso%line%freq[cso%line%n] /g ! line frequencies def char*20 cso%line%name[cso%line%n] /g ! line ids accept cso%line%freq cso%line%name /col gag_proc:cso_lines.dat