211 {
212
217
220
223 LDA = *k+1;
225 for( i=0; i<*n; i++ )
226 for( j=0; j<*k; j++ ) {
229 }
230 }
231 else{
232 LDA = *n+1;
234 for( i=0; i<*k; i++ )
235 for( j=0; j<*n; j++ ) {
238 }
239 }
240 LDC = *n+1;
242 for( i=0; i<*n; i++ )
243 for( j=0; j<*n; j++ ) {
246 }
248 C, LDC );
249 for( j=0; j<*n; j++ )
250 for( i=0; i<*n; i++ ) {
253 }
254 free(A);
255 free(C);
256 }
259 c, *ldc );
260 else
262 c, *ldc );
263}
void cblas_cherk(CBLAS_LAYOUT layout, CBLAS_UPLO Uplo, CBLAS_TRANSPOSE Trans, const CBLAS_INT N, const CBLAS_INT K, const float alpha, const void *A, const CBLAS_INT lda, const float beta, void *C, const CBLAS_INT ldc)
void get_uplo_type(char *type, CBLAS_UPLO *uplo)
void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans)