dprcn8()

subroutine dprcn8	(	integer	nout,
		integer	nc,
		character*13	sname,
		integer	iorder,
		character*1	uplo,
		character*1	transa,
		character*1	transb,
		integer	n,
		integer	k,
		double precision	alpha,
		integer	lda,
		integer	ldb,
		double precision	beta,
		integer	ldc )

Definition at line 2790 of file c_dblat3.f.

      INTEGER          NOUT, NC, IORDER, N, K, LDA, LDB, LDC
      DOUBLE PRECISION ALPHA, BETA
      CHARACTER*1      TRANSA, TRANSB, UPLO
      CHARACTER*13     SNAME
      CHARACTER*14     CRC, CTA,CTB,CUPLO
 
      IF (uplo.EQ.'U') THEN
          cuplo = 'CblasUpper'
      ELSE
          cuplo = 'CblasLower'
      END IF
      IF (transa.EQ.'N')THEN
         cta = '  CblasNoTrans'
      ELSE IF (transa.EQ.'T')THEN
         cta = '    CblasTrans'
      ELSE
         cta = 'CblasConjTrans'
      END IF
      IF (transb.EQ.'N')THEN
         ctb = '  CblasNoTrans'
      ELSE IF (transb.EQ.'T')THEN
         ctb = '    CblasTrans'
      ELSE
         ctb = 'CblasConjTrans'
      END IF
      IF (iorder.EQ.1)THEN
         crc = ' CblasRowMajor'
      ELSE
         crc = ' CblasColMajor'
      END IF
      WRITE(nout, fmt = 9995)nc,sname,crc, cuplo, cta,ctb
      WRITE(nout, fmt = 9994)n, k, alpha, lda, ldb, beta, ldc
 
 9995 FORMAT( 1x, i6, ': ', a13,'(', a14, ',', a14, ',', a14, ',',
     $        a14, ',')
 9994 FORMAT( 10x, 2( i3, ',' ) ,' ', f4.1,' , A,',
     $ i3, ', B,', i3, ', ', f4.1,' , C,', i3, ').' )

Here is the caller graph for this function: