A program for calculating dopant concentration distribution in a crystal grown in float-zone process.