anchor.diff:               nu_ram(iswap) = tranfreq
                !
                if (lineprofile_do) then
  -                gamma_RAM(iswap)=get_Voigt_gamma_n(Nspecies,Jf,Ji)
  +                gamma_ram(iswap)=get_Voigt_gamma_n(Nspecies,Jf,Ji)
                   temp_gamma_n = get_Voigt_gamma_n(Nspecies,Jf,Ji,gamma_idx_RAM(iswap))
                endif
                !
  
positive.code:                 tranfreq = nu_ram(iswap)
                  halfwidth = gamma_ram(iswap)
                  !
                  !write(*,*) "abscoef, tranfreq, halfwidth", abscoef, tranfreq, halfwidth
                  call do_Voigt(tranfreq,abscoef,use_resolving_power,freq,halfwidth,dpwcoef,offset,freql,intens_omp(:,iomp))
                  !
                enddo
  
negative.code:     !
      if (use_resolving_power) then
        !
        if (trim(proftype) /= 'BIN-R' .and. trim(proftype) /= 'VOIGT') then 
          write(out,"(/'Warning: The RESOLVING option has not been tested for ',a,', only for BIN and VOIGT')") trim(proftype)
          !stop "The RESOLVING option can be used with BIN onle"
        endif
        !
  