LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dprcn5()

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 2050 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: