sinitmat()

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

Definition at line 7461 of file blacstest.f.

      CHARACTER*1 UPLO, DIAG
      INTEGER M, N, LDA, IPRE, IPOST, TESTNUM, MYROW, MYCOL
      REAL CHECKVAL
      REAL MEM(*)
*
*     .. External subroutines ..
      EXTERNAL sgenmat, spadmat
*     ..
*     .. executable statements ..
*
      CALL sgenmat( m, n, mem(ipre+1), lda, testnum, myrow, mycol )
      CALL spadmat( 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: