cprcn7()

subroutine cprcn7	(	integer	nout,
		integer	nc,
		character*12	sname,
		integer	iorder,
		character*1	uplo,
		character*1	transa,
		integer	n,
		integer	k,
		complex	alpha,
		integer	lda,
		integer	ldb,
		real	beta,
		integer	ldc
	)