LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sprcn2()

subroutine sprcn2 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  SIDE,
character*1  UPLO,
integer  M,
integer  N,
real  ALPHA,
integer  LDA,
integer  LDB,
real  BETA,
integer  LDC 
)

Definition at line 1024 of file c_sblat3.f.

1026  INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1027  REAL ALPHA, BETA
1028  CHARACTER*1 SIDE, UPLO
1029  CHARACTER*12 SNAME
1030  CHARACTER*14 CRC, CS,CU
1031 
1032  IF (side.EQ.'L')THEN
1033  cs = ' CblasLeft'
1034  ELSE
1035  cs = ' CblasRight'
1036  END IF
1037  IF (uplo.EQ.'U')THEN
1038  cu = ' CblasUpper'
1039  ELSE
1040  cu = ' CblasLower'
1041  END IF
1042  IF (iorder.EQ.1)THEN
1043  crc = ' CblasRowMajor'
1044  ELSE
1045  crc = ' CblasColMajor'
1046  END IF
1047  WRITE(nout, fmt = 9995)nc,sname,crc, cs,cu
1048  WRITE(nout, fmt = 9994)m, n, alpha, lda, ldb, beta, ldc
1049 
1050  9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
1051  9994 FORMAT( 20x, 2( i3, ',' ), f4.1, ', A,', i3, ', B,', i3, ',',
1052  $ f4.1, ', ', 'C,', i3, ').' )
Here is the caller graph for this function: