anchor.diff:               !
              endif
              !
  -           if (abscoef>thresh)  then 
  +           !if (abscoef>thresh)  then 
                 !
                 ! write to .stick-file
                 write(sunit,my_fmt) tranfreq,abscoef
  
positive.code:              !
               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
                 print*,quantum_numbers(:,i)
                 stop 'wrong filter indices, upper or lower'
                 !
  
negative.code:               !
                write(out,"(a1)",advance="yes") " "
                !
             !endif 
             !
             cycle
          end if
  