pdrand()

double precision function pdrand

(

integer

idumm

)

Definition at line 271 of file pmatgeninc.f.

*
*  -- ScaLAPACK routine (version 1.7) --
*     University of Tennessee, Knoxville, Oak Ridge National Laboratory,
*     and University of California, Berkeley.
*     May 1, 1997
*
*     .. Scalar Arguments ..
      INTEGER            IDUMM
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      DOUBLE PRECISION   DIVFAC, POW16
      parameter( divfac=2.147483648d+9, pow16=6.5536d+4 )
*     ..
*     .. Local Arrays ..
      INTEGER            J(2)
*     ..
*     .. External Subroutines ..
      EXTERNAL           ladd, lmul
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          dble
*     ..
*     .. Common Blocks ..
      INTEGER            IAS(2), ICS(2), IRAND(2)
      COMMON /rancom/    irand, ias, ics
      SAVE   /rancom/
*     ..
*     .. Executable Statements ..
*
      pdrand = ( dble(irand(1)) + pow16 * dble(irand(2)) ) / divfac
*
      CALL lmul( irand, ias, j )
      CALL ladd( j, ics, irand )
*
      RETURN
*
*     End of PDRAND
*

Here is the call graph for this function:

Here is the caller graph for this function: