From 70fd14e98bc476a84aef352eaf063cfcba44ab83 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 4 Aug 2021 15:18:08 -0400
Subject: Use modern equality operators

---
 Moog.f | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'Moog.f')

diff --git a/Moog.f b/Moog.f
index c54335f..c9ac072 100755
--- a/Moog.f
+++ b/Moog.f
@@ -53,40 +53,40 @@ c*****invoke the overall starting routine
 
 
 c*****use one of the standard driver routines
-      if     (control .eq. 'synplot') then
+      if     (control == 'synplot') then
          call plotit
-      elseif (control .eq. 'synth  ') then
+      elseif (control == 'synth  ') then
          call synth
-      elseif (control .eq. 'cogsyn ') then
+      elseif (control == 'cogsyn ') then
          call cogsyn  
-      elseif (control .eq. 'blends ') then
+      elseif (control == 'blends ') then
          call blends  
-      elseif (control .eq. 'abfind ') then
+      elseif (control == 'abfind ') then
          call abfind
-      elseif (control .eq. 'ewfind ') then
+      elseif (control == 'ewfind ') then
          call ewfind
-      elseif (control .eq. 'cog    ') then
+      elseif (control == 'cog    ') then
          call cog
-      elseif (control .eq. 'calmod ') then
+      elseif (control == 'calmod ') then
          call calmod
-      elseif (control .eq. 'doflux ') then
+      elseif (control == 'doflux ') then
          call doflux   
-      elseif (control .eq. 'weedout') then
+      elseif (control == 'weedout') then
          call weedout  
-      elseif (control .eq. 'gridsyn') then
+      elseif (control == 'gridsyn') then
          call gridsyn  
-      elseif (control .eq. 'gridplo') then
+      elseif (control == 'gridplo') then
          call gridplo  
-      elseif (control .eq. 'binary ') then
+      elseif (control == 'binary ') then
          call binary
-      elseif (control .eq. 'abpop  ') then
+      elseif (control == 'abpop  ') then
          call abpop
-      elseif (control .eq. 'synpop ') then
+      elseif (control == 'synpop ') then
          call synpop
 
 
 c*****or, put in your own drivers in the form below....
-      elseif (control .eq. 'mine  ') then
+      elseif (control == 'mine  ') then
          call  mydriver 
 
 
@@ -96,7 +96,7 @@ c*****or else you are out of luck!
          istat = ivwrite (4,3,array,49)
          istat = ivmove (3,1)
          read (*,*) yesno
-         if (yesno .eq. 'y') then
+         if (yesno == 'y') then
             go to 1
          else
             call finish (0)
-- 
cgit