TOMS441
Random Deviates from the Dipole Distribution

TOMS441 is a FORTRAN77 library 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.

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.

Languages:

TOMS441 is available in a FORTRAN77 version.

Related Data and Programs:

PROB, 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.sh, commands to compile the source code.

Examples and Tests:

• toms441_prb.f, a sample calling program.
• toms441_prb.sh, commands to compile and run the sample program.
• toms441_prb_output.txt, the output file.

List of Routines:

• DIPOLE returns a random deviate from the dipole distribution.

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