ASA053 is a FORTRAN77 library which returns samples from the Wishart distribution.
As far as I can tell, there are two mistakes in the printed text of the algorithm; one involves incorrectly determining the number of degrees of freedom for the ChiSquared distribution; the other omits an absolute value sign when inverting the Wilson-Hilferty formula, so that square roots of negative values are occasionally requested. These mistakes have been corrected here.
Source code for many Applied Statistics Algorithms is available through STATLIB.
The computer code and data files made available on this web page are distributed under the GNU LGPL license.
ASA053 is available in a C version and a C++ version and a FORTRAN77 version and a FORTRAN90 version and a MATLAB version.
WISHART, a FORTRAN77 library which produces sample matrices from the Wishart or Bartlett distributions, useful for sampling random covariance matrices.
You can go up one level to the FORTRAN77 source codes.