1026 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1027 REAL ALPHA, BETA
1028 CHARACTER*1 SIDE, UPLO
1029 CHARACTER*12 SNAME
1030 CHARACTER*14 CRC, CS,CU
1031
1032 IF (side.EQ.'L')THEN
1033 cs = ' CblasLeft'
1034 ELSE
1035 cs = ' CblasRight'
1036 END IF
1037 IF (uplo.EQ.'U')THEN
1038 cu = ' CblasUpper'
1039 ELSE
1040 cu = ' CblasLower'
1041 END IF
1042 IF (iorder.EQ.1)THEN
1043 crc = ' CblasRowMajor'
1044 ELSE
1045 crc = ' CblasColMajor'
1046 END IF
1047 WRITE(nout, fmt = 9995)nc,sname,crc, cs,cu
1048 WRITE(nout, fmt = 9994)m, n, alpha, lda, ldb, beta, ldc
1049
1050 9995 FORMAT( 1x, i6, ': ', a12,'(', a14, ',', a14, ',', a14, ',')
1051 9994 FORMAT( 20x, 2( i3, ',' ), f4.1, ', A,', i3, ', B,', i3, ',',
1052 $ f4.1, ', ', 'C,', i3, ').' )