function new_specline96

;+
; NAME:
;  new_specline
; PURPOSE: (one line)
;  Create an empty spectral line structure for HITRAN96
; DESCRIPTION:
;   mol                molecule index
;   iso                 isotope index
;   nu0                 frequency in cm^-1
;   s                   intensity in cm^-1/(molecule cm^-2)
;   r2                  transition probability squared in Debye^2
;   gamma_air           air-broadened halfwidth (HWHM) in cm^-1 at specified pressure
;   gamma_self          self-broadened halfwidth (HWHM) in cm^-1 at specified pressure
;   E_lower             lower state energy in cm^-1
;   n                   coef. of temperature dependence of air-broadened halfwidth
;   delta               air-broadened pressure shift of the line transition in cm^-1/atm
;   v_upper             upper state global quanta index
;   v_lower             lower state global quanta index
;   Q_upper             upper state global quanta index
;   Q_lower             lower state global quanta index
;   ier                 accuracy indices for frequency, intensity,
;                        and air-broadened halfwidth
;   iref                indices for table of references corresponding to
;                         frequency, intensity, and air-broadened halfwidth
;   t                   temperature for s, gamma_air, and gamma_self
;   p                   pressure in microbar, for air-broadened half-width
;   dopw                doppler width (Goody&Yung definition), cm^-1
; 
;   temperature, etc of original source
;   t_orig 
;   p_orig
;   s_orig 
;   gamma_air_orig    ; air-broadened halfwidth (HWHM) in cm/atm
;   gamma_self_orig 
; CATEGORY:
;  Spectra
; CALLING SEQUENCE:
;  specline = new_specline()
; INPUTS:
;  None
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  empty spectral line structure
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
; RESTRICTIONS:
;  Tailored for HITRAN
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2000 October, by Leslie Young, SwRI
;  2005 March LAY changed floats to doubles
;-

line = create_struct( name='specline', $
 'mol',0,  'iso',0, 'nu0',0.0d, 's',0.0d, 'r2',0.0d,  'gamma_air',0.0d, 'gamma_self',0.0d, $
 'E_lower',0.0d, 'n',0.0d,  'delta',0.0d, 'v_upper',0, 'v_lower',0 , $
 'Q_upper',' ', 'Q_lower',' ', 'ier',[0,0,0], 'iref',[0,0,0], 't', 0.0d,  'p', 0.0d, $
 'dopw', 0.0d, $
 't_orig',0.0d, 'p_orig',0.0d, 's_orig',0.0d, 'gamma_air_orig',0.0d, 'gamma_self_orig',0.0d $
)

return, line 
end