ibtran()

integer function ibtran

(

integer, dimension(*)

iseed

)

Definition at line 6485 of file blacstest.f.

      INTEGER ISEED(*)
*
*     .. External Functions ..
      DOUBLE PRECISION DLARND
      EXTERNAL dlarnd
*     ..
*     .. Local Scalars ..
      DOUBLE PRECISION DVAL
*     ..
*     .. Executable Statements ..
*
      dval = 1.0d6 * dlarnd(2, iseed)
      ibtran = int(dval)
*
      RETURN
*
*     End of Ibtran
*

Here is the call graph for this function:

Here is the caller graph for this function: