zgenmat()

subroutine zgenmat	(	integer	m,
		integer	n,
		double complex, dimension(lda,n)	a,
		integer	lda,
		integer	testnum,
		integer	myrow,
		integer	mycol
	)

Definition at line 10675 of file blacstest.f.

*
*  -- BLACS tester (version 1.0) --
*  University of Tennessee
*  December 15, 1994
*
*
*     .. Scalar Arguments ..
      INTEGER M, N, LDA, TESTNUM, MYROW, MYCOL
*     ..
*     .. Array Arguments ..
      DOUBLE COMPLEX A(LDA,N)
*     ..
*
*  Purpose
*  =======
*  ZGENMAT: Generates an M-by-N matrix filled with random elements.
*
*  Arguments
*  =========
*   M       (input) INTEGER
*           The number of rows of the matrix A.  M >= 0.
*
*   N       (input) INTEGER
*           The number of columns of the matrix A.  N >= 0.
*
*   A       (output) @up@(doctype) array, dimension (LDA,N)
*           The m by n matrix A.  Fortran77 (column-major) storage
*           assumed.
*
*   LDA     (input) INTEGER
*           The leading dimension of the array A.  LDA >= max(1, M).
*
*  TESTNUM  (input) INTEGER
*           Unique number for this test case, used as a basis for
*           the random seeds.
*
*  ====================================================================
*
*     .. External Functions ..
      INTEGER IBTNPROCS
      DOUBLE COMPLEX ZBTRAN
      EXTERNAL zbtran, ibtnprocs
*     ..
*     .. Local Scalars ..
      INTEGER I, J, NPROCS, SRC
*     ..
*     .. Local Arrays ..
      INTEGER ISEED(4)
*     ..
*     .. Executable Statements ..
*
*     ISEED's four values must be positive integers less than 4096,
*     fourth one has to be odd. (see _LARND).  Use some goofy
*     functions to come up with seed values which together should
*     be unique.
*
      nprocs = ibtnprocs()
      src = myrow * nprocs + mycol
      iseed(1) = mod( 1002 + testnum*5 + src*3, 4096 )
      iseed(2) = mod( 2027 + testnum*7 + src, 4096 )
      iseed(3) = mod( 1234 + testnum + src*3, 4096 )
      iseed(4) = mod( 4311 + testnum*10 + src*2, 4096 )
*
      DO 10 j = 1, n
         DO 10 i = 1, m
            a(i, j) = zbtran( iseed )
   10 CONTINUE
*
      RETURN
*
*     End of ZGENMAT.
*