anchor.diff:     !
      ! open and read broadening files
      !
  +   if (verbose>=4.and.Nspecies>0) print('(1x,a/)'),'Reading broadening parameters.'
  +   !
      do i =1,Nspecies
        !
        if ( trim(species(i)%filename)/="" ) then
  
positive.code:            !
           case ('JJKK-X')
             !
             read(bunit,*,end=15) gamma_,n_,Jpp,Jp,Kp,Kpp
             !
             if (abs(Jp-Jpp)>1) stop 'Jp-Jpp in broadening file'
             if (Kp>Jp.or.Kpp>Jpp) stop 'K > J in broadening file'
  
negative.code:            do iswap = 1,N_to_RAM
               !
               read(tunit,*,end=118) nu_ram(iswap),abscoef_RAM(iswap)
               !
               if (lineprofile_do) then
                 gamma_RAM(iswap)=halfwidth
               endif
               !
               cycle
               !
  