anchor.diff:             120 continue
                !
                nswap_ = iswap-1
  -             !
  +             eof = .true.
                exit
                !
              enddo
              !
              if (nswap_<1) then
                 !
  -              write(out,"('... Finish swap')")
  +              if (verbose>=5) write(out,"('... Finish swap')")
                 !
                 exit loop_tran
                 !
                 stop 'Error nswap_=0'
              endif
              !
  -           if (verbose>=4.and.nswap_<N_to_RAM) print('(a,i12,a)'),"Now computing ... ",nswap_," transitions..."
  +           if (verbose>=5.and.nswap_<N_to_RAM.and.proftype(1:5)/="STICK") print('(a,i12,a)'),"Now computing ... ",nswap_," transitions..."
              !
              !read(tunit,*,end=20) indexf,indexi,acoef
              iswap_ = 1
  
positive.code:      !
     else
       !
       if (verbose>=2) print('("Total intensity = ",es16.8,", T = ",f18.4)'), intband,temp
       !
     endif
     !
  
negative.code:             call do_stick(sunit,nswap,nlines,maxitems,energies,Jrot,gtot,ilevelf_ram,ileveli_ram,abscoef_ram,acoef_ram,&
                            nchars_quanta,quantum_numbers)
              !
              cycle loop_tran
              !
          case ('PHOEN')
              !
              call do_gf_oscillator_strength_France(iso,nswap,nlines,energies,Jrot,gtot,ilevelf_ram,ileveli_ram,acoef_ram)
              !
              cycle loop_tran
  
          case ('COOLI')
              !
  