TOMS441
Random Deviates from the Dipole Distribution

TOMS441 is a FORTRAN77 program, using single precision arithmetic, which implements ACM TOMS algorithm 441, for returning random deviates from the dipole distribution.

While 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, most of the early algorithms are not available. This is one of them. I typed it in.

Usage:

x = dipole ( a, b, seed )

where A and B are parameters of the distribution, SEED is a seed value for the random number generator, and the value of the sample is returned in DIPOLE.

Related Data and Programs:

PROB is a FORTRAN90 library which contains routines to sample the dipole distribution, or to evaluate the CDF or PDF.

Reference:

1. Robert Knop,
   Algorithm 441: Random Deviates from the Dipole Distribution,
   Communications of the ACM,
   Volume 16, Number 1, January 1973, page 51.

Source Code:

• toms441.f, the source code.
• toms441.csh, commands to compile the source code.

Examples and Tests:

• toms441_prb.f, a sample calling program.
• toms441_prb.csh, commands to compile and run the sample program.
• toms441_prb.out, the output from a run of the sample program.

List of Routines:

• DIPOLE returns a random deviate from the dipole distribution.

You can go up one level to the FORTRAN77 source codes.