From 89b8c5e4a553a461ff4607950068a5014e7708bd Mon Sep 17 00:00:00 2001
From: ccavazzoni <ccavazzoni@c92efa57-630b-4861-b058-cf58834340f0>
Date: Mon, 5 Sep 2016 21:46:57 +0000
Subject: [PATCH] - well ... that's better

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

diff --git a/FFTXlib/fft_types.f90 b/FFTXlib/fft_types.f90
index 66d1afca9..496898c26 100644
--- 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