cprcn6()

subroutine cprcn6	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	UPLO,
		character*1	TRANSA,
		integer	N,
		integer	K,
		real	ALPHA,
		integer	LDA,
		real	BETA,
		integer	LDC
	)

Definition at line 1820 of file c_cblat3.f.

      INTEGER          nout, nc, iorder, n, k, lda, ldc
      REAL             alpha, beta
      CHARACTER*1      uplo, transa
      CHARACTER*12     sname
      CHARACTER*14     crc, cu, ca

      IF (uplo.EQ.'U')THEN
         cu =  '    CblasUpper'
      ELSE
         cu =  '    CblasLower'
      END IF
      IF (transa.EQ.'N')THEN
         ca =  '  CblasNoTrans'
      ELSE IF (transa.EQ.'T')THEN
         ca =  '    CblasTrans'
      ELSE
         ca =  'CblasConjTrans'
      END IF
      IF (iorder.EQ.1)THEN
         crc = ' CblasRowMajor'
      ELSE
         crc = ' CblasColMajor'
      END IF
      WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
      WRITE(nout, fmt = 9994)n, k, alpha, lda, beta, ldc

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

Here is the caller graph for this function: