libflame  revision_anchor
Functions
bl1_maxabsv.c File Reference

(r)

Functions

void bl1_smaxabsv (int n, float *x, int incx, float *maxabs)
 
void bl1_dmaxabsv (int n, double *x, int incx, double *maxabs)
 
void bl1_cmaxabsv (int n, scomplex *x, int incx, float *maxabs)
 
void bl1_zmaxabsv (int n, dcomplex *x, int incx, double *maxabs)
 

Function Documentation

◆ bl1_cmaxabsv()

void bl1_cmaxabsv ( int  n,
scomplex x,
int  incx,
float *  maxabs 
)

References i.

Referenced by bl1_cmaxabsm(), and bl1_cmaxabsmr().

56 {
57  scomplex* chi;
58  float maxabs_cand;
59  float maxabs_temp;
60  int i;
61 
62  bl1_csabsval2( x, &maxabs_cand );
63 
64  for ( i = 0; i < n; ++i )
65  {
66  chi = x + i*incx;
67 
68  bl1_csabsval2( chi, &maxabs_temp );
69 
70  if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
71  }
72 
73  *maxabs = maxabs_cand;
74 }
Definition: blis_type_defs.h:132
int i
Definition: bl1_axmyv2.c:145

◆ bl1_dmaxabsv()

void bl1_dmaxabsv ( int  n,
double *  x,
int  incx,
double *  maxabs 
)

References i.

Referenced by bl1_dmaxabsm(), and bl1_dmaxabsmr().

35 {
36  double* chi;
37  double maxabs_cand;
38  double maxabs_temp;
39  int i;
40 
41  bl1_dabsval2( x, &maxabs_cand );
42 
43  for ( i = 0; i < n; ++i )
44  {
45  chi = x + i*incx;
46 
47  bl1_dabsval2( chi, &maxabs_temp );
48 
49  if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
50  }
51 
52  *maxabs = maxabs_cand;
53 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_smaxabsv()

void bl1_smaxabsv ( int  n,
float *  x,
int  incx,
float *  maxabs 
)

References i.

Referenced by bl1_smaxabsm(), and bl1_smaxabsmr().

14 {
15  float* chi;
16  float maxabs_cand;
17  float maxabs_temp;
18  int i;
19 
20  bl1_sabsval2( x, &maxabs_cand );
21 
22  for ( i = 0; i < n; ++i )
23  {
24  chi = x + i*incx;
25 
26  bl1_sabsval2( chi, &maxabs_temp );
27 
28  if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
29  }
30 
31  *maxabs = maxabs_cand;
32 }
int i
Definition: bl1_axmyv2.c:145

◆ bl1_zmaxabsv()

void bl1_zmaxabsv ( int  n,
dcomplex x,
int  incx,
double *  maxabs 
)

References i.

Referenced by bl1_zmaxabsm(), and bl1_zmaxabsmr().

77 {
78  dcomplex* chi;
79  double maxabs_cand;
80  double maxabs_temp;
81  int i;
82 
83  bl1_zdabsval2( x, &maxabs_cand );
84 
85  for ( i = 0; i < n; ++i )
86  {
87  chi = x + i*incx;
88 
89  bl1_zdabsval2( chi, &maxabs_temp );
90 
91  if ( maxabs_temp > maxabs_cand ) maxabs_cand = maxabs_temp;
92  }
93 
94  *maxabs = maxabs_cand;
95 }
int i
Definition: bl1_axmyv2.c:145
Definition: blis_type_defs.h:137