LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sprcn3()

subroutine sprcn3 ( 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,
real  ALPHA,
integer  LDA,
integer  LDB 
)

Definition at line 1371 of file c_sblat3.f.

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