LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sprcn4()

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

Definition at line 1698 of file c_sblat3.f.

1700  INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1701  REAL ALPHA, BETA
1702  CHARACTER*1 UPLO, TRANSA
1703  CHARACTER*12 SNAME
1704  CHARACTER*14 CRC, CU, CA
1705 
1706  IF (uplo.EQ.'U')THEN
1707  cu = ' CblasUpper'
1708  ELSE
1709  cu = ' CblasLower'
1710  END IF
1711  IF (transa.EQ.'N')THEN
1712  ca = ' CblasNoTrans'
1713  ELSE IF (transa.EQ.'T')THEN
1714  ca = ' CblasTrans'
1715  ELSE
1716  ca = 'CblasConjTrans'
1717  END IF
1718  IF (iorder.EQ.1)THEN
1719  crc = ' CblasRowMajor'
1720  ELSE
1721  crc = ' CblasColMajor'
1722  END IF
1723  WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
1724  WRITE(nout, fmt = 9994)n, k, alpha, lda, beta, ldc
1725 
1726  9995 FORMAT( 1x, i6, ': ', a12,'(', 3( a14, ',') )
1727  9994 FORMAT( 20x, 2( i3, ',' ),
1728  $ f4.1, ', A,', i3, ',', f4.1, ', C,', i3, ').' )
Here is the caller graph for this function: