c------------------------------------------------------------------
c /weight/ - tables of weights for response weightings (action spectra
c            or instrumental response functions).
c
c Definitions:
c  Parameters (see params.inc)--
c   max_weights: maximum number of individual wavelength weights in table
c   max_w_fns:   maximum number of separate weighting functions (each 
c                corresponding to a different wavelength integral).
c   max_w_knots: maximum number of internal knots in tables
c  Common block--
c   weight:      table of individual wavelength weights
c   n_w_fns:     actual number of separate weighting functions
c   w_ix0:       pointers to first element of weight corresponding to 
c                each particular weighting function.  The last one points
c                to the next available element, and can be used to figure
c                out the last element for the last function.
c   w_ilam0:     pointers to wavelength table, indicating first wavelength
c                for each function
c   w_zero0:     table of low wavelength where the weight is equal to 0.
c   w_zero1:     table of high wavelength where the weight is equal to 0.      
c   n_w_knots:   number of internal knots in input weighting functions
c   w_knot_wt:   weighting function values at internal knots
c   w_name:      array of names of weighting functions
c
c Example:
c   n_w_fns=2
c   w_ix0=(0, 21, 28, x, x, x ...)  x => unused
c   w_ilam0=(199, 499, x, x, x, ...)
c
c   Then...
c   The first weighting function values are in weight(0) through weight(20).
c   They correspond to the 20 consecutive wavelengths starting at element 199
c     in the wavelength table
c
c   The second weighting function values are in weight(21) through weight(27)
c   They correspond to the 7 consecutive wavelengths starting at element 499
c     in the wavelength table
c
c NOTE: any routine that uses this include file must also include the
c  file 'params.inc'

      REAL*8 weight(0:max_weights-1)
      REAL*8 w_zero0(0:max_w_fns-1), w_zero1(0:max_w_fns-1)
      REAL*8 w_knot_wt(0:max_w_knots-1)
      INTEGER*4 n_w_fns, w_ix0(0:max_w_fns-1), w_ilam0(0:max_w_fns-1)
      INTEGER*4 n_w_knots, w_knot_ilam(0:max_w_knots-1)
      CHARACTER*10 w_name(0:max_w_fns-1)

      COMMON /weight/ weight, w_zero0, w_zero1, w_knot_wt,
     &      n_w_fns, n_w_knots, w_ix0, w_ilam0, w_name

      SAVE /weight/