Angle Distribution of Loading Subspaces in PCA

Hi,
Are there any codes in Stata to do Angle Distribution of Loading Subspaces in Principal Component Analysis?