! 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