anchor.diff:               !
                if (lower(ifilter)%i<0.or.lower(ifilter)%i>nitems-4.or.upper(ifilter)%i<0.or.upper(ifilter)%i>nitems-4) then
                  !
  -               write(out,"('wrong filter indices, upper or lower: ',2i)") upper(ifilter)%i+4,lower(ifilter)%i+4
  +               write(out,"('wrong filter indices, upper or lower: ',2i9)") upper(ifilter)%i+4,lower(ifilter)%i+4
                  print*,quantum_numbers(:,i)
                  stop 'wrong filter indices, upper or lower'
                  !
  
positive.code:              !
             endif
             !
             if (abscoef>thresh)  then 
                !
                ! write to .stick-file
                write(sunit,my_fmt) tranfreq,abscoef
  
negative.code:            !
             tranfreq = energyf-energyi
             !
             if (tranfreq<small_.or.abscoef<thresh) cycle
             !
             ! check for duplicates 
             !
  