anchor.diff:     use  input
      !
      !
  +   real(rk)    :: hitran_Tref = 296_rk
      integer(ik) :: info,ipoint,nlevels,i,itemp,enunit,tunit,sunit,bunit,pfunit,j,j0,ilevelf,ileveli,indexi,indexf,iline,maxitems
      integer(ik) :: indexf_,indexi_,kitem,nlines,ifilter,k
      real(rk)    :: beta,ln2,ln22,dtemp,dfreq,temp0,beta0,intband,dpwcoef,tranfreq,abscoef,halfwidth0,tranfreq0,delta_air
  
positive.code:              abscoef_RAM(iswap_) = abscoef
               !
               if (lineprofile_do) then
                 gamma_RAM(iswap_)=halfwidth
                 gamma_idx_RAM(iswap_) = 0
               endif
               !
  
negative.code:                 nu_ram(iswap_) = nu_ram(iswap)
                  !
                  if (lineprofile_do) then
                    gamma_ram(iswap_)=gamma_ram(iswap)
                    gamma_idx_RAM(iswap_)=gamma_idx_RAM(iswap)
                  endif
                  !
  