anchor.diff:      !
       implicit none
       !
  -    logical :: eof
  +    logical :: eof,if_halfwidth_defined = .false., if_species_defined = .false.
       character(len=cl) :: w,v
       integer(ik)   :: i,ifilter,iE,iS,npoints0,ierror
       type(HitranErrorT),pointer :: HITRAN
  
positive.code:   type(selectT),save :: upper(filtermax),lower(filtermax)
    type(QNT),save :: QN
    !
    integer(ik)    :: Nspecies = 0, Nfilters = 0
    type(speciesT),save :: species(nspecies_max)
    type(HitranErrorT),target,save :: HITRAN_E(HITRAN_max_ierr),HITRAN_S(HITRAN_max_ierr)
    type(HitranErrorT),target,save :: HITRAN_Air,HITRAN_Self,HITRAN_N,HITRAN_Delta
  
negative.code:   !
    type speciesT ! broadener
      !
      real(rk)       :: N = 0.0_rk      ! Voigt parameter N
      real(rk)       :: gamma = 0.05_rk ! Voigt parameter gamma
      real(rk)       :: ratio = 1.0_rk  ! Ratio
      real(rk)       :: T0    = 298_rk  ! Reference T, K
      real(rk)       :: P0    = 1.0_rk  ! Reference P, bar
      character(len=cl) :: name         ! Broadener number of quadrature points
  