From 8b46fda2af54d350dc4922eb8ead77cb72aad0ed Mon Sep 17 00:00:00 2001
From: jiri <jiri>
Date: Thu, 13 Mar 2008 14:18:24 +0000
Subject: [PATCH] *** empty log message ***

---
 noncblas.cc | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/noncblas.cc b/noncblas.cc
index db2b4d3..1422ae9 100644
--- a/noncblas.cc
+++ b/noncblas.cc
@@ -242,5 +242,12 @@ for(int i=1; i<N; ++i) for(int j=0; j<i; ++j)  {double t=A[j*lda+i]; A[j*lda+i]=
 return INFO;
 }
 
+extern "C" int FORNAME(idamax) (const int *N, const double *DX, const int *INCX);
+
+CBLAS_INDEX cblas_idamax(const int N, const double *X, const int incX)
+{
+return FORNAME(idamax)(&N,X,&incX);
+}
+
 
 #endif