anchor.diff:      !
       implicit none
       !
  -    logical :: eof,if_halfwidth_defined = .false., if_species_defined = .false.
  +    logical :: eof,if_halfwidth_defined = .false., if_species_defined = .false., if_QN_defined = .false.
       character(len=cl) :: w,v
       integer(ik)   :: i,ifilter,iE,iS,npoints0,ierror
       type(HitranErrorT),pointer :: HITRAN
  
positive.code:    !
     nswap = 0
     Noffset = max(nint(offset/dfreq,ik),1)
     !
     if (verbose>=3) print('(/"Transition files ... "/)')
     !
  
negative.code:           !
            call read_line(eof) ; if (eof) exit
            call readu(w)
            !
            if_QN_defined = .true.
            !
            do while (trim(w)/="".and.trim(w)/="END")
              !
  