Esempi in C++ (Cpp) per SNRM2_F77

Esempio n. 1

  float BLAS<int, float>::NRM2(const int n, const float* x, const int incx) const
  {
#if defined(HAVE_TEUCHOS_BLASFLOAT)
    return SNRM2_F77(&n, x, &incx);
#else
    return ScalarTraits<float>::squareroot(generic_dot(n, x, incx, x, incx));
#endif
  }

Esempio n. 2

File: Epetra_BLAS.cpp Progetto: cakeisalie/oomphlib_003

//=============================================================================
float Epetra_BLAS::NRM2(const int N, const float * X, const int INCX) const {
  return(SNRM2_F77(&N, X, &INCX));
}