An Iterative Method to Compute the Dominant Zero of a Quaternionic Unilateral Polynomial