zinitmat()

subroutine zinitmat	(	character*1	uplo,
		character*1	diag,
		integer	m,
		integer	n,
		double complex, dimension(*)	mem,
		integer	lda,
		integer	ipre,
		integer	ipost,
		double complex	checkval,
		integer	testnum,
		integer	myrow,
		integer	mycol
	)

Definition at line 10657 of file blacstest.f.

      CHARACTER*1 UPLO, DIAG
      INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL
      DOUBLE COMPLEX CHECKVAL
      DOUBLE COMPLEX MEM(*)
*
*     .. External subroutines ..
      EXTERNAL zgenmat, zpadmat
*     ..
*     .. executable statements ..
*
      CALL zgenmat( m, n, mem(ipre+1), lda, testnum, myrow, mycol )
      CALL zpadmat( uplo, diag, m, n, mem, lda, ipre, ipost, checkval )
*
      RETURN

Here is the caller graph for this function: