LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dprcn2()

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

Definition at line 1020 of file c_dblat3.f.

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