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

      character string*(*),c*1
      integer k1,k2
  ---------------------------------------------------------------------
  Scan forward through a string character until 'c' is found.

  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
               to the character that was being scanned for.
