cprcn4()

subroutine cprcn4	(	integer	nout,
		integer	nc,
		character*13	sname,
		integer	iorder,
		character*1	uplo,
		character*1	transa,
		integer	n,
		integer	k,
		complex	alpha,
		integer	lda,
		complex	beta,
		integer	ldc )

Definition at line 1800 of file c_cblat3.f.

      INTEGER          NOUT, NC, IORDER, N, K, LDA, LDC
      COMPLEX          ALPHA, BETA
      CHARACTER*1      UPLO, TRANSA
      CHARACTER*13     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, ': ', a13,'(', 3( a14, ',') )
 9994 FORMAT( 10x, 2( i3, ',' ), ' (', f4.1, ',', f4.1 ,'), A,',
     $        i3, ', (', f4.1,',', f4.1, '), C,', i3, ').' )

Here is the caller graph for this function: