Stata Routine for PCA equity quintiles