LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sprcn5()

subroutine sprcn5 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  UPLO,
character*1  TRANSA,
integer  N,
integer  K,
real  ALPHA,
integer  LDA,
integer  LDB,
real  BETA,
integer  LDC 
)

Definition at line 2054 of file c_sblat3.f.

2056  INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
2057  REAL ALPHA, BETA
2058  CHARACTER*1 UPLO, TRANSA
2059  CHARACTER*12 SNAME
2060  CHARACTER*14 CRC, CU, CA
2061 
2062  IF (uplo.EQ.'U')THEN
2063  cu = ' CblasUpper'
2064  ELSE
2065  cu = ' CblasLower'
2066  END IF
2067  IF (transa.EQ.'N')THEN
2068  ca = ' CblasNoTrans'
2069  ELSE IF (transa.EQ.'T')THEN
2070  ca = ' CblasTrans'
2071  ELSE
2072  ca = 'CblasConjTrans'
2073  END IF
2074  IF (iorder.EQ.1)THEN
2075  crc = ' CblasRowMajor'
2076  ELSE
2077  crc = ' CblasColMajor'
2078  END IF
2079  WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
2080  WRITE(nout, fmt = 9994)n, k, alpha, lda, ldb, beta, ldc
2081 
2082  9995 FORMAT( 1x, i6, ': ', a12,'(', 3( a14, ',') )
2083  9994 FORMAT( 20x, 2( i3, ',' ),
2084  $ f4.1, ', A,', i3, ', B', i3, ',', f4.1, ', C,', i3, ').' )
Here is the caller graph for this function: