LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine dprcn5 ( integer NOUT, integer NC, character*12 SNAME, integer IORDER, character*1 UPLO, character*1 TRANSA, integer N, integer K, double precision ALPHA, integer LDA, integer LDB, double precision BETA, integer LDC )

Definition at line 2052 of file c_dblat3.f.

2052  INTEGER nout, nc, iorder, n, k, lda, ldb, ldc
2053  DOUBLE PRECISION alpha, beta
2054  CHARACTER*1 uplo, transa
2055  CHARACTER*12 sname
2056  CHARACTER*14 crc, cu, ca
2057
2058  IF (uplo.EQ.'U')THEN
2059  cu = ' CblasUpper'
2060  ELSE
2061  cu = ' CblasLower'
2062  END IF
2063  IF (transa.EQ.'N')THEN
2064  ca = ' CblasNoTrans'
2065  ELSE IF (transa.EQ.'T')THEN
2066  ca = ' CblasTrans'
2067  ELSE
2068  ca = 'CblasConjTrans'
2069  END IF
2070  IF (iorder.EQ.1)THEN
2071  crc = ' CblasRowMajor'
2072  ELSE
2073  crc = ' CblasColMajor'
2074  END IF
2075  WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
2076  WRITE(nout, fmt = 9994)n, k, alpha, lda, ldb, beta, ldc
2077
2078  9995 FORMAT( 1x, i6, ': ', a12,'(', 3( a14, ',') )
2079  9994 FORMAT( 20x, 2( i3, ',' ),
2080  \$ f4.1, ', A,', i3, ', B', i3, ',', f4.1, ', C,', i3, ').' )

Here is the caller graph for this function: