Thermal pulse study of the polarization distributions produced in polyvinylidene fluoride by corona poling at constant current