Created Phenomir2 subroutine