Minor tweak
Minor tweak

Move purity lookup of the contaminating function out of the loop.
Speed gains are insignificant, although this saves an average of 4
lookups per function.

mpitid/purity,mpitid/purity