native: reorg'ed and started ACML provider

src/NativeWrappers/ACML/blas.c

@@ -0,0 +1,80 @@
+#include "acml.h"
+#include "wrapper_common.h"
+
+enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113, CblasConjNoTrans=114};
+
+DLLEXPORT void s_axpy(const int n, const float alpha, float x[], float y[]){
+	saxpy(n, alpha, x, 1, y, 1);
+}
+
+DLLEXPORT void d_axpy(const int n, const double alpha, double x[], double y[]){
+	daxpy(n, alpha, x, 1, y, 1);
+}
+
+DLLEXPORT void c_axpy(const int n, complex alpha, complex x[], complex y[]){
+	caxpy(n, &alpha, x, 1, y, 1);
+}
+
+DLLEXPORT void z_axpy(const int n, doublecomplex alpha, doublecomplex x[], doublecomplex y[]){
+	zaxpy(n, &alpha, x, 1, y, 1);
+}
+
+DLLEXPORT void s_scale(const int n, const float alpha, float x[]){
+	sscal(n, alpha, x, 1);
+}
+
+DLLEXPORT void d_scale(const int n, const double alpha, double x[]){
+	dscal(n, alpha, x, 1);
+}
+
+DLLEXPORT void c_scale(const int n, complex alpha, complex x[]){
+	cscal(n, &alpha, x, 1);
+}
+
+DLLEXPORT void z_scale(const int n, doublecomplex alpha, doublecomplex x[]){
+	zscal(n, &alpha, x, 1);
+}
+
+DLLEXPORT float s_dot_product(const int n, float x[], float y[]){
+	return sdot(n, x, 1, y, 1);
+}
+
+DLLEXPORT double d_dot_product(const int n, double x[], double y[]){
+	return ddot(n, x, 1, y, 1);
+}
+
+DLLEXPORT complex c_dot_product(const int n, complex x[], complex y[]){
+	return cdotu(n, x, 1, y, 1);
+}
+
+DLLEXPORT doublecomplex z_dot_product(int n, doublecomplex x[], doublecomplex y[]){
+	return zdotu(n, x, 1, y, 1);
+}
+
+DLLEXPORT void s_matrix_multiply(const enum TRANSPOSE transA, const enum TRANSPOSE transB, const int m, const int n, const int k, float alpha, float x[], float y[], float beta, float c[]){
+	int lda = transA == CblasNoTrans ? m : k;
+	int ldb = transB == CblasNoTrans ? k : n;
+
+	sgemm(transA, transB, m, n, k, alpha, x, lda, y, ldb, beta, c, m);
+}
+
+DLLEXPORT void d_matrix_multiply(const enum TRANSPOSE transA, const enum TRANSPOSE transB, const int m, const int n, const int k, double alpha, double x[], double y[], double beta, double c[]){
+	int lda = transA == CblasNoTrans ? m : k;
+	int ldb = transB == CblasNoTrans ? k : n;
+
+	dgemm(transA, transB, m, n, k, alpha, x, lda, y, ldb, beta, c, m);
+}
+
+DLLEXPORT void c_matrix_multiply(const enum TRANSPOSE transA, const enum TRANSPOSE transB, const int m, const int n, const int k, complex alpha, complex x[], complex y[], complex beta, complex c[]){
+	int lda = transA == CblasNoTrans ? m : k;
+	int ldb = transB == CblasNoTrans ? k : n;
+
+	cgemm(transA, transB, m, n, k, &alpha, x, lda, y, ldb, &beta, c, m);
+}
+
+DLLEXPORT void z_matrix_multiply(const enum TRANSPOSE transA, const enum TRANSPOSE transB, const int m, const int n, const int k, doublecomplex alpha, doublecomplex x[], doublecomplex y[], doublecomplex beta, doublecomplex c[]){
+	int lda = transA == CblasNoTrans ? m : k;
+	int ldb = transB == CblasNoTrans ? k : n;
+
+	zgemm(transA, transB, m, n, k, &alpha, x, lda, y, ldb, &beta, c, m);
+}

src/NativeWrappers/ACML/lapack.cpp

@@ -0,0 +1,923 @@
+#include "acml.h"
+#include "wrapper_common.h"
+#include <algorithm>
+
+extern "C"{
+
+	DLLEXPORT int s_lu_factor(int m, float a[], int ipiv[])
+	{
+		int info = 0;
+		sgetrf(m, m, a, m,ipiv,&info);
+		for(int i = 0; i < m; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int d_lu_factor(int m, double a[], int ipiv[])
+	{
+		int info = 0;
+		dgetrf(m, m,a, m, ipiv, &info);
+		for(int i = 0; i < m; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int c_lu_factor(int m, complex a[], int ipiv[])
+	{
+		int info = 0;
+		cgetrf(m, m, a, m,ipiv, &info);
+		for(int i = 0; i < m; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int z_lu_factor(int m, doublecomplex a[], int ipiv[])
+	{
+		int info = 0;
+		zgetrf(m, m, a, m, ipiv, &info);
+		for(int i = 0; i < m; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int s_lu_inverse(int n, float a[], float work[], int lwork)
+	{
+		int* ipiv = new int[n];
+		int info = 0;
+		sgetrf(n, n, a, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			return info;
+		}
+
+		SGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+		delete[] ipiv;
+		return info;
+	}
+
+	DLLEXPORT int d_lu_inverse(int n, double a[], double work[], int lwork)
+	{
+		int* ipiv = new int[n];
+		int info = 0;
+		dgetrf(n, n, a, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			return info;
+		}
+
+		DGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+		delete[] ipiv;
+		return info;
+	}
+
+	DLLEXPORT int c_lu_inverse(int n, complex a[], complex work[], int lwork)
+	{
+		int* ipiv = new int[n];
+		int info = 0;
+		cgetrf(n, n, a, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			return info;
+		}
+
+		CGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+		delete[] ipiv;
+		return info;
+	}
+
+	DLLEXPORT int z_lu_inverse(int n, doublecomplex a[], doublecomplex work[], int lwork)
+	{
+		int* ipiv = new int[n];
+		int info = 0;
+		zgetrf(n, n, a, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			return info;
+		}
+
+		ZGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+		delete[] ipiv;
+		return info;
+	}
+
+	DLLEXPORT int s_lu_inverse_factored(int n, float a[], int ipiv[], float work[], int lwork)
+	{
+		int i;
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+		int info = 0;
+		SGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int d_lu_inverse_factored(int n, double a[], int ipiv[], double work[], int lwork)
+	{
+		int i;
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		int info = 0;
+		DGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int c_lu_inverse_factored(int n, complex a[], int ipiv[], complex work[], int lwork)
+	{
+		int i;
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		int info = 0;
+		CGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int z_lu_inverse_factored(int n, doublecomplex a[], int ipiv[], doublecomplex work[], int lwork)
+	{
+		int i;
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		int info = 0;
+		ZGETRI(&n, a, &n, ipiv, work, &lwork, &info);
+
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int s_lu_solve_factored(int n, int nrhs, float a[], int ipiv[], float b[])
+	{
+		int info = 0;
+		int i;    
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		char trans ='N';
+		sgetrs(trans, n, nrhs, a, n, ipiv, b, n, &info);
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int  d_lu_solve_factored(int n, int nrhs, double a[], int ipiv[], double b[])
+	{
+		int info = 0;
+		int i;    
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		char trans ='N';
+		dgetrs(trans, n, nrhs, a, n, ipiv, b, n, &info);
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int c_lu_solve_factored(int n, int nrhs, complex a[], int ipiv[], complex b[])
+	{
+		int info = 0;
+		int i;    
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		char trans ='N';
+		cgetrs(trans, n, nrhs, a, n, ipiv, b, n, &info);
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int z_lu_solve_factored(int n, int nrhs, doublecomplex a[], int ipiv[], doublecomplex b[])
+	{
+		int info = 0;
+		int i;    
+		for(i = 0; i < n; ++i ){
+			ipiv[i] += 1;
+		}
+
+		char trans ='N';
+		zgetrs(trans, n, nrhs, a, n, ipiv, b, n, &info);
+		for(i = 0; i < n; ++i ){
+			ipiv[i] -= 1;
+		}
+		return info;
+	}
+
+	DLLEXPORT int s_lu_solve(int n, int nrhs, float a[], float b[])
+	{
+		float* clone = new float[n*n];
+		std::memcpy(clone, a, n*n*sizeof(float));
+
+		int* ipiv = new int[n];
+		int info = 0;
+		sgetrf(n, n, clone, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			delete[] clone;
+			return info;
+		}
+
+		char trans ='N';
+		sgetrs(trans, n, nrhs, clone, n, ipiv, b, n, &info);
+		delete[] ipiv;
+		delete[] clone;
+		return info;
+	}
+
+	DLLEXPORT int d_lu_solve(int n, int nrhs, double a[], double b[])
+	{
+		double* clone = new double[n*n];
+		std::memcpy(clone, a, n*n*sizeof(double));
+
+		int* ipiv = new int[n];
+		int info = 0;
+		dgetrf(n, n, clone, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			delete[] clone;
+			return info;
+		}
+
+		char trans ='N';
+		dgetrs(trans, n, nrhs, clone, n, ipiv, b, n, &info);
+		delete[] ipiv;
+		delete[] clone;
+		return info;
+	}
+
+	DLLEXPORT int c_lu_solve(int n, int nrhs, complex a[], complex b[])
+	{
+		complex* clone = new complex[n*n];
+		std::memcpy(clone, a, n*n*sizeof(complex));
+
+		int* ipiv = new int[n];
+		int info = 0;
+		cgetrf(n, n, clone, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			delete[] clone;
+			return info;
+		}
+
+		char trans ='N';
+		cgetrs(trans, n, nrhs, clone, n, ipiv, b, n, &info);
+		delete[] ipiv;
+		delete[] clone;
+		return info;
+	}
+
+	DLLEXPORT int z_lu_solve(int n, int nrhs, doublecomplex a[],  doublecomplex b[])
+	{
+		doublecomplex* clone = new doublecomplex[n*n];
+		std::memcpy(clone, a, n*n*sizeof(doublecomplex));
+
+		int* ipiv = new int[n];
+		int info = 0;
+		zgetrf(n, n, clone, n, ipiv, &info);
+
+		if (info != 0){
+			delete[] ipiv;
+			delete[] clone;
+			return info;
+		}
+
+		char trans ='N';
+		zgetrs(trans, n, nrhs, clone, n, ipiv, b, n, &info);
+		delete[] ipiv;
+		delete[] clone;
+		return info;
+	}
+
+	DLLEXPORT int s_cholesky_factor(int n, float a[]){
+		char uplo = 'L';
+		int info = 0;
+		spotrf(uplo, n, a, n, &info);
+		for (int i = 0; i < n; ++i)
+		{
+			int index = i * n;
+			for (int j = 0; j < n && i > j; ++j)
+			{
+				a[index + j] = 0;
+			}
+		}
+		return info;
+	}
+
+	DLLEXPORT int d_cholesky_factor(int n, double* a){
+		char uplo = 'L';
+		int info = 0;
+		dpotrf(uplo, n, a, n, &info);
+		for (int i = 0; i < n; ++i)
+		{
+			int index = i * n;
+			for (int j = 0; j < n && i > j; ++j)
+			{
+				a[index + j] = 0;
+			}
+		}
+		return info;
+	}
+
+	DLLEXPORT int c_cholesky_factor(int n, complex a[]){
+		char uplo = 'L';
+		int info = 0;
+		complex zero = {0.0f, 0.0f};
+		cpotrf(uplo, n, a, n, &info);
+		for (int i = 0; i < n; ++i)
+		{
+			int index = i * n;
+			for (int j = 0; j < n && i > j; ++j)
+			{
+				a[index + j] = zero;
+			}
+		}
+		return info;
+	}
+
+	DLLEXPORT int z_cholesky_factor(int n, doublecomplex a[]){
+		char uplo = 'L';
+		int info = 0;
+		doublecomplex zero = {0.0, 0.0};
+		zpotrf(uplo, n, a, n, &info);
+		for (int i = 0; i < n; ++i)
+		{
+			int index = i * n;
+			for (int j = 0; j < n && i > j; ++j)
+			{
+				a[index + j] = zero;
+			}
+		}
+		return info;
+	}
+
+	DLLEXPORT int s_cholesky_solve(int n, int nrhs, float a[], float b[])
+	{
+		float* clone = new float[n*n];
+		std::memcpy(clone, a, n*n*sizeof(float));
+		char uplo = 'L';
+		int info = 0;
+		spotrf(uplo, n, clone, n, &info);
+
+		if (info != 0){
+			delete[] clone;
+			return info;
+		}
+
+		spotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int d_cholesky_solve(int n, int nrhs, double a[], double b[])
+	{
+		double* clone = new double[n*n];
+		std::memcpy(clone, a, n*n*sizeof(double));
+		char uplo = 'L';
+		int info = 0;
+		dpotrf(uplo, n, clone, n, &info);
+
+		if (info != 0){
+			delete[] clone;
+			return info;
+		}
+
+		dpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int c_cholesky_solve(int n, int nrhs, complex a[], complex b[])
+	{
+		complex* clone = new complex[n*n];
+		std::memcpy(clone, a, n*n*sizeof(complex));
+		char uplo = 'L';
+		int info = 0;
+		cpotrf(uplo, n, clone, n, &info);
+
+		if (info != 0){
+			delete[] clone;
+			return info;
+		}
+
+		cpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int z_cholesky_solve(int n, int nrhs, doublecomplex a[], doublecomplex b[])
+	{
+		doublecomplex* clone = new doublecomplex[n*n];
+		std::memcpy(clone, a, n*n*sizeof(doublecomplex));
+		char uplo = 'L';
+		int info = 0;
+		zpotrf(uplo, n, clone, n, &info);
+
+		if (info != 0){
+			delete[] clone;
+			return info;
+		}
+
+		zpotrs(uplo, n, nrhs, clone, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int s_cholesky_solve_factored(int n, int nrhs, float a[], float b[])
+	{
+		char uplo = 'L';
+		int info = 0;
+		spotrs(uplo, n, nrhs, a, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int d_cholesky_solve_factored(int n, int nrhs, double a[], double b[])
+	{
+		char uplo = 'L';
+		int info = 0;
+		dpotrs(uplo, n, nrhs, a, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int c_cholesky_solve_factored(int n, int nrhs, complex a[], complex b[])
+	{
+		char uplo = 'L';
+		int info = 0;
+		cpotrs(uplo, n, nrhs, a, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int z_cholesky_solve_factored(int n, int nrhs, doublecomplex a[], doublecomplex b[])
+	{
+		char uplo = 'L';
+		int info = 0;
+		zpotrs(uplo, n, nrhs, a, n, b, n, &info);
+		return info;
+	}
+
+	DLLEXPORT int s_qr_factor(int m, int n, float r[], float tau[], float q[], float work[], int len)
+	{
+		int info = 0;
+		SGEQRF(&m, &n, r, &m, tau, work, &len, &info);
+
+		for (int i = 0; i < m; ++i)
+		{
+			for (int j = 0; j < m && j < n; ++j)
+			{
+				if (i > j)
+				{
+					q[j * m + i] = r[j * m + i];
+				}
+			}
+		}
+
+		//compute the q elements explicitly
+		if (m <= n)
+		{
+			SORGQR(&m, &m, &m, q, &m, tau, work, &len, &info);
+		}
+		else
+		{
+			SORGQR(&m, &n, &n, q, &m, tau, work, &len, &info);
+		}
+
+		return info;
+	}
+
+	DLLEXPORT int d_qr_factor(int m, int n, double r[], double tau[], double q[], double work[], int len)
+	{
+		int info = 0;
+		DGEQRF(&m, &n, r, &m, tau, work, &len, &info);
+
+		for (int i = 0; i < m; ++i)
+		{
+			for (int j = 0; j < m && j < n; ++j)
+			{
+				if (i > j)
+				{
+					q[j * m + i] = r[j * m + i];
+				}
+			}
+		}
+
+		//compute the q elements explicitly
+		if (m <= n)
+		{
+			DORGQR(&m, &m, &m, q, &m, tau, work, &len, &info);
+		}
+		else
+		{
+			DORGQR(&m, &n, &n, q, &m, tau, work, &len, &info);
+		}
+
+		return info;
+	}
+
+	DLLEXPORT int c_qr_factor(int m, int n, complex r[], complex tau[], complex q[], complex work[], int len)
+	{
+		int info = 0;
+		CGEQRF(&m, &n, r, &m, tau, work, &len, &info);
+
+		for (int i = 0; i < m; ++i)
+		{
+			for (int j = 0; j < m && j < n; ++j)
+			{
+				if (i > j)
+				{
+					q[j * m + i] = r[j * m + i];
+				}
+			}
+		}
+
+		//compute the q elements explicitly
+		if (m <= n)
+		{
+			CUNGQR(&m, &m, &m, q, &m, tau, work, &len, &info);
+		}
+		else
+		{
+			CUNGQR(&m, &n, &n, q, &m, tau, work, &len, &info);
+		}
+
+		return info;
+	}
+
+	DLLEXPORT int z_qr_factor(int m, int n, doublecomplex r[], doublecomplex tau[], doublecomplex q[], doublecomplex work[], int len)
+	{
+		int info = 0;
+		ZGEQRF(&m, &n, r, &m, tau, work, &len, &info);
+
+		for (int i = 0; i < m; ++i)
+		{
+			for (int j = 0; j < m && j < n; ++j)
+			{
+				if (i > j)
+				{
+					q[j * m + i] = r[j * m + i];
+				}
+			}
+		}
+
+		//compute the q elements explicitly
+		if (m <= n)
+		{
+			ZUNGQR(&m, &m, &m, q, &m, tau, work, &len, &info);
+		}
+		else
+		{
+			ZUNGQR(&m, &n, &n, q, &m, tau, work, &len, &info);
+		}
+
+		return info;
+	}
+
+	DLLEXPORT int s_qr_solve(int m, int n, int bn, float r[], float b[], float x[], float work[], int len)
+	{
+		int info = 0;
+		float* clone_r = new float[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(float));
+
+		float* tau = new float[std::max(1, std::min(m,n))];
+		SGEQRF(&m, &n, clone_r, &m, tau, work, &len, &info);
+
+		if (info != 0)
+		{
+			delete[] clone_r;
+			delete[] tau;
+			return info;
+		}
+
+		float* clone_b = new float[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(float));
+
+		char side ='L';
+		char tran = 'T';
+		char upper = 'U';
+		char not = 'N';
+		SORMQR(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		strsm(side, upper, not, not, n, bn, 1.0, clone_r, m, clone_b, m);
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_r;
+		delete[] tau;
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int d_qr_solve(int m, int n, int bn, double r[], double b[], double x[], double work[], int len)
+	{
+		int info = 0;
+		double* clone_r = new double[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(double));
+
+		double* tau = new double[std::max(1, std::min(m,n))];
+		DGEQRF(&m, &n, clone_r, &m, tau, work, &len, &info);
+
+		if (info != 0)
+		{
+			delete[] clone_r;
+			delete[] tau;
+			return info;
+		}
+
+		double* clone_b = new double[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(double));
+
+		char side ='L';
+		char tran = 'T';
+		char upper = 'U';
+		char not = 'N';
+
+		DORMQR(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		dtrsm(side, upper, not, not, n, bn, 1.0, clone_r, m, clone_b, m);
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_b;
+		delete[] tau;
+		delete[] clone_r;
+		return info;
+	}
+
+	DLLEXPORT int c_qr_solve(int m, int n, int bn, complex r[], complex b[], complex x[], complex work[], int len)
+	{
+		int info = 0;
+		complex* clone_r = new complex[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(complex));
+
+		complex* tau = new complex[std::min(m,n)];
+		CGEQRF(&m, &n, clone_r, &m, tau, work, &len, &info);
+
+		if (info != 0)
+		{
+			delete[] clone_r;
+			delete[] tau;
+			return info;
+		}
+
+		char side ='L';
+		char tran = 'C';
+		char upper = 'U';
+		char not = 'N';
+
+		complex* clone_b = new complex[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(complex));
+
+		CUNMQR(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		complex one = {1.0, 0.0};
+		ctrsm(side, upper, not, not, n, bn, &one, clone_r, m, clone_b, m);
+
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_r;
+		delete[] tau;
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int z_qr_solve(int m, int n, int bn, doublecomplex r[], doublecomplex b[], doublecomplex x[], doublecomplex work[], int len)
+	{
+		int info = 0;
+		doublecomplex* clone_r = new doublecomplex[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(doublecomplex));
+
+		doublecomplex* tau = new doublecomplex[std::min(m,n)];
+		ZGEQRF(&m, &n, clone_r, &m, tau, work, &len, &info);
+
+		if (info != 0)
+		{
+			delete[] clone_r;
+			delete[] tau;
+			return info;
+		}
+
+		char side ='L';
+		char tran = 'C';
+		char upper = 'U';
+		char not = 'N';
+
+		doublecomplex* clone_b = new doublecomplex[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(doublecomplex));
+
+		ZUNMQR(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		doublecomplex one = {1.0, 0.0};
+		ztrsm(side, upper, not, not, n, bn, &one, clone_r, m, clone_b, m);
+
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_r;
+		delete[] tau;
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int s_qr_solve_factored(int m, int n, int bn, float r[], float b[], float tau[], float x[], float work[], int len)
+	{
+		char side ='L';
+		char tran = 'T';
+		char upper = 'U';
+		char not = 'N';
+		int info = 0;
+
+		float* clone_b = new float[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(float));
+
+		SORMQR(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		strsm(side, upper, not, not, n, bn, 1.0, r, m, clone_b, m);
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int d_qr_solve_factored(int m, int n, int bn, double r[], double b[], double tau[], double x[], double work[], int len)
+	{
+		char side ='L';
+		char tran = 'T';
+		char upper = 'U';
+		char not = 'N';
+		int info = 0;
+
+		double* clone_b = new double[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(double));
+
+		DORMQR(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		dtrsm(side, upper, not, not, n, bn, 1.0, r, m, clone_b, m);
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int c_qr_solve_factored(int m, int n, int bn, complex r[], complex b[], complex tau[], complex x[], complex work[], int len)
+	{
+		char side ='L';
+		char tran = 'C';
+		char upper = 'U';
+		char not = 'N';
+		int info = 0;
+
+		complex* clone_b = new complex[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(complex));
+
+		CUNMQR(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		complex one = {1.0f, 0.0f};
+		ctrsm(side, upper, not, not, n, bn, &one, r, m, clone_b, m);
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int z_qr_solve_factored(int m, int n, int bn, doublecomplex r[], doublecomplex b[], doublecomplex tau[], doublecomplex x[], doublecomplex work[], int len)
+	{
+		char side ='L';
+		char tran = 'C';
+		char upper = 'U';
+		char not = 'N';
+		int info = 0;
+
+		doublecomplex* clone_b = new doublecomplex[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(doublecomplex));
+
+		ZUNMQR(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info, 1, 1);
+		doublecomplex one = {1.0, 0.0};
+		ztrsm(side, upper, not, not, n, bn, &one, r, m, clone_b, m);
+
+		for (int i = 0; i < n; ++i)
+		{
+			for (int j = 0; j < bn; ++j)
+			{
+				x[j * n + i] = clone_b[j * m + i];
+			}
+		}
+
+		delete[] clone_b;
+		return info;
+	}
+
+	DLLEXPORT int s_svd_factor(bool compute_vectors, int m, int n, float a[], float s[], float u[], float v[], float work[], int len)
+	{
+		int info = 0;
+		char job = compute_vectors ? 'A' : 'N';
+		SGESVD(&job, &job, &m, &n, a, &m, s, u, &m, v, &n, work, &len, &info, 1, 1);
+		return info;
+	}
+
+	DLLEXPORT int d_svd_factor(bool compute_vectors, int m, int n, double a[], double s[], double u[], double v[], double work[], int len)
+	{
+		int info = 0;
+		char job = compute_vectors ? 'A' : 'N';
+		DGESVD(&job, &job, &m, &n, a, &m, s, u, &m, v, &n, work, &len, &info, 1, 1);
+		return info;
+	}
+
+	DLLEXPORT int c_svd_factor(bool compute_vectors, int m, int n, complex a[], complex s[], complex u[], complex v[], complex work[], int len)
+	{
+		int info = 0;
+		int dim_s = std::min(m,n);
+		float* rwork = new float[5 * dim_s];
+		float* s_local = new float[dim_s];
+		char job = compute_vectors ? 'A' : 'N';
+		CGESVD(&job, &job, &m, &n, a, &m, s_local, u, &m, v, &n, work, &len, rwork, &info, 1 ,1);
+
+		for(int index = 0; index < dim_s; ++index){
+			complex value = {s_local[index], 0.0f};
+			s[index] = value;
+		}
+
+		delete[] rwork;
+		delete[] s_local;
+		return info;
+	}
+
+	DLLEXPORT int z_svd_factor(bool compute_vectors, int m, int n, doublecomplex a[], doublecomplex s[], doublecomplex u[], doublecomplex v[], doublecomplex work[], int len)
+	{
+		int info = 0;
+		int dim_s = std::min(m,n);
+		double* rwork = new double[5 * std::min(m, n)];
+		double* s_local = new double[dim_s];
+		char job = compute_vectors ? 'A' : 'N';
+		ZGESVD(&job, &job, &m, &n, a, &m, s_local, u, &m, v, &n, work, &len, rwork, &info, 1, 1);
+
+		for(int index = 0; index < dim_s; ++index){
+			doublecomplex value = {s_local[index], 0.0f};
+			s[index] = value;
+		}
+
+		delete[] rwork;
+		delete[] s_local;
+		return info;
+	}
+}

src/NativeWrappers/GotoBlas2/blas.c

@@ -1,4 +1,4 @@
-#include "blas.h"
+#include "cblas.h"
 #include "wrapper_common.h"
 #include <stdlib.h>
 DLLEXPORT void s_axpy(int n, float alpha, float x[], float y[]){

src/NativeWrappers/GotoBlas2/blas.h

@@ -1,6 +0,0 @@
-#ifndef BLAS_H
-#define BLAS_H
-
-#include "cblas.h"
-
-#endif

src/NativeWrappers/GotoBlas2/lapack.h

@@ -1,7 +1,6 @@
 #ifndef LAPACK_H
 #define LAPACK_H
 
-
 extern "C"{
 	#include "f2c.h"
 	#include "clapack.h"

src/NativeWrappers/Common/blas.c → src/NativeWrappers/MKL/blas.c

@@ -1,4 +1,4 @@
-#include "blas.h"
+#include "mkl_cblas.h"
 #include "wrapper_common.h"
 
 DLLEXPORT void s_axpy(const int n, const float alpha, const float x[], float y[]){
@@ -9,11 +9,11 @@ DLLEXPORT void d_axpy(const int n, const double alpha, const double x[], double
 	cblas_daxpy(n, alpha, x, 1, y, 1);
 }
 
-DLLEXPORT void c_axpy(const int n, const Complex8 alpha, const Complex8 x[], Complex8 y[]){
+DLLEXPORT void c_axpy(const int n, const MKL_Complex8 alpha, const MKL_Complex8 x[], MKL_Complex8 y[]){
 	cblas_caxpy(n, &alpha, x, 1, y, 1);
 }
 
-DLLEXPORT void z_axpy(const int n, const Complex16 alpha, const Complex16 x[], Complex16 y[]){
+DLLEXPORT void z_axpy(const int n, const MKL_Complex16 alpha, const MKL_Complex16 x[], MKL_Complex16 y[]){
 	cblas_zaxpy(n, &alpha, x, 1, y, 1);
 }
 
@@ -25,11 +25,11 @@ DLLEXPORT void d_scale(const int n, const double alpha, double x[]){
 	cblas_dscal(n, alpha, x, 1);
 }
 
-DLLEXPORT void c_scale(const int n, const Complex8 alpha, Complex8 x[]){
+DLLEXPORT void c_scale(const int n, const MKL_Complex8 alpha, MKL_Complex8 x[]){
 	cblas_cscal(n, &alpha, x, 1);
 }
 
-DLLEXPORT void z_scale(const int n, const Complex16 alpha, Complex16 x[]){
+DLLEXPORT void z_scale(const int n, const MKL_Complex16 alpha, MKL_Complex16 x[]){
 	cblas_zscal(n, &alpha, x, 1);
 }
 
@@ -41,14 +41,14 @@ DLLEXPORT double d_dot_product(const int n, const double x[], const double y[]){
 	return cblas_ddot(n, x, 1, y, 1);
 }
 
-DLLEXPORT Complex8 c_dot_product(const int n, const Complex8 x[], const Complex8 y[]){
-	Complex8 ret;
+DLLEXPORT MKL_Complex8 c_dot_product(const int n, const MKL_Complex8 x[], const MKL_Complex8 y[]){
+	MKL_Complex8 ret;
 	cblas_cdotu_sub(n, x, 1, y, 1, &ret);
 	return ret;
 }
 
-DLLEXPORT Complex16 z_dot_product(const int n, const Complex16 x[], const Complex16 y[]){
-	Complex16 ret;
+DLLEXPORT MKL_Complex16 z_dot_product(const int n, const MKL_Complex16 x[], const MKL_Complex16 y[]){
+	MKL_Complex16 ret;
 	cblas_zdotu_sub(n, x, 1, y, 1, &ret);
 	return ret;
 }
@@ -67,14 +67,14 @@ DLLEXPORT void d_matrix_multiply(const enum CBLAS_TRANSPOSE transA, const enum C
 	cblas_dgemm(CblasColMajor, transA, transB, m, n, k, alpha, x, lda, y, ldb, beta, c, m);
 }
 
-DLLEXPORT void c_matrix_multiply(const enum CBLAS_TRANSPOSE transA, const enum CBLAS_TRANSPOSE transB, const int m, const int n, const int k, const Complex8 alpha, const Complex8 x[], const Complex8 y[], const Complex8 beta, Complex8 c[]){
+DLLEXPORT void c_matrix_multiply(const enum CBLAS_TRANSPOSE transA, const enum CBLAS_TRANSPOSE transB, const int m, const int n, const int k, const MKL_Complex8 alpha, const MKL_Complex8 x[], const MKL_Complex8 y[], const MKL_Complex8 beta, MKL_Complex8 c[]){
 	int lda = transA == CblasNoTrans ? m : k;
 	int ldb = transB == CblasNoTrans ? k : n;
 
 	cblas_cgemm(CblasColMajor, transA, transB, m, n, k, &alpha, x, lda, y, ldb, &beta, c, m);
 }
 
-DLLEXPORT void z_matrix_multiply(const enum CBLAS_TRANSPOSE transA, const enum CBLAS_TRANSPOSE transB, const int m, const int n, const int k, const Complex16 alpha, const Complex16 x[], const Complex16 y[], const Complex16 beta, Complex16 c[]){
+DLLEXPORT void z_matrix_multiply(const enum CBLAS_TRANSPOSE transA, const enum CBLAS_TRANSPOSE transB, const int m, const int n, const int k, const MKL_Complex16 alpha, const MKL_Complex16 x[], const MKL_Complex16 y[], const MKL_Complex16 beta, MKL_Complex16 c[]){
 	int lda = transA == CblasNoTrans ? m : k;
 	int ldb = transB == CblasNoTrans ? k : n;
 

src/NativeWrappers/MKL/blas.h

@@ -1,9 +0,0 @@
-#ifndef BLAS_H
-#define BLAS_H
-
-#include "mkl_cblas.h"
-
-typedef MKL_Complex8 Complex8;
-typedef MKL_Complex16 Complex16;
-
-#endif

src/NativeWrappers/Common/lapack.cpp → src/NativeWrappers/MKL/lapack.cpp

@@ -1,4 +1,5 @@
-#include "lapack.h"
+#include "mkl_lapack.h"
+#include "mkl_cblas.h"
 #include "wrapper_common.h"
 #include <algorithm>
 
@@ -13,12 +14,12 @@ extern "C"{
 		return dlange_(&norm, &m, &n, a, &m, work);
 	}
 
-	DLLEXPORT float c_matrix_norm(char norm, int m, int n, Complex8 a[], float work[])
+	DLLEXPORT float c_matrix_norm(char norm, int m, int n, MKL_Complex8 a[], float work[])
 	{
 		return clange_(&norm, &m, &n, a, &m, work);
 	}
 
-	DLLEXPORT double z_matrix_norm(char norm, int m, int n, Complex16 a[], double work[])
+	DLLEXPORT double z_matrix_norm(char norm, int m, int n, MKL_Complex16 a[], double work[])
 	{
 		return zlange_(&norm, &m, &n, a, &m, work);
 	}
@@ -43,7 +44,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_lu_factor(int m, Complex8 a[], int ipiv[])
+	DLLEXPORT int c_lu_factor(int m, MKL_Complex8 a[], int ipiv[])
 	{
 		int info = 0;
 		cgetrf_(&m,&m,a,&m,ipiv,&info);
@@ -53,7 +54,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_lu_factor(int m, Complex16 a[], int ipiv[])
+	DLLEXPORT int z_lu_factor(int m, MKL_Complex16 a[], int ipiv[])
 	{
 		int info = 0;
 		zgetrf_(&m,&m,a,&m,ipiv,&info);
@@ -95,7 +96,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_lu_inverse(int n, Complex8 a[], Complex8 work[], int lwork)
+	DLLEXPORT int c_lu_inverse(int n, MKL_Complex8 a[], MKL_Complex8 work[], int lwork)
 	{
 		int* ipiv = new int[n];
 		int info = 0;
@@ -111,7 +112,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_lu_inverse(int n, Complex16 a[], Complex16 work[], int lwork)
+	DLLEXPORT int z_lu_inverse(int n, MKL_Complex16 a[], MKL_Complex16 work[], int lwork)
 	{
 		int* ipiv = new int[n];
 		int info = 0;
@@ -158,7 +159,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_lu_inverse_factored(int n, Complex8 a[], int ipiv[], Complex8 work[], int lwork)
+	DLLEXPORT int c_lu_inverse_factored(int n, MKL_Complex8 a[], int ipiv[], MKL_Complex8 work[], int lwork)
 	{
 		int i;
 		for(i = 0; i < n; ++i ){
@@ -174,7 +175,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_lu_inverse_factored(int n, Complex16 a[], int ipiv[], Complex16 work[], int lwork)
+	DLLEXPORT int z_lu_inverse_factored(int n, MKL_Complex16 a[], int ipiv[], MKL_Complex16 work[], int lwork)
 	{
 		int i;
 		for(i = 0; i < n; ++i ){
@@ -222,7 +223,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_lu_solve_factored(int n, int nrhs, Complex8 a[], int ipiv[], Complex8 b[])
+	DLLEXPORT int c_lu_solve_factored(int n, int nrhs, MKL_Complex8 a[], int ipiv[], MKL_Complex8 b[])
 	{
 		int info = 0;
 		int i;    
@@ -238,7 +239,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_lu_solve_factored(int n, int nrhs, Complex16 a[], int ipiv[], Complex16 b[])
+	DLLEXPORT int z_lu_solve_factored(int n, int nrhs, MKL_Complex16 a[], int ipiv[], MKL_Complex16 b[])
 	{
 		int info = 0;
 		int i;    
@@ -298,10 +299,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_lu_solve(int n, int nrhs, Complex8 a[], Complex8 b[])
+	DLLEXPORT int c_lu_solve(int n, int nrhs, MKL_Complex8 a[], MKL_Complex8 b[])
 	{
-		Complex8* clone = new Complex8[n*n];
-		std::memcpy(clone, a, n*n*sizeof(Complex8));
+		MKL_Complex8* clone = new MKL_Complex8[n*n];
+		std::memcpy(clone, a, n*n*sizeof(MKL_Complex8));
 
 		int* ipiv = new int[n];
 		int info = 0;
@@ -320,10 +321,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_lu_solve(int n, int nrhs, Complex16 a[],  Complex16 b[])
+	DLLEXPORT int z_lu_solve(int n, int nrhs, MKL_Complex16 a[],  MKL_Complex16 b[])
 	{
-		Complex16* clone = new Complex16[n*n];
-		std::memcpy(clone, a, n*n*sizeof(Complex16));
+		MKL_Complex16* clone = new MKL_Complex16[n*n];
+		std::memcpy(clone, a, n*n*sizeof(MKL_Complex16));
 
 		int* ipiv = new int[n];
 		int info = 0;
@@ -372,10 +373,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_cholesky_factor(int n, Complex8 a[]){
+	DLLEXPORT int c_cholesky_factor(int n, MKL_Complex8 a[]){
 		char uplo = 'L';
 		int info = 0;
-		Complex8 zero = {0.0f, 0.0f};
+		MKL_Complex8 zero = {0.0f, 0.0f};
 		cpotrf_(&uplo, &n, a, &n, &info);
 		for (int i = 0; i < n; ++i)
 		{
@@ -388,10 +389,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_cholesky_factor(int n, Complex16 a[]){
+	DLLEXPORT int z_cholesky_factor(int n, MKL_Complex16 a[]){
 		char uplo = 'L';
 		int info = 0;
-		Complex16 zero = {0.0, 0.0};
+		MKL_Complex16 zero = {0.0, 0.0};
 		zpotrf_(&uplo, &n, a, &n, &info);
 		for (int i = 0; i < n; ++i)
 		{
@@ -438,10 +439,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_cholesky_solve(int n, int nrhs, Complex8 a[], Complex8 b[])
+	DLLEXPORT int c_cholesky_solve(int n, int nrhs, MKL_Complex8 a[], MKL_Complex8 b[])
 	{
-		Complex8* clone = new Complex8[n*n];
-		std::memcpy(clone, a, n*n*sizeof(Complex8));
+		MKL_Complex8* clone = new MKL_Complex8[n*n];
+		std::memcpy(clone, a, n*n*sizeof(MKL_Complex8));
 		char uplo = 'L';
 		int info = 0;
 		cpotrf_(&uplo, &n, clone, &n, &info);
@@ -455,10 +456,10 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_cholesky_solve(int n, int nrhs, Complex16 a[], Complex16 b[])
+	DLLEXPORT int z_cholesky_solve(int n, int nrhs, MKL_Complex16 a[], MKL_Complex16 b[])
 	{
-		Complex16* clone = new Complex16[n*n];
-		std::memcpy(clone, a, n*n*sizeof(Complex16));
+		MKL_Complex16* clone = new MKL_Complex16[n*n];
+		std::memcpy(clone, a, n*n*sizeof(MKL_Complex16));
 		char uplo = 'L';
 		int info = 0;
 		zpotrf_(&uplo, &n, clone, &n, &info);
@@ -488,7 +489,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_cholesky_solve_factored(int n, int nrhs, Complex8 a[], Complex8 b[])
+	DLLEXPORT int c_cholesky_solve_factored(int n, int nrhs, MKL_Complex8 a[], MKL_Complex8 b[])
 	{
 		char uplo = 'L';
 		int info = 0;
@@ -496,7 +497,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_cholesky_solve_factored(int n, int nrhs, Complex16 a[], Complex16 b[])
+	DLLEXPORT int z_cholesky_solve_factored(int n, int nrhs, MKL_Complex16 a[], MKL_Complex16 b[])
 	{
 		char uplo = 'L';
 		int info = 0;
@@ -562,7 +563,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_qr_factor(int m, int n, Complex8 r[], Complex8 tau[], Complex8 q[], Complex8 work[], int len)
+	DLLEXPORT int c_qr_factor(int m, int n, MKL_Complex8 r[], MKL_Complex8 tau[], MKL_Complex8 q[], MKL_Complex8 work[], int len)
 	{
 		int info = 0;
 		cgeqrf_(&m, &n, r, &m, tau, work, &len, &info);
@@ -591,7 +592,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_qr_factor(int m, int n, Complex16 r[], Complex16 tau[], Complex16 q[], Complex16 work[], int len)
+	DLLEXPORT int z_qr_factor(int m, int n, MKL_Complex16 r[], MKL_Complex16 tau[], MKL_Complex16 q[], MKL_Complex16 work[], int len)
 	{
 		int info = 0;
 		zgeqrf_(&m, &n, r, &m, tau, work, &len, &info);
@@ -695,13 +696,13 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_qr_solve(int m, int n, int bn, Complex8 r[], Complex8 b[], Complex8 x[], Complex8 work[], int len)
+	DLLEXPORT int c_qr_solve(int m, int n, int bn, MKL_Complex8 r[], MKL_Complex8 b[], MKL_Complex8 x[], MKL_Complex8 work[], int len)
 	{
 		int info = 0;
-		Complex8* clone_r = new Complex8[m*n];
-		std::memcpy(clone_r, r, m*n*sizeof(Complex8));
+		MKL_Complex8* clone_r = new MKL_Complex8[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(MKL_Complex8));
 
-		Complex8* tau = new Complex8[std::min(m,n)];
+		MKL_Complex8* tau = new MKL_Complex8[std::min(m,n)];
 		cgeqrf_(&m, &n, clone_r, &m, tau, work, &len, &info);
 
 		if (info != 0)
@@ -714,11 +715,11 @@ extern "C"{
 		char side ='L';
 		char tran = 'C';
 
-		Complex8* clone_b = new Complex8[m*bn];
-		std::memcpy(clone_b, b, m*bn*sizeof(Complex8));
+		MKL_Complex8* clone_b = new MKL_Complex8[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(MKL_Complex8));
 
 		cunmqr_(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info);
-		Complex8 one = {1.0, 0.0};
+		MKL_Complex8 one = {1.0, 0.0};
 		cblas_ctrsm(CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, n, bn, &one, clone_r, m, clone_b, m);
 
 		for (int i = 0; i < n; ++i)
@@ -735,13 +736,13 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_qr_solve(int m, int n, int bn, Complex16 r[], Complex16 b[], Complex16 x[], Complex16 work[], int len)
+	DLLEXPORT int z_qr_solve(int m, int n, int bn, MKL_Complex16 r[], MKL_Complex16 b[], MKL_Complex16 x[], MKL_Complex16 work[], int len)
 	{
 		int info = 0;
-		Complex16* clone_r = new Complex16[m*n];
-		std::memcpy(clone_r, r, m*n*sizeof(Complex16));
+		MKL_Complex16* clone_r = new MKL_Complex16[m*n];
+		std::memcpy(clone_r, r, m*n*sizeof(MKL_Complex16));
 
-		Complex16* tau = new Complex16[std::min(m,n)];
+		MKL_Complex16* tau = new MKL_Complex16[std::min(m,n)];
 		zgeqrf_(&m, &n, clone_r, &m, tau, work, &len, &info);
 
 		if (info != 0)
@@ -754,11 +755,11 @@ extern "C"{
 		char side ='L';
 		char tran = 'C';
 
-		Complex16* clone_b = new Complex16[m*bn];
-		std::memcpy(clone_b, b, m*bn*sizeof(Complex16));
+		MKL_Complex16* clone_b = new MKL_Complex16[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(MKL_Complex16));
 
 		zunmqr_(&side, &tran, &m, &bn, &n, clone_r, &m, tau, clone_b, &m, work, &len, &info);
-		Complex16 one = {1.0, 0.0};
+		MKL_Complex16 one = {1.0, 0.0};
 		cblas_ztrsm(CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, n, bn, &one, clone_r, m, clone_b, m);
 
 		for (int i = 0; i < n; ++i)
@@ -821,17 +822,17 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_qr_solve_factored(int m, int n, int bn, Complex8 r[], Complex8 b[], Complex8 tau[], Complex8 x[], Complex8 work[], int len)
+	DLLEXPORT int c_qr_solve_factored(int m, int n, int bn, MKL_Complex8 r[], MKL_Complex8 b[], MKL_Complex8 tau[], MKL_Complex8 x[], MKL_Complex8 work[], int len)
 	{
 		char side ='L';
 		char tran = 'C';
 		int info = 0;
 
-		Complex8* clone_b = new Complex8[m*bn];
-		std::memcpy(clone_b, b, m*bn*sizeof(Complex8));
+		MKL_Complex8* clone_b = new MKL_Complex8[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(MKL_Complex8));
 
 		cunmqr_(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info);
-		Complex8 one = {1.0f, 0.0f};
+		MKL_Complex8 one = {1.0f, 0.0f};
 		cblas_ctrsm(CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, n, bn, &one, r, m, clone_b, m);
 		for (int i = 0; i < n; ++i)
 		{
@@ -845,17 +846,17 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_qr_solve_factored(int m, int n, int bn, Complex16 r[], Complex16 b[], Complex16 tau[], Complex16 x[], Complex16 work[], int len)
+	DLLEXPORT int z_qr_solve_factored(int m, int n, int bn, MKL_Complex16 r[], MKL_Complex16 b[], MKL_Complex16 tau[], MKL_Complex16 x[], MKL_Complex16 work[], int len)
 	{
 		char side ='L';
 		char tran = 'C';
 		int info = 0;
 
-		Complex16* clone_b = new Complex16[m*bn];
-		std::memcpy(clone_b, b, m*bn*sizeof(Complex16));
+		MKL_Complex16* clone_b = new MKL_Complex16[m*bn];
+		std::memcpy(clone_b, b, m*bn*sizeof(MKL_Complex16));
 
 		zunmqr_(&side, &tran, &m, &bn, &n, r, &m, tau, clone_b, &m, work, &len, &info);
-		Complex16 one = {1.0, 0.0};
+		MKL_Complex16 one = {1.0, 0.0};
 		cblas_ztrsm(CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, n, bn, &one, r, m, clone_b, m);
 
 		for (int i = 0; i < n; ++i)
@@ -886,7 +887,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int c_svd_factor(bool compute_vectors, int m, int n, Complex8 a[], Complex8 s[], Complex8 u[], Complex8 v[], Complex8 work[], int len)
+	DLLEXPORT int c_svd_factor(bool compute_vectors, int m, int n, MKL_Complex8 a[], MKL_Complex8 s[], MKL_Complex8 u[], MKL_Complex8 v[], MKL_Complex8 work[], int len)
 	{
 		int info = 0;
 		int dim_s = std::min(m,n);
@@ -896,7 +897,7 @@ extern "C"{
 		cgesvd_(&job, &job, &m, &n, a, &m, s_local, u, &m, v, &n, work, &len, rwork, &info);
 
 		for(int index = 0; index < dim_s; ++index){
-			Complex8 value = {s_local[index], 0.0f};
+			MKL_Complex8 value = {s_local[index], 0.0f};
 			s[index] = value;
 		}
 
@@ -905,7 +906,7 @@ extern "C"{
 		return info;
 	}
 
-	DLLEXPORT int z_svd_factor(bool compute_vectors, int m, int n, Complex16 a[], Complex16 s[], Complex16 u[], Complex16 v[], Complex16 work[], int len)
+	DLLEXPORT int z_svd_factor(bool compute_vectors, int m, int n, MKL_Complex16 a[], MKL_Complex16 s[], MKL_Complex16 u[], MKL_Complex16 v[], MKL_Complex16 work[], int len)
 	{
 		int info = 0;
 		int dim_s = std::min(m,n);
@@ -915,7 +916,7 @@ extern "C"{
 		zgesvd_(&job, &job, &m, &n, a, &m, s_local, u, &m, v, &n, work, &len, rwork, &info);
 
 		for(int index = 0; index < dim_s; ++index){
-			Complex16 value = {s_local[index], 0.0f};
+			MKL_Complex16 value = {s_local[index], 0.0f};
 			s[index] = value;
 		}
 

src/NativeWrappers/MKL/vector_functions.c

@@ -1,5 +1,4 @@
 #include "mkl_vml.h"
-#include "blas.h"
 #include "wrapper_common.h"
 
 
@@ -35,34 +34,34 @@ DLLEXPORT void d_vector_divide( const int n, const double x[], const double y[],
 	vdDiv( n, x, y, result );
 }
 
-DLLEXPORT void c_vector_add( const int n, const Complex8 x[], const Complex8 y[], Complex8 result[] ){
+DLLEXPORT void c_vector_add( const int n, const MKL_Complex8 x[], const MKL_Complex8 y[], MKL_Complex8 result[] ){
 	vcAdd( n, x, y, result );
 }
 
-DLLEXPORT void c_vector_subtract( const int n, const Complex8 x[], const Complex8 y[], Complex8 result[] ){
+DLLEXPORT void c_vector_subtract( const int n, const MKL_Complex8 x[], const MKL_Complex8 y[], MKL_Complex8 result[] ){
 	vcSub( n, x, y, result );
 }
 
-DLLEXPORT void c_vector_multiply( const int n, const Complex8 x[], const Complex8 y[], Complex8 result[] ){
+DLLEXPORT void c_vector_multiply( const int n, const MKL_Complex8 x[], const MKL_Complex8 y[], MKL_Complex8 result[] ){
 	vcMul( n, x, y, result );
 }
 
-DLLEXPORT void c_vector_divide( const int n, const Complex8 x[], const Complex8 y[], Complex8 result[] ){
+DLLEXPORT void c_vector_divide( const int n, const MKL_Complex8 x[], const MKL_Complex8 y[], MKL_Complex8 result[] ){
 	vcDiv( n, x, y, result );
 }
 
-DLLEXPORT void z_vector_add( const int n, const Complex16 x[], const Complex16 y[], Complex16 result[] ){
+DLLEXPORT void z_vector_add( const int n, const MKL_Complex16 x[], const MKL_Complex16 y[], MKL_Complex16 result[] ){
 	vzAdd( n, x, y, result );
 }
 
-DLLEXPORT void z_vector_subtract( const int n, const Complex16 x[], const Complex16 y[], Complex16 result[] ){
+DLLEXPORT void z_vector_subtract( const int n, const MKL_Complex16 x[], const MKL_Complex16 y[], MKL_Complex16 result[] ){
 	vzSub( n, x, y, result );
 }
 
-DLLEXPORT void z_vector_multiply( const int n, const Complex16 x[], const Complex16 y[], Complex16 result[] ){
+DLLEXPORT void z_vector_multiply( const int n, const MKL_Complex16 x[], const MKL_Complex16 y[], MKL_Complex16 result[] ){
 	vzMul( n, x, y, result );
 }
 
-DLLEXPORT void z_vector_divide( const int n, const Complex16 x[], const Complex16 y[], Complex16 result[] ){
+DLLEXPORT void z_vector_divide( const int n, const MKL_Complex16 x[], const MKL_Complex16 y[], MKL_Complex16 result[] ){
 	vzDiv( n, x, y, result );
 }

src/NativeWrappers/Windows/ACMLWrapper/ACMKWrapper.vcxproj

@@ -0,0 +1,161 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <ItemGroup Label="ProjectConfigurations">
+    <ProjectConfiguration Include="Debug|Win32">
+      <Configuration>Debug</Configuration>
+      <Platform>Win32</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|x64">
+      <Configuration>Debug</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|Win32">
+      <Configuration>Release</Configuration>
+      <Platform>Win32</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|x64">
+      <Configuration>Release</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+  </ItemGroup>
+  <PropertyGroup Label="Globals">
+    <ProjectGuid>{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}</ProjectGuid>
+    <Keyword>Win32Proj</Keyword>
+    <RootNamespace>ACMKWrapper</RootNamespace>
+    <ProjectName>ACMLWrapper</ProjectName>
+  </PropertyGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
+    <ConfigurationType>DynamicLibrary</ConfigurationType>
+    <UseDebugLibraries>true</UseDebugLibraries>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
+    <ConfigurationType>DynamicLibrary</ConfigurationType>
+    <UseDebugLibraries>true</UseDebugLibraries>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
+    <ConfigurationType>DynamicLibrary</ConfigurationType>
+    <UseDebugLibraries>false</UseDebugLibraries>
+    <WholeProgramOptimization>true</WholeProgramOptimization>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">
+    <ConfigurationType>DynamicLibrary</ConfigurationType>
+    <UseDebugLibraries>false</UseDebugLibraries>
+    <WholeProgramOptimization>true</WholeProgramOptimization>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
+  <ImportGroup Label="ExtensionSettings">
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="PropertySheets">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="PropertySheets">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <PropertyGroup Label="UserMacros" />
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <LinkIncremental>true</LinkIncremental>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
+    <LinkIncremental>true</LinkIncremental>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <LinkIncremental>false</LinkIncremental>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
+    <LinkIncremental>false</LinkIncremental>
+  </PropertyGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <ClCompile>
+      <PrecompiledHeader>NotUsing</PrecompiledHeader>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>Disabled</Optimization>
+      <PreprocessorDefinitions>WIN32;_DEBUG;_WINDOWS;_USRDLL;ACMKWRAPPER_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <AdditionalIncludeDirectories>..\..\Common;C:\AMD\acml4.4.0\ifort32_mp\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+    </ClCompile>
+    <Link>
+      <SubSystem>Windows</SubSystem>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <AdditionalLibraryDirectories>C:\AMD\acml4.4.0\ifort32_mp\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
+      <AdditionalDependencies>libacml_mp_dll.lib;kernel32.lib;user32.lib;</AdditionalDependencies>
+      <OutputFile>$(OutDir)MathNET.Numerics.ACML.dll</OutputFile>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
+    <ClCompile>
+      <PrecompiledHeader>NotUsing</PrecompiledHeader>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>Disabled</Optimization>
+      <PreprocessorDefinitions>WIN32;_DEBUG;_WINDOWS;_USRDLL;ACMKWRAPPER_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <AdditionalIncludeDirectories>..\..\Common;C:\AMD\acml4.4.0\ifort64_mp\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+    </ClCompile>
+    <Link>
+      <SubSystem>Windows</SubSystem>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <AdditionalLibraryDirectories>C:\AMD\acml4.4.0\ifort64_mp\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
+      <AdditionalDependencies>libacml_mp_dll.lib;kernel32.lib;user32.lib;</AdditionalDependencies>
+      <OutputFile>$(OutDir)MathNET.Numerics.ACML.dll</OutputFile>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <PrecompiledHeader>NotUsing</PrecompiledHeader>
+      <Optimization>MaxSpeed</Optimization>
+      <FunctionLevelLinking>true</FunctionLevelLinking>
+      <IntrinsicFunctions>true</IntrinsicFunctions>
+      <PreprocessorDefinitions>WIN32;NDEBUG;_WINDOWS;_USRDLL;ACMKWRAPPER_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <AdditionalIncludeDirectories>..\..\Common;C:\AMD\acml4.4.0\ifort32_mp\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+    </ClCompile>
+    <Link>
+      <SubSystem>Windows</SubSystem>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <EnableCOMDATFolding>true</EnableCOMDATFolding>
+      <OptimizeReferences>true</OptimizeReferences>
+      <AdditionalLibraryDirectories>C:\AMD\acml4.4.0\ifort32_mp\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
+      <AdditionalDependencies>libacml_mp_dll.lib;kernel32.lib;user32.lib;</AdditionalDependencies>
+      <OutputFile>$(OutDir)MathNET.Numerics.ACML.dll</OutputFile>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <PrecompiledHeader>NotUsing</PrecompiledHeader>
+      <Optimization>MaxSpeed</Optimization>
+      <FunctionLevelLinking>true</FunctionLevelLinking>
+      <IntrinsicFunctions>true</IntrinsicFunctions>
+      <PreprocessorDefinitions>WIN32;NDEBUG;_WINDOWS;_USRDLL;ACMKWRAPPER_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <AdditionalIncludeDirectories>..\..\Common;C:\AMD\acml4.4.0\ifort64_mp\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+    </ClCompile>
+    <Link>
+      <SubSystem>Windows</SubSystem>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <EnableCOMDATFolding>true</EnableCOMDATFolding>
+      <OptimizeReferences>true</OptimizeReferences>
+      <AdditionalLibraryDirectories>C:\AMD\acml4.4.0\ifort64_mp\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
+      <AdditionalDependencies>libacml_mp_dll.lib;kernel32.lib;user32.lib;</AdditionalDependencies>
+      <OutputFile>$(OutDir)MathNET.Numerics.ACML.dll</OutputFile>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemGroup>
+    <ResourceCompile Include="..\..\Common\resource.rc" />
+  </ItemGroup>
+  <ItemGroup>
+    <ClCompile Include="..\..\ACML\blas.c" />
+    <ClCompile Include="..\..\ACML\lapack.cpp" />
+    <ClCompile Include="..\..\Common\WindowsDLL.cpp" />
+  </ItemGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
+  <ImportGroup Label="ExtensionTargets">
+  </ImportGroup>
+</Project>

src/NativeWrappers/Windows/ACMLWrapper/ACMKWrapper.vcxproj.filters

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <ItemGroup>
+    <Filter Include="Source Files">
+      <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier>
+      <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions>
+    </Filter>
+    <Filter Include="Header Files">
+      <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier>
+      <Extensions>h;hpp;hxx;hm;inl;inc;xsd</Extensions>
+    </Filter>
+    <Filter Include="Resource Files">
+      <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier>
+      <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms</Extensions>
+    </Filter>
+  </ItemGroup>
+  <ItemGroup>
+    <ResourceCompile Include="..\..\Common\resource.rc">
+      <Filter>Resource Files</Filter>
+    </ResourceCompile>
+  </ItemGroup>
+  <ItemGroup>
+    <ClCompile Include="..\..\Common\WindowsDLL.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+    <ClCompile Include="..\..\ACML\blas.c">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+    <ClCompile Include="..\..\ACML\lapack.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+  </ItemGroup>
+</Project>

src/NativeWrappers/Windows/GotoBLAS2/GotoBLAS2Wrapper.vcxproj

@@ -154,10 +154,9 @@
     <ResourceCompile Include="..\..\Common\resource.rc" />
   </ItemGroup>
   <ItemGroup>
-    <ClInclude Include="..\..\Common\clapack.h" />
-    <ClInclude Include="..\..\Common\f2c.h" />
     <ClInclude Include="..\..\Common\wrapper_common.h" />
-    <ClInclude Include="..\..\GotoBlas2\blas.h" />
+    <ClInclude Include="..\..\GotoBlas2\clapack.h" />
+    <ClInclude Include="..\..\GotoBlas2\f2c.h" />
     <ClInclude Include="..\..\GotoBlas2\lapack.h" />
   </ItemGroup>
   <ItemGroup>

src/NativeWrappers/Windows/GotoBLAS2/GotoBLAS2Wrapper.vcxproj.filters

@@ -23,16 +23,13 @@
     <ClInclude Include="..\..\Common\wrapper_common.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\GotoBlas2\blas.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\GotoBlas2\lapack.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\Common\clapack.h">
+    <ClInclude Include="..\..\GotoBlas2\clapack.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\Common\f2c.h">
+    <ClInclude Include="..\..\GotoBlas2\f2c.h">
       <Filter>Header Files</Filter>
     </ClInclude>
   </ItemGroup>

src/NativeWrappers/Windows/MKL/MKLWrapper.vcxproj

@@ -184,15 +184,17 @@
   </ItemDefinitionGroup>
   <ItemGroup>
     <ClInclude Include="..\..\Common\wrapper_common.h" />
-    <ClInclude Include="..\..\MKL\blas.h" />
     <ClInclude Include="..\..\MKL\lapack.h" />
   </ItemGroup>
   <ItemGroup>
-    <ClCompile Include="..\..\Common\blas.c" />
-    <ClCompile Include="..\..\Common\lapack.cpp" />
     <ClCompile Include="..\..\Common\WindowsDLL.cpp" />
+    <ClCompile Include="..\..\MKL\blas.c" />
+    <ClCompile Include="..\..\MKL\lapack.cpp" />
     <ClCompile Include="..\..\MKL\vector_functions.c" />
   </ItemGroup>
+  <ItemGroup>
+    <ResourceCompile Include="..\..\Common\resource.rc" />
+  </ItemGroup>
   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
   <ImportGroup Label="ExtensionTargets">
   </ImportGroup>

src/NativeWrappers/Windows/MKL/MKLWrapper.vcxproj.filters

@@ -15,9 +15,6 @@
     </Filter>
   </ItemGroup>
   <ItemGroup>
-    <ClInclude Include="..\..\MKL\blas.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\Common\wrapper_common.h">
       <Filter>Header Files</Filter>
     </ClInclude>
@@ -26,17 +23,22 @@
     </ClInclude>
   </ItemGroup>
   <ItemGroup>
-    <ClCompile Include="..\..\Common\blas.c">
+    <ClCompile Include="..\..\Common\WindowsDLL.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="..\..\Common\WindowsDLL.cpp">
+    <ClCompile Include="..\..\MKL\blas.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="..\..\MKL\vector_functions.c">
+    <ClCompile Include="..\..\MKL\lapack.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="..\..\Common\lapack.cpp">
+    <ClCompile Include="..\..\MKL\vector_functions.c">
       <Filter>Source Files</Filter>
     </ClCompile>
   </ItemGroup>
+  <ItemGroup>
+    <ResourceCompile Include="..\..\Common\resource.rc">
+      <Filter>Resource Files</Filter>
+    </ResourceCompile>
+  </ItemGroup>
 </Project>

src/NativeWrappers/Windows/NativeWrappers.sln

@@ -3,7 +3,6 @@ Microsoft Visual Studio Solution File, Format Version 11.00
 # Visual Studio 2010
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Common", "Common", "{5A0892FF-82CE-40FC-BCE1-73810C615F52}"
 	ProjectSection(SolutionItems) = preProject
-		..\Common\blas.c = ..\Common\blas.c
 		..\Common\resource.h = ..\Common\resource.h
 		..\Common\resource.rc = ..\Common\resource.rc
 		..\Common\WindowsDLL.cpp = ..\Common\WindowsDLL.cpp
@@ -18,6 +17,8 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GotoBLAS2Wrapper", "GotoBLA
 EndProject
 Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GotoBLAS2WrapperTests", "GotoBLAS2WrapperTests\GotoBLAS2WrapperTests.csproj", "{56FFAB18-CAA6-4913-8123-610872BFD60A}"
 EndProject
+Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "ACMLWrapper", "ACMLWrapper\ACMKWrapper.vcxproj", "{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -81,6 +82,20 @@ Global
 		{56FFAB18-CAA6-4913-8123-610872BFD60A}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{56FFAB18-CAA6-4913-8123-610872BFD60A}.Release|Win32.ActiveCfg = Release|Any CPU
 		{56FFAB18-CAA6-4913-8123-610872BFD60A}.Release|x64.ActiveCfg = Release|Any CPU
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|Win32.ActiveCfg = Debug|Win32
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|Win32.Build.0 = Debug|Win32
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|x64.ActiveCfg = Debug|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Debug|x64.Build.0 = Debug|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|Any CPU.ActiveCfg = Release|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|Mixed Platforms.ActiveCfg = Release|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|Mixed Platforms.Build.0 = Release|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|Win32.ActiveCfg = Release|Win32
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|Win32.Build.0 = Release|Win32
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|x64.ActiveCfg = Release|x64
+		{8774BCBE-27D0-44D2-A1B3-8ED705E252CB}.Release|x64.Build.0 = Release|x64
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE