anchor.diff:                !
                 write(out,"(a1)",advance="yes") " "
                 !
  -           endif 
  +           !endif 
              !
              cycle
           end if
  
positive.code:           !
          else
            !
            do ispecies =1,Nspecies
              !
              halfwidth = 0
              !
              if ( trim(species(ispecies)%filename)/="" ) then
                !
  
negative.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: ',2i9)") upper(ifilter)%i+4,lower(ifilter)%i+4
                 print*,quantum_numbers(:,i)
                 stop 'wrong filter indices, upper or lower'
                 !
  