scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
giannozz 2017-02-16 18:15:36 +00:00
parent f11543b8b5
commit efd2ae081a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
FFTXlib/fft_scalar.SX6.f90
View File

@ -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 ) &