psrand()

real function psrand

(

integer

idumm

)

Definition at line 223 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 ..
      REAL               DIVFAC, POW16
      parameter( divfac=2.147483648e+9, pow16=6.5536e+4 )
*     ..
*     .. Local Arrays ..
      INTEGER            J( 2 )
*     ..
*     .. External Subroutines ..
      EXTERNAL           ladd, lmul
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          real
*     ..
*     .. Common Blocks ..
      INTEGER            IAS(2), ICS(2), IRAND(2)
      COMMON /rancom/    irand, ias, ics
      SAVE   /rancom/
*     ..
*     .. Executable Statements ..
*
      psrand = ( real(irand(1)) + pow16 * real(irand(2)) ) / divfac
*
      CALL lmul( irand, ias, j )
      CALL ladd( j, ics, irand )
*
      RETURN
*
*     End of PSRAND
*

Here is the call graph for this function:

Here is the caller graph for this function: