anchor.diff:               !
              endif
              !
  -           if (abscoef>thresh)  then 
  +           !if (abscoef>thresh)  then 
                 !
                 ! write to .stick-file
                 write(sunit,my_fmt) tranfreq,abscoef
  
positive.code:               !
                write(out,"(a1)",advance="yes") " "
                !
             endif 
             !
             cycle
          end if
  
negative.code:           !
          else
            !
            halfwidth = 0
            !
            do ispecies =1,Nspecies
              !
              if ( trim(species(ispecies)%filename)/="" ) then
                !
  