LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sprcn1()

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

Definition at line 709 of file c_sblat3.f.

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