anchor.diff:               !
                nswap_ = iswap-1
                !
  +             eof = .true.
  +             !
                exit
                !
              enddo
  
positive.code:        case('GAUSSIAN','GAUSS','DOPPL','DOPPLER','RECT','BOX','BIN','STICKS','STICK','GAUS0','DOPP0',&
              'LOREN','LORENTZIAN','LORENTZ','MAX','VOIGT','PSEUDO','PSE-ROCCO','PSE-LIU','VOI-QUAD','PHOENIX')
            !
            proftype = trim(w)
            !
            if (trim(w(1:5))=="LOREN") ioffset = 500
  
negative.code:            120 continue
               !
               nswap_ = iswap-1
               eof = .true.
               exit
               !
             enddo
             !
             if (nswap_<1) then
                !
                if (verbose>=5) write(out,"('... Finish swap')")
                !
                exit loop_tran
                !
                stop 'Error nswap_=0'
             endif
             !
             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
  