Sha256: 18326be0928064340ece4d0c5ce8201a68900d3e28ea73a8d8562635657b9207
Contents?: true
Size: 499 Bytes
Versions: 9
Compression:
Stored size: 499 Bytes
Contents
/* * cblas_izamax.c * * The program is a C interface to izamax. * It calls the fortran wrapper before calling izamax. * * Written by Keita Teranishi. 2/11/1998 * */ #include "cblas.h" #include "cblas_f77.h" CBLAS_INDEX cblas_izamax( const int N, const void *X, const int incX) { F77_INT iamax; #ifdef F77_INT F77_INT F77_N=N, F77_incX=incX; #else #define F77_N N #define F77_incX incX #endif F77_izamax_sub( &F77_N, X, &F77_incX, &iamax); return (iamax ? iamax-1 : 0); }
Version data entries
9 entries across 9 versions & 1 rubygems