LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dprcn3()

subroutine dprcn3 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  SIDE,
character*1  UPLO,
character*1  TRANSA,
character*1  DIAG,
integer  M,
integer  N,
double precision  ALPHA,
integer  LDA,
integer  LDB 
)

Definition at line 1367 of file c_dblat3.f.

1369  INTEGER NOUT, NC, IORDER, M, N, LDA, LDB
1370  DOUBLE PRECISION ALPHA
1371  CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
1372  CHARACTER*12 SNAME
1373  CHARACTER*14 CRC, CS, CU, CA, CD
1374 
1375  IF (side.EQ.'L')THEN
1376  cs = ' CblasLeft'
1377  ELSE
1378  cs = ' CblasRight'
1379  END IF
1380  IF (uplo.EQ.'U')THEN
1381  cu = ' CblasUpper'
1382  ELSE
1383  cu = ' CblasLower'
1384  END IF
1385  IF (transa.EQ.'N')THEN
1386  ca = ' CblasNoTrans'
1387  ELSE IF (transa.EQ.'T')THEN
1388  ca = ' CblasTrans'
1389  ELSE
1390  ca = 'CblasConjTrans'
1391  END IF
1392  IF (diag.EQ.'N')THEN
1393  cd = ' CblasNonUnit'
1394  ELSE
1395  cd = ' CblasUnit'
1396  END IF
1397  IF (iorder.EQ.1)THEN
1398  crc = ' CblasRowMajor'
1399  ELSE
1400  crc = ' CblasColMajor'
1401  END IF
1402  WRITE(nout, fmt = 9995)nc,sname,crc, cs,cu
1403  WRITE(nout, fmt = 9994)ca, cd, m, n, alpha, lda, ldb
1404 
1405  9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
1406  9994 FORMAT( 22x, 2( a14, ',') , 2( i3, ',' ),
1407  $ f4.1, ', A,', i3, ', B,', i3, ').' )
Here is the caller graph for this function: