Exemplos de DSYRK em C++ (Cpp)

Exemplo n.º 1

Arquivo: blasGoto.c Projeto: Vladimir84/rcc

void
F77_NAME(dsyrk)(const char *uplo, const char *trans,
		const int *n, const int *k,
		const double *alpha, const double *a, const int *lda,
		const double *beta, double *c, const int *ldc)
{
    DSYRK(uplo, trans, n, k, alpha, a, lda, beta, c, ldc);
}

Exemplo n.º 2

Arquivo: blas_lapack.hpp Projeto: bska/opm-origins

        void SYRK<double>(const char*   uplo, const char*   trans,
                          const int     n   , const int     k    ,
                          const double& a1  , const double* A    , const int ldA,
                          const double& a2  ,       double* C    , const int ldC)
        {
            ASSERT((uplo[0]  == 'U') || (uplo[0]  == 'L'));
            ASSERT((trans[0] == 'N') || (trans[0] == 'T'));

            DSYRK(F77_CHARACTER(uplo[0]), F77_CHARACTER(trans[0]),
                  &n, &k, &a1, A, &ldA, &a2, C, &ldC);
        }

Exemplo n.º 3

Arquivo: IpBlas.cpp Projeto: AyMaN-GhOsT/simbody

  void IpBlasDsyrk(bool trans, Index ndim, Index nrank,
                   Number alpha, const Number* A, Index ldA,
                   Number beta, Number* C, Index ldC)
  {
    ipfint N=ndim, K=nrank, LDA=ldA, LDC=ldC;

    char UPLO='L';
    char TRANS;
    if (trans) {
      TRANS = 'T';
    }
    else {
      TRANS = 'N';
    }

    DSYRK(&UPLO, &TRANS, &N, &K, &alpha, A, &LDA,
          &beta, C, &LDC, 1, 1);
  }