LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dprcn1()

subroutine dprcn1 ( integer  NOUT,
integer  NC,
character*12  SNAME,
integer  IORDER,
character*1  TRANSA,
character*1  TRANSB,
integer  M,
integer  N,
integer  K,
double precision  ALPHA,
integer  LDA,
integer  LDB,
double precision  BETA,
integer  LDC 
)

Definition at line 706 of file c_dblat3.f.

708  INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC
709  DOUBLE PRECISION ALPHA, BETA
710  CHARACTER*1 TRANSA, TRANSB
711  CHARACTER*12 SNAME
712  CHARACTER*14 CRC, CTA,CTB
713 
714  IF (transa.EQ.'N')THEN
715  cta = ' CblasNoTrans'
716  ELSE IF (transa.EQ.'T')THEN
717  cta = ' CblasTrans'
718  ELSE
719  cta = 'CblasConjTrans'
720  END IF
721  IF (transb.EQ.'N')THEN
722  ctb = ' CblasNoTrans'
723  ELSE IF (transb.EQ.'T')THEN
724  ctb = ' CblasTrans'
725  ELSE
726  ctb = 'CblasConjTrans'
727  END IF
728  IF (iorder.EQ.1)THEN
729  crc = ' CblasRowMajor'
730  ELSE
731  crc = ' CblasColMajor'
732  END IF
733  WRITE(nout, fmt = 9995)nc,sname,crc, cta,ctb
734  WRITE(nout, fmt = 9994)m, n, k, alpha, lda, ldb, beta, ldc
735 
736  9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
737  9994 FORMAT( 20x, 3( i3, ',' ), f4.1, ', A,', i3, ', B,', i3, ',',
738  $ f4.1, ', ', 'C,', i3, ').' )
Here is the caller graph for this function: