jiri/LA_library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
jiri 2008-03-13 14:18:24 +00:00
parent 2ea999e96c
commit 8b46fda2af
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
noncblas.cc
View File

@ -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; 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 #endif