Ejemplo n.º 1
0
//=============================================================================
int Epetra_BLAS::IAMAX(const int N, const double * X, const int INCX) const {
  return(IDAMAX_F77(&N, X, &INCX)-1);// Note that we return base zero result
}
Ejemplo n.º 2
0
 int BLAS<int, double>::IAMAX(const int n, const double* x, const int incx) const
 { return IDAMAX_F77(&n, x, &incx); }