Computing the integral closure of an affine domain

Let A = k[x, . .x , x,]/P be an affine domain over a field k, with P given by a set of generators. We give a method to find the defining ideal of its integral closure B as an affine domain B = k[y, y, Ym]/Q.