%N rindx %F $MIR/src/subs/fullname.for
%D Return right index of character in string
%: utilities
%P bpw
%B
      integer function rindx( string, char )
      character*(*) string
      character*(*) char

 This subroutine returns the index of the first occurence of a
 character from the right, instead of the left as the standard
 index function does.

   Input:
      string      input string
      char        character to check
