LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine cprcn3 ( 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,
complex  ALPHA,
integer  LDA,
integer  LDB 
)

Definition at line 1400 of file c_cblat3.f.

1400  INTEGER nout, nc, iorder, m, n, lda, ldb
1401  COMPLEX alpha
1402  CHARACTER*1 side, uplo, transa, diag
1403  CHARACTER*12 sname
1404  CHARACTER*14 crc, cs, cu, ca, cd
1405 
1406  IF (side.EQ.'L')THEN
1407  cs = ' CblasLeft'
1408  ELSE
1409  cs = ' CblasRight'
1410  END IF
1411  IF (uplo.EQ.'U')THEN
1412  cu = ' CblasUpper'
1413  ELSE
1414  cu = ' CblasLower'
1415  END IF
1416  IF (transa.EQ.'N')THEN
1417  ca = ' CblasNoTrans'
1418  ELSE IF (transa.EQ.'T')THEN
1419  ca = ' CblasTrans'
1420  ELSE
1421  ca = 'CblasConjTrans'
1422  END IF
1423  IF (diag.EQ.'N')THEN
1424  cd = ' CblasNonUnit'
1425  ELSE
1426  cd = ' CblasUnit'
1427  END IF
1428  IF (iorder.EQ.1)THEN
1429  crc = ' CblasRowMajor'
1430  ELSE
1431  crc = ' CblasColMajor'
1432  END IF
1433  WRITE(nout, fmt = 9995)nc,sname,crc, cs,cu
1434  WRITE(nout, fmt = 9994)ca, cd, m, n, alpha, lda, ldb
1435 
1436  9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
1437  9994 FORMAT( 10x, 2( a14, ',') , 2( i3, ',' ), ' (', f4.1, ',',
1438  $ f4.1, '), A,', i3, ', B,', i3, ').' )

Here is the caller graph for this function: