anchor.diff:             intband = intband + sum(abscoef_RAM(1:nswap_))
              !
              if (nswap_<1) then
  -              if (verbose>=3) write(out,"('... Finish swap')")
  +              if (verbose>=5) write(out,"('... Finish swap')")
                 exit loop_tran
              endif
              !
  
positive.code:                cycle loop_swap
               endif
               !
               ilevelf_ram(iswap_) = ilevelf
               ileveli_ram(iswap_) = ileveli
               abscoef_ram(iswap_) = abscoef
               acoef_ram(iswap_) = acoef
               !
               nu_ram(iswap_) = tranfreq
               !
               if (lineprofile_do) then
                 gamma_RAM(iswap_)=get_Voigt_gamma_n(Nspecies,Jf,Ji)
               endif
               !
               intband = intband + abscoef
               !
               !do do_log_intensity
               iswap_ = iswap_ + 1
               !
             enddo loop_swap
             !omp end parallel do
             !
             nswap = iswap_-1
             !
          endif
          !
  
negative.code:                !
               case ('LIFETIME')
                 !
                 !$omp critical
                 !
                 if (Asum(ilevelf)<0) Asum(ilevelf) = 0
                 !
                 Asum(ilevelf) = Asum(ilevelf) + acoef
                 !$omp end critical
                 !
                 !print*,ilevelf,indexf,indexi,acoef
                 !
  