- well ... that's better

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12921 c92efa57-630b-4861-b058-cf58834340f0
2016-09-05 21:46:57 +00:00 · 2016-09-05 21:46:57 +00:00 · 89b8c5e4a5
parent 70622522c7
commit 89b8c5e4a5
1 changed files with 1 additions and 1 deletions
--- a/FFTXlib/fft_types.f90
+++ b/FFTXlib/fft_types.f90
@ -321,7 +321,7 @@ CONTAINS
    desc%nst = 0
    DO iss = 1, SIZE( idx )
      is = idx( iss )
-      IF( is < 0 ) CYCLE
+      IF( is < 1 ) CYCLE
      i1 = in1( is )
      i2 = in2( is )
      IF( st( i1, i2 ) > 0 ) THEN