Lines Matching refs:TRANSB
67 CHARACTER*1 TRANSA, TRANSB variable
233 TRANSB = 'N'
234 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
239 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
242 TRANSB = 'C'
243 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
248 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
260 TRANSB = 'N'
261 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
266 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
269 TRANSB = 'C'
270 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
275 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
465 CHARACTER*1 TRANAS, TRANBS, TRANSA, TRANSB local
534 TRANSB = ICH( ICB: ICB )
535 TRANB = TRANSB.EQ.'T'.OR.TRANSB.EQ.'C'
575 TRANBS = TRANSB
598 $ TRANSA, TRANSB, M, N, K, ALPHA, LDA,
602 CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N,
617 ISAME( 2 ) = TRANSB.EQ.TRANBS
653 CALL CMMCH( TRANSA, TRANSB, M, N, K,
691 CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB,
720 SUBROUTINE CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, argument
724 CHARACTER*1 TRANSA, TRANSB local
735 IF (TRANSB.EQ.'N')THEN
737 ELSE IF (TRANSB.EQ.'T')THEN
2432 SUBROUTINE CMMCH(TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, argument
2456 CHARACTER*1 TRANSA, TRANSB local
2474 TRANB = TRANSB.EQ.'T'.OR.TRANSB.EQ.'C'
2476 CTRANB = TRANSB.EQ.'C'