You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
544 B
26 lines
544 B
#include <assert.h>
|
|
#include <stdint.h>
|
|
#include <string.h>
|
|
|
|
#if BLA_SIZEOF_INTEGER == 4
|
|
typedef int32_t blas_int;
|
|
#elif BLA_SIZEOF_INTEGER == 8
|
|
typedef int64_t blas_int;
|
|
#else
|
|
# error BLA_SIZEOF_INTEGER is not declared!
|
|
#endif
|
|
|
|
// declare what parts of the blas C-API we need
|
|
void dswap_(blas_int* N, double* X, blas_int* incX, double* Y, blas_int* incY);
|
|
|
|
int main()
|
|
{
|
|
double x[4] = { 1, 2, 3, 4 };
|
|
double y[4] = { 8, 7, 7, 6 };
|
|
blas_int N = 4;
|
|
blas_int incX = 1;
|
|
blas_int incY = 1;
|
|
dswap_(&N, x, &incX, y, &incY);
|
|
return 0;
|
|
}
|