anchor.diff:           endif
            !
            call read_line(eof) ; if (eof) exit
  -         call reada(w)
  -         v = trim(w)
  +         call reada(vl)
  +         vl = trim(vl)
  +         w = trim(vl)
            call upcase(w)
            !
            do while (trim(w)/="".and.trim(w)/="END")
  
positive.code:     !
      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,igrid
      type(HitranErrorT),pointer :: HITRAN
      real(rk) :: f_t
  
negative.code:            endif
             !
             call read_line(eof) ; if (eof) exit
             call reada(vl)
             vl = trim(vl)
             w = trim(vl)
             call upcase(w)
             !
           enddo
  