An algorithm for computing Schur indices of characters. (July 2019)