inline void herk( char const uplo, char const trans, integer_t const n,
integer_t const k, float const alpha, traits::complex_f* a,
integer_t const lda, float const beta, traits::complex_f* c,
integer_t const ldc ) {
BLAS_CHERK( &uplo, &trans, &n, &k, &alpha, traits::complex_ptr(a),
&lda, &beta, traits::complex_ptr(c), &ldc );
}
inline void herk( const Order order, const UpLo uplo, const Trans trans,
const fortran_int_t n, const fortran_int_t k, const float alpha,
const std::complex<float>* a, const fortran_int_t lda,
const float beta, std::complex<float>* c, const fortran_int_t ldc ) {
BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
BLAS_CHERK( &blas_option< UpLo >::value, &blas_option< Trans >::value, &n,
&k, &alpha, a, &lda, &beta, c, &ldc );
}