%N matchnr %F $MIR/src/subs/match.for
%D Get the ordinal number of a matching string
%: string
%P bpw
%B
      integer function matchnr( input, valid_strings )
      character*(*) input
      character*(*) valid_strings
 match does a minimal match of the input string 'input' on the
 comma-separated list of valid strings and returns the string number.
 If there is no match the result is 0.

 Input
   input:         the string tp be checked
                  (maximum length 512 characters)
   valid_strings: a comma-separated list of valid input strings
