1 files changed, 2 insertions, 2 deletions
diff --git a/Defcolor.f b/Defcolor.f
index 16e1c85..7ecee01 100755
--- a/Defcolor.f
+++ b/Defcolor.f
@@ -20,8 +20,8 @@ c*****assign colors to character arrays
       colors(8) = 'black  '
 
 
-      if (choice.eq.'h' .or. choice.eq.'f' .or.
-     .    choice.eq.'g') then
+      if (choice=='h' .or. choice=='f' .or.
+     .    choice=='g') then
          call sm_ctype (colors(8))
       else
          call sm_ctype (colors(icolor))