Lines Matching refs:SMMCH
80 EXTERNAL SCHK1, SCHK2, SCHK3, SCHK4, SCHK5, SCHKE, SMMCH
195 * Check the reliability of SMMCH using exact data.
209 * CC holds the exact result. On exit from SMMCH CT holds
210 * the result computed by SMMCH.
213 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
222 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
240 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
249 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
341 9989 FORMAT( ' ERROR IN SMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
342 $ 'ATED WRONGLY.', /' SMMCH WAS CALLED WITH TRANSA = ', A1,
399 EXTERNAL SGEMM, SMAKE, SMMCH
578 CALL SMMCH( TRANSA, TRANSB, M, N, K,
680 EXTERNAL SMAKE, SMMCH, SSYMM
844 CALL SMMCH( 'N', 'N', M, N, M, ALPHA, A,
849 CALL SMMCH( 'N', 'N', M, N, N, ALPHA, B,
951 EXTERNAL SMAKE, SMMCH, STRMM, STRSM
967 * Set up zero matrix for SMMCH.
1118 CALL SMMCH( TRANSA, 'N', M, N, M,
1124 CALL SMMCH( 'N', TRANSA, M, N, N,
1145 CALL SMMCH( TRANSA, 'N', M, N, M,
1151 CALL SMMCH( 'N', TRANSA, M, N, N,
1256 EXTERNAL SMAKE, SMMCH, SSYRK
1410 CALL SMMCH( 'T', 'N', LJ, 1, K, ALPHA,
1417 CALL SMMCH( 'N', 'T', LJ, 1, K, ALPHA,
1531 EXTERNAL SMAKE, SMMCH, SSYR2K
1715 CALL SMMCH( 'T', 'N', LJ, 1, 2*K,
1728 CALL SMMCH( 'N', 'N', LJ, 1, 2*K,
2457 SUBROUTINE SMMCH( TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB,
2576 * End of SMMCH.