Baseline information (for spectra or drifts)

  ! BASE: Baseline information (for spectra of drifts).
  integer(kind=4), parameter :: class_sec_bas_id=-5
  integer(kind=4), parameter :: mwind=100
  integer(kind=4), parameter :: class_sec_bas_len=8+2*mwind
  type base
     sequence
     integer(kind=4) :: deg         ! [         ] Degree of last baseline
     real(kind=4)    :: sigfi       ! [Int. unit] Sigma
     real(kind=4)    :: aire        ! [Int. unit] Area under windows
     integer(kind=4) :: nwind       ! [         ] Number of line windows
     real(kind=4)    :: w1(mwind)   ! [     km/s] Lower limits of windows
     real(kind=4)    :: w2(mwind)   ! [     km/s] Upper limits of windows
     real(kind=4)    :: sinus(3)    ! [         ] Sinus baseline results
  end type base