anchor.diff:               !
                nchars_ = 0 
                !
  -             do kitem = 2,maxitems 
  +             do kitem = 3,maxitems 
                  !
                  !l = len(trim(quantum_numbers(kitem,ileveli)))
                  !
  
positive.code:            !
             if (stick_hitran) then 
               !
               write(out,"(i2,i1,f12.6,e10.3,e10.3,f5.4,f5.3,f10.4,f4.2,f8.6)",advance="no") &
                           hitran%molec_id,hitran%molec_iso_id,tranfreq,abscoef,acoef,&
                           species(1)%gamma,species(2)%gamma,&
                           energyi,species(1)%n,species(1)%delta
               !
               !
               nchars_ = 0 
               !
               do kitem = 2,maxitems 
                 !
                 l = len(trim(quantum_numbers(kitem,ilevelf)))
                 !
  
negative.code:           !
            hitran_do = .true.
            !
            if (nitems>1) then 
              call readu(w) 
              if (trim(w)/="READ".and.trim(w)/="WRITE") then 
                call report ("Illegal HITRAN keyword: only read and write are legal"//trim(w),.true.)
              endif
              !
              if (trim(w)=="WRITE") then
                !
                hitran_do = .false.
                stick_hitran = .true.
                !
              endif
              !
            endif
            !
          case ("SELECT","FILTER")
            !
            filter  = .true.
  