subroutine zprcn2	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	SIDE,
		character*1	UPLO,
		integer	M,
		integer	N,
		double complex	ALPHA,
		integer	LDA,
		integer	LDB,
		double complex	BETA,
		integer	LDC
	)

Definition at line 1049 of file c_zblat3.f.

      INTEGER          nout, nc, iorder, m, n, lda, ldb, ldc
      DOUBLE COMPLEX   alpha, beta
      CHARACTER*1      side, uplo
      CHARACTER*12     sname
      CHARACTER*14     crc, cs,cu
      
      IF (side.EQ.'L')THEN
         cs =  '     CblasLeft'
      ELSE 
         cs =  '    CblasRight'
      END IF
      IF (uplo.EQ.'U')THEN
         cu =  '    CblasUpper'
      ELSE 
         cu =  '    CblasLower'
      END IF
      IF (iorder.EQ.1)THEN
         crc = ' CblasRowMajor'
      ELSE 
         crc = ' CblasColMajor'
      END IF
      WRITE(nout, fmt = 9995)nc,sname,crc, cs,cu
      WRITE(nout, fmt = 9994)m, n, alpha, lda, ldb, beta, ldc

 9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
 9994 FORMAT( 10x, 2( i3, ',' ),' (',f4.1,',',f4.1, '), A,', i3,
     $ ', B,', i3, ', (',f4.1,',',f4.1, '), ', 'C,', i3, ').' )

Here is the caller graph for this function: