diff --git a/src/libnptm/lapack_calls.cpp b/src/libnptm/lapack_calls.cpp index e22c5a84f545e22e91e8d88166f973d803d6e953..b4cb88d7ac222745fa9df17ecf33ff3e4d8c4294 100644 --- a/src/libnptm/lapack_calls.cpp +++ b/src/libnptm/lapack_calls.cpp @@ -1,17 +1,15 @@ #include <complex> -#include <cstdlib> +#include <complex.h> #ifndef INCLUDE_LAPACK_CALLS_H_ #include "lapacke.h" #include "../include/lapack_calls.h" #endif -using namespace std; - void zinvert(std::complex<double> **mat, lapack_int n, int &jer) { jer = 0; __complex__ double *arr = new __complex__ double[n * n]; - const __complex__ double uim = 1.0di; + const __complex__ double uim = 1.0*I; for (lapack_int i = 0; i < n; i++) { for (lapack_int j = 0; j < n; j++) { lapack_int idx = i + n * j; @@ -26,7 +24,7 @@ void zinvert(std::complex<double> **mat, lapack_int n, int &jer) { for (lapack_int i = 0; i < n; i++) { for (lapack_int j = 0; j < n; j++) { lapack_int idx = i + n * j; - mat[j][i] = complex<double>(__real__ arr[idx], __imag__ arr[idx]); + mat[j][i] = std::complex<double>(creal(arr[idx]), cimag(arr[idx])); } } delete [] IPIV;