anchor.diff:    logical :: partfunc_do = .true., filter = .false., histogram = .false., hitran_do = .false.,  histogramJ = .false., &
                stick_hitran = .false.,stick_oxford = .false.,vibtemperature_do = .false., spectra_do = .false., &
                vibpopulation_do = .false., super_energies_do = .false., super_Einstein_do = .false., &
  -             uncertainty_filter = .false.
  +             uncertainty_filter_do = .false.
     logical :: lineprofile_do = .false., use_width_offset = .false.
     logical :: microns = .false.
     logical :: use_resolving_power = .false.  ! using resolving for creating the grid
  
positive.code:     !
    end type CutoffT
  
    type QNT ! broadener
      !
      integer(ik) :: Kcol=1                ! Column with K 
      integer(ik) :: statecol=7            ! State column
  
negative.code:     write(a_fmt,'(I3)') nchar
      write(a_fmt,'("a",a3)') adjustl(a_fmt)
      !
      write(my_fmt,'(a,a4,a,a4,a)')  '(1x,f16.6,1x,es16.8,1x,es11.4,1x,f5.1,1x,f12.4," <- ",f5.1,1x,f12.4,5x)'
      !
      do
          call read_line(eof) ; if (eof) exit
  