%; Time-stamp: <2001-10-22 13:57:32 dph> 
%; MIT Directory: ~dph/libisis
%; File: line_free_regs.sl
%; Author: .D. Huenemoerder, based on prototype by C.Baluta.
%; Original version: 2001.10.22
%;====================================================================
% version: 1
%
% Purpose: Defines line-free regions for coronal spectrum.
%          Based on AR Lac ad hoc model, which has broad temperature
%          distribution.   Ignores all in histogram list, i, then
%          notices the regions.

%
% Syntax: ()=line_free_regs(i);
%
%  i is the index of the data to notice, and can be an array.

define line_free_regs(i)
{

  variable wav_min = [
    1.9,  
    3.25, 
    4.05, 
    5.25, 
    6.25, 
    6.8,  
    10.85,
    11.6, 
    16.4, 
    17.15,
    17.7, 
    19.05,
    22.2
    ];

  variable wav_max = [
    2.9,  
    3.65, 
    4.7,  
    6.0,  
    6.6,  
    7.05, 
    10.95,
    11.7, 
    16.7, 
    17.55,
    18.6, 
    21.5, 
    24.5
    ]; 

  variable j;
  
  ignore(i);                 % first, ignore all histograms, i.

                            % now notice each region in histograms, i.

  for ( j = 0; j < length( wav_min ); j++ )  

    notice(i, wav_min[j], wav_max[j] );
  
  return 0;

}