37 #ifndef TEMPLATE_BLAS_IDAMAX_HEADER 38 #define TEMPLATE_BLAS_IDAMAX_HEADER 58 if (*n < 1 || *incx <= 0) {
73 for (i__ = 2; i__ <= i__1; ++i__) {
74 if ((d__1 = dx[ix],
absMACRO(d__1)) <= dmax__) {
78 dmax__ = (d__1 = dx[ix],
absMACRO(d__1));
88 for (i__ = 2; i__ <= i__1; ++i__) {
89 if ((d__1 = dx[i__],
absMACRO(d__1)) <= dmax__) {
93 dmax__ = (d__1 = dx[i__],
absMACRO(d__1));
#define absMACRO(x)
Definition: template_blas_common.h:47
integer template_blas_idamax(const integer *n, const Treal *dx, const integer *incx)
Definition: template_blas_idamax.h:42
int integer
Definition: template_blas_common.h:40