Fix minor bug (from eugene)

git-svn-id: https://ccpforge.cse.rl.ac.uk/svn/spral/tags/VERSION_2015_04_20@355 33810a50-c353-450f-be6c-41f7241c649d
ralna · Apr 21, 2015 · 1614dd8 · 1614dd8
1 parent 4c995b3
commit 1614dd8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ssmfe/expert.f90 b/src/ssmfe/expert.f90
@@ -894,7 +894,7 @@ subroutine ssmfe_inverse_rci_double &
 
         do i = first, last, step
 
-          if ( keep%info%converged(i) > 0 ) then
+          if ( keep%info%converged(i) .ne. 0 ) then
             word = '  yes'
           else
             word = '   no'