diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2021-08-04 15:18:08 -0400 |
| commit | 70fd14e98bc476a84aef352eaf063cfcba44ab83 (patch) | |
| tree | 2737f5c1c21c76824f49c6a1b9c7061952b646f5 /Moogsilent.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Moogsilent.f')
| -rwxr-xr-x | Moogsilent.f | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/Moogsilent.f b/Moogsilent.f index 61e9bef..d8b5b64 100755 --- a/Moogsilent.f +++ b/Moogsilent.f @@ -52,45 +52,45 @@ c*****invoke the overall starting routine c*****use one of the standard driver routines ("isotop" is obsolete): - if (control .eq. 'synplot') then + if (control == 'synplot') then call plotit - elseif (control .eq. 'isoplot') then + elseif (control == 'isoplot') 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. 'isotop ') then + elseif (control == 'isotop ') then control = 'synth ' call synth - 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 |