pro changept_specline_array, lna, p, t

;+
; NAME:
;  changept_specline_array
; PURPOSE: (one line)
;  Change an array of lines to reflect a new temperature & pressure
; DESCRIPTION:
;  Given a spectral line structure and a temperature, update the strength,
;  air-broadened half-width, and doppler width.
; CATEGORY:
;  Spectra
; CALLING SEQUENCE:
;  changept_specline_array, ln, p, t
; INPUTS:
;  lna - an array of spectral line structures to be changed
;  p - the new pressure (microbar)
;  t - the new temperature for the line (K)
; OPTIONAL INPUT PARAMETERS:
;  none
; KEYWORD INPUT PARAMETERS:
;  none
; KEYWORD OUTPUT PARAMETERS:
;  none
; OUTPUTS:
;  None
; COMMON BLOCKS:
;  None
; SIDE EFFECTS:
;  Changes the following fields in the elements of lna:
;   s                   intensity in cm^-1/(molecule cm^-2)
;   gamma_air           air-broadened halfwidth (HWHM) in cm^-1 at specified pressure
;   p                   pressure for gamma_air
;   t                   temperature for s, gamma_air, and gamma_self
;   dopw                doppler width (Goody&Yung definition), cm^-1
; RESTRICTIONS:
;  1. Only works for molecules 1-7 (H2O, CO2, O3, N2O, CO, CH4, O2)
;  2. Assumes the partition function (Q) varies as temperature to some power
;  (c.f.. Steve Lord's ATRAN program), rather than using the full polynomial
;  expressions of select96.
;  3. Does not change gamma, the self-braodened halfwidth.
;  See changept_specline
; PROCEDURE:
; MODIFICATION HISTORY:
;  Written 2000 October, by Leslie Young, SwRI
;-


n=(size(lna))(1)

for i=0L, n-1 do begin
  ln = lna(i)
  changept_specline, ln, p, t
  lna(i)=ln
end

end