dprcn3()

subroutine dprcn3	(	integer	nout,
		integer	nc,
		character*12	sname,
		integer	iorder,
		character*1	side,
		character*1	uplo,
		character*1	transa,
		character*1	diag,
		integer	m,
		integer	n,
		double precision	alpha,
		integer	lda,
		integer	ldb
	)

Definition at line 1367 of file c_dblat3.f.

      INTEGER          NOUT, NC, IORDER, M, N, LDA, LDB
      DOUBLE PRECISION ALPHA
      CHARACTER*1      SIDE, UPLO, TRANSA, DIAG
      CHARACTER*12     SNAME
      CHARACTER*14     CRC, CS, CU, CA, CD
 
      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 (transa.EQ.'N')THEN
         ca = '  CblasNoTrans'
      ELSE IF (transa.EQ.'T')THEN
         ca = '    CblasTrans'
      ELSE
         ca = 'CblasConjTrans'
      END IF
      IF (diag.EQ.'N')THEN
         cd = '  CblasNonUnit'
      ELSE
         cd = '     CblasUnit'
      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)ca, cd, m, n, alpha, lda, ldb
 
 9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
 9994 FORMAT( 22x, 2( a14, ',') , 2( i3, ',' ),
     $      f4.1, ', A,', i3, ', B,', i3, ').' )

Here is the caller graph for this function: