%N spanchar %F $MIR/src/subs/string.for
%D Skip over a particular character.
%P rjs
%: strings
%B
      subroutine spanchar(string,k1,k2,c)

      character string*(*),c*1
      integer k1,k2
  ---------------------------------------------------------------------
  Skip over any occurrences of the character "c" in the string.

  Input:
    string     The string containing the characters.
  Input/Output:
    k1,k2      These delimit the characters in the string that are
               to be processed. On output, k1 is incremented to point
               beyond the character that was being skipped.
