A program that solves for the spectrum of an axisymmetric, radiation-cooled accretion disk around a pseudo-Newtonian black hole