From efd2ae081aa31ac5bc5f1a8154ba927d219248a7 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 16 Feb 2017 18:15:36 +0000
Subject: [PATCH] Does anybody use NEC FFT libraries on NEC SX machines?

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13311 c92efa57-630b-4861-b058-cf58834340f0
---
 FFTXlib/fft_scalar.SX6.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FFTXlib/fft_scalar.SX6.f90 b/FFTXlib/fft_scalar.SX6.f90
index ec3e1dffa..2d7338212 100644
--- a/FFTXlib/fft_scalar.SX6.f90
+++ b/FFTXlib/fft_scalar.SX6.f90
@@ -77,6 +77,7 @@
      COMPLEX (DP)    :: DUMMY
      INTEGER, SAVE :: isys = 1
 
+     CALL fftx_error__(" fft_scalar: cft_1z ", " NEC SX6 FFTs disabled ", 1)
      IF( nsl < 0 ) THEN
        CALL fftx_error__(" fft_scalar: cft_1z ", " nsl out of range ", nsl)
      END IF
@@ -354,7 +355,7 @@
      COMMON/NEC_ASL_PARA/nbtasks
 #endif
 
-
+     CALL fftx_error__(" fft_scalar: cfft3d ", " NEC SX6 FFTs disabled ", 1)
      IF ( nx < 1 ) &
          call fftx_error__('cfft3d',' nx is less than 1 ', 1)
      IF ( ny < 1 ) &