48 cblas_xerbla(2,
"cblas_csymm",
"Illegal Side setting, %d\n", Side);
58 cblas_xerbla(3,
"cblas_csymm",
"Illegal Uplo setting, %d\n", Uplo);
65 F77_UL = C2F_CHAR(&UL);
66 F77_SD = C2F_CHAR(&SD);
69 F77_csymm(F77_SD, F77_UL, &F77_M, &F77_N, alpha, A, &F77_lda,
70 B, &F77_ldb, beta, C, &F77_ldc);
78 cblas_xerbla(2,
"cblas_csymm",
"Illegal Side setting, %d\n", Side);
88 cblas_xerbla(3,
"cblas_csymm",
"Illegal Uplo setting, %d\n", Uplo);
95 F77_UL = C2F_CHAR(&UL);
96 F77_SD = C2F_CHAR(&SD);
99 F77_csymm(F77_SD, F77_UL, &F77_N, &F77_M, alpha, A, &F77_lda,
100 B, &F77_ldb, beta, C, &F77_ldc);
102 else cblas_xerbla(1,
"cblas_csymm",
"Illegal layout setting, %d\n", layout);
void cblas_xerbla(int p, const char *rout, const char *form,...)