From 525a3350b0b81cf46c430194621e1aa3b28d26a0 Mon Sep 17 00:00:00 2001
From: Jan Thorbecke <janth@xs4all.nl>
Date: Mon, 25 Mar 2019 16:42:23 +0100
Subject: [PATCH] bug in cc1fft

---
 FFTlib/ccmfft.c | 3 ++-
 FFTlib/cr1fft.c | 3 ++-
 FFTlib/crmfft.c | 3 ++-
 FFTlib/rc1fft.c | 3 ++-
 FFTlib/rcmfft.c | 3 ++-
 5 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/FFTlib/ccmfft.c b/FFTlib/ccmfft.c
index fbbfde3..cbb0d29 100644
--- a/FFTlib/ccmfft.c
+++ b/FFTlib/ccmfft.c
@@ -67,8 +67,9 @@ void ccmfft(complex *data, int n1, int n2, int ld1, int sign)
 	static DFTI_DESCRIPTOR_HANDLE handle[MAX_NUMTHREADS];
 	static int nprev[MAX_NUMTHREADS];
     MKL_LONG Status;
-	int j, id;
+	int j;
 #endif
+	int id;
 
 #ifdef _OPENMP
 	id = omp_get_thread_num();
diff --git a/FFTlib/cr1fft.c b/FFTlib/cr1fft.c
index 4831beb..7d7c19e 100644
--- a/FFTlib/cr1fft.c
+++ b/FFTlib/cr1fft.c
@@ -61,8 +61,9 @@ void cr1fft(complex *cdata, REAL *rdata, int n, int sign)
 	static int nprev[MAX_NUMTHREADS];
 	REAL *tmp;
     MKL_LONG Status;
-	int i, id;
+	int i;
 #endif
+	int id;
 
 #ifdef _OPENMP
 	id = omp_get_thread_num();
diff --git a/FFTlib/crmfft.c b/FFTlib/crmfft.c
index e4dad54..d628b3e 100644
--- a/FFTlib/crmfft.c
+++ b/FFTlib/crmfft.c
@@ -75,8 +75,9 @@ void crmfft(complex *cdata, REAL *rdata, int n1, int n2, int ldc, int ldr, int s
 	static int nprev[MAX_NUMTHREADS];
     REAL *tmp;
     MKL_LONG Status;
-	int i, j, id;
+	int i, j;
 #endif
+	int id;
 
 #ifdef _OPENMP
 	id = omp_get_thread_num();
diff --git a/FFTlib/rc1fft.c b/FFTlib/rc1fft.c
index 9968442..f37fb3d 100644
--- a/FFTlib/rc1fft.c
+++ b/FFTlib/rc1fft.c
@@ -60,8 +60,9 @@ void rc1fft(REAL *rdata, complex *cdata, int n, int sign)
 	static DFTI_DESCRIPTOR_HANDLE handle[MAX_NUMTHREADS];
 	static int nprev[MAX_NUMTHREADS];
     MKL_LONG Status;
-	int i, id;
+	int i;
 #endif
+	int id;
 
 #ifdef _OPENMP
 	id = omp_get_thread_num();
diff --git a/FFTlib/rcmfft.c b/FFTlib/rcmfft.c
index 574de30..91da4c6 100644
--- a/FFTlib/rcmfft.c
+++ b/FFTlib/rcmfft.c
@@ -72,8 +72,9 @@ void rcmfft(REAL *rdata, complex *cdata, int n1, int n2, int ldr, int ldc, int s
 	static DFTI_DESCRIPTOR_HANDLE handle[MAX_NUMTHREADS];
 	static int nprev[MAX_NUMTHREADS];
     MKL_LONG Status;
-	int i, j, id;
+	int i, j;
 #endif
+	int id;
 
 #ifdef _OPENMP
 	id = omp_get_thread_num();
-- 
GitLab