Baseline information (for spectra or drifts)

  ! Section -5
  ! BASE: Baseline information (for spectra of drifts).
  integer mwind
  integer mbase
  parameter (mwind=100,mbase=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
  end type base