Mathematica based package for differential reduction of Fc hypergeomteric function of three variables