toms441, a FORTRAN77 code which implements ACM toms algorithm 441, for returning random deviates from the dipole distribution.
The text of many ACM toms algorithms is available online through ACM: http://www.acm.org/pubs/calgo or NETLIB: http://www.netlib.org/toms/index.html.
The computer code and data files described and made available on this web page are distributed under the GNU LGPL license.
toms441 is available in a FORTRAN77 version.
prob, a FORTRAN90 library which contains routines to sample the dipole distribution, or to evaluate the CDF or PDF.