cinitmat()

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

Definition at line 9589 of file blacstest.f.

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

Here is the call graph for this function:

Here is the caller graph for this function: