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 /Drawcurs.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Drawcurs.f')
| -rwxr-xr-x | Drawcurs.f | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -10,9 +10,9 @@ c****************************************************************************** call sm_graphics - if (whichwin .eq. '1of1') then + if (whichwin == '1of1') then call sm_window (1,1,1,1,1,1) - elseif (whichwin .eq. '2of2') then + elseif (whichwin == '2of2') then call sm_defvar ('y_gutter','0.0') call sm_window (1,2,1,1,1,1) endif @@ -29,11 +29,11 @@ c****************************************************************************** call sm_relocate (xplotpos,yplotpos-0.11*(yhi-ylo)) call sm_putlabel (5,array) call writenumber (yplotpos) - if (whichwin(4:4) .eq. '1') then + if (whichwin(4:4) == '1') then call sm_relocate (xplotpos,yplotpos-0.15*(yhi-ylo)) - elseif (whichwin(4:4) .eq. '2') then + elseif (whichwin(4:4) == '2') then call sm_relocate (xplotpos,yplotpos-0.18*(yhi-ylo)) - elseif (whichwin(4:4) .eq. '3') then + elseif (whichwin(4:4) == '3') then call sm_relocate (xplotpos,yplotpos-0.21*(yhi-ylo)) endif call sm_putlabel (5,array) |