C++ (Cpp) ISAMAX_F77の例

コード例 #1

ファイル: Epetra_BLAS.cpp プロジェクト: cakeisalie/oomphlib_003

//=============================================================================
int Epetra_BLAS::IAMAX(const int N, const float * X, const int INCX) const {
  return(ISAMAX_F77(&N, X, &INCX)-1);// Note that we return base zero result
}

コード例 #2

 int BLAS<int, float>::IAMAX(const int n, const float* x, const int incx) const
 { return ISAMAX_F77(&n, x, &incx); }