47int main(
int argc,
char* argv[])
58 for (
int i=0; i<n; i++ ) { x[i] = i; }
59 blas.SCAL( n, alpha, x, 1 );
60 int max_idx = blas.IAMAX( n, x, 1 );
61 std::cout<<
"The index of the maximum magnitude entry of x[] is the "
62 << max_idx <<
"-th and x[ " << max_idx-1 <<
" ] = "<< x[max_idx-1]