anchor.diff:    !
     logical :: partfunc_do = .true., filter = .false., histogram = .false., hitran_do = .false.,  histogramJ = .false., stick_hitran = .false.
     logical :: microns = .false.
  -  logical :: use_resolving_power = .true.  ! using resolving for creating the grid
  +  logical :: use_resolving_power = .false.  ! using resolving for creating the grid
     !
     contains
     !
  
positive.code:    integer(ik) :: info,ipoint,nlevels,i,itemp,enunit,tunit,sunit,bunit,j,ilog,ib,ie,j0,ilevelf,ileveli,indexi,indexf,iline,maxitems,kitem,l,nlines,iquad,ifilter
     integer(ik) :: indexf_,indexi_
     real(rk)    :: beta,ln2,ln22,dtemp,dfreq,temp0,beta0,intband,dpwcoef,x0,tranfreq,tranfreq_i,abscoef,dfreq_,xp,xm,de,lor,b,lor2,dfreq_2,halfwidth0,dnu_half,dxp,tranfreq0
     real(rk)    :: cmcoef,emcoef,energy,energyf,energyi,elow,jf,ji,acoef,j0rk,bnorm,f,eta1,eta2,intens1,intens2,Va0,gammaV,a,wg,d
     real(rk)    :: sigma,alpha,gamma,y,x1,x2,voigt_,dx2,xi,L1,L2,acoef_,cutoff
     integer(ik) :: Jmax,Jp,Jpp,Kp,Kpp,J_,ispecies,alloc_p
     real(rk)    :: gamma_,n_
  
negative.code:           !
            histogram = .true.
            histogramJ = .true.
            !
         case ("NRAM","NLINES-TO-RAM")
            !
            call readi(N_to_RAM)
            !
          case ("HITRAN")
            !
  