pro spectralib

;+
; NAME:
;  spectralib
; PURPOSE: (one line)
;   Add non-standard system variable for use with spectra library
; DESCRIPTION:
;   Add the following:
;     !hitrandir - the directory containing the HITRAN databases
; CATEGORY:
;  Spectra
; CALLING SEQUENCE:
;  spectralib
; INPUTS:
;  none
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  None.
; COMMON BLOCKS:
;  None.
; SIDE EFFECTS:
;  Defines the system variables using defsysv
; RESTRICTIONS:
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2000 April, by Leslie Young, SwRI
;  Added to "layoung" library 2000 October, by Leslie Young, SwRI
;-

on_error, 2

; Don't add it if it already exists.
DEFSYSV, '!spectralib', EXISTS = i
IF i EQ 1 THEN return

case  !version.os of
  'MacOS':  delim = ':'  
  'vms':    delim = ':'  
  'windows':    delim = '\'  
  'Win32':    delim = '\'  
  else:  delim = '/' 
endcase

chemname=[ "H2O" ,"CO2" , "O3"  , "N2O" , "CO" ,"CH4" ,"O2" , "NO" , $ 
"SO2" ,"NO2" , "NH3" , "HNO3", "OH" , "HF" , "HCl" ,"HBr" , $
"HI" , "ClO" , "OCS" ,"H2CO" , "HOCl" , "N2" ,"HCN" , "CH3Cl", $
"H2O2" , "C2H2" , "C2H6" , "PH3" , "COF2" , "SF6" , "H2S" , $
"HCOOH" , "HO2" , "O" , "ClONO2" , "NO+"] 

;qtname='Oseola:reference:HITRAN_CDROM:SOFTWARE:GENERIC:QT.DAT'
qtname='/Users/layoung/reference/HITRAN_CDROM/SOFTWARE/GENERIC/QT.DAT'
initPartitionFunction, qtname, nmole, nspeci, isovec, q296, qcoef

defsysv, '!spectralib', $
 { $
hitrandir:  '/Users/layoung/reference/HITRAN_CDROM/HITRAN96/',  $
by_molecdir: '/Users/layoung/reference/HITRAN_CDROM/HITRAN96/BY_MOLEC/', $
nmole:nmole, $
nspeci:nspeci, $
chemname:chemname, $
isovec:isovec, $
q296:q296, $
qcoef:qcoef $
}

message, $
  'Spectra library system variable (!spectralib) have been added', /inf

end