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

Definition at line 1695 of file c_dblat3.f.

1695  INTEGER nout, nc, iorder, n, k, lda, ldc
1696  DOUBLE PRECISION alpha, beta
1697  CHARACTER*1 uplo, transa
1698  CHARACTER*12 sname
1699  CHARACTER*14 crc, cu, ca
1700 
1701  IF (uplo.EQ.'U')THEN
1702  cu = ' CblasUpper'
1703  ELSE
1704  cu = ' CblasLower'
1705  END IF
1706  IF (transa.EQ.'N')THEN
1707  ca = ' CblasNoTrans'
1708  ELSE IF (transa.EQ.'T')THEN
1709  ca = ' CblasTrans'
1710  ELSE
1711  ca = 'CblasConjTrans'
1712  END IF
1713  IF (iorder.EQ.1)THEN
1714  crc = ' CblasRowMajor'
1715  ELSE
1716  crc = ' CblasColMajor'
1717  END IF
1718  WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
1719  WRITE(nout, fmt = 9994)n, k, alpha, lda, beta, ldc
1720 
1721  9995 FORMAT( 1x, i6, ': ', a12,'(', 3( a14, ',') )
1722  9994 FORMAT( 20x, 2( i3, ',' ),
1723  $ f4.1, ', A,', i3, ',', f4.1, ', C,', i3, ').' )

Here is the caller graph for this function: