1700 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1701 REAL ALPHA, BETA
1702 CHARACTER*1 UPLO, TRANSA
1703 CHARACTER*12 SNAME
1704 CHARACTER*14 CRC, CU, CA
1705
1706 IF (uplo.EQ.'U')THEN
1707 cu = ' CblasUpper'
1708 ELSE
1709 cu = ' CblasLower'
1710 END IF
1711 IF (transa.EQ.'N')THEN
1712 ca = ' CblasNoTrans'
1713 ELSE IF (transa.EQ.'T')THEN
1714 ca = ' CblasTrans'
1715 ELSE
1716 ca = 'CblasConjTrans'
1717 END IF
1718 IF (iorder.EQ.1)THEN
1719 crc = ' CblasRowMajor'
1720 ELSE
1721 crc = ' CblasColMajor'
1722 END IF
1723 WRITE(nout, fmt = 9995)nc, sname, crc, cu, ca
1724 WRITE(nout, fmt = 9994)n, k, alpha, lda, beta, ldc
1725
1726 9995 FORMAT( 1x, i6, ': ', a12,'(', 3( a14, ',') )
1727 9994 FORMAT( 20x, 2( i3, ',' ),
1728 $ f4.1, ', A,', i3, ',', f4.1, ', C,', i3, ').' )