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: