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: