anchor.diff:             iswap_ = 1
              abscoef_ram = 0
              !
  -           !omp parallel do private(iswap,indexf,indexi,acoef,ilevelf,ileveli,energyf,energyi,ifilter,jf,ji,tranfreq,tranfreq0,offset,abscoef,cutoff)&
  +           !omp parallel do private(iswap,indexf,indexi,acoef,ilevelf,ileveli,energyf,energyi,ifilter,jf,ji,tranfreq,&
  +           !omp& tranfreq0,offset,abscoef,cutoff)&
              !omp&  schedule(static) reduction(+:iswap_,intband) shared(ilevelf_ram,ileveli_ram,abscoef_ram,acoef_ram,nu_ram,Asum)
              loop_swap : do iswap = 1,nswap_
                !
  
positive.code:         !
        enddo
        !
      endif 
      !
      !write(out,"('...done!'/)")
      !
  
negative.code:          !
           call read_line(eof,enunit) ; if (eof) exit
           !
           if (nitems<4) then
             call report ("In .states less than  than 4 columns, mixed up with .trans?"//trim(w),.true.)
           endif
           !
           call readi(itemp)
           call readf(energy)
  