Hypergeometric Function

Hello,

Has anyone coded the hypergeometric function in Gauss that would be willing to share their code, or provide tips on making the calculation as efficient as possible?

Thank you in advance,

Will