int
f2c_csyrk(char* uplo, char* trans, integer* N, integer* K,
complex* alpha,
complex* A, integer* lda,
complex* beta,
complex* C, integer* ldc)
{
csyrk_(uplo, trans, N, K,
alpha, A, lda, beta, C, ldc);
return 0;
}
void
csyrk(char uplo, char transa, int n, int k, complex *alpha, complex *a, int lda, complex *beta, complex *c, int ldc)
{
csyrk_(&uplo, &transa, &n, &k, alpha, a, &lda, beta, c, &ldc);
}
