aboutsummaryrefslogtreecommitdiff
path: root/Pointcurs.f
diff options
context:
space:
mode:
authorJoseph Hunkeler <jhunkeler@gmail.com>2021-08-04 15:18:08 -0400
committerJoseph Hunkeler <jhunkeler@gmail.com>2021-08-04 15:18:08 -0400
commit70fd14e98bc476a84aef352eaf063cfcba44ab83 (patch)
tree2737f5c1c21c76824f49c6a1b9c7061952b646f5 /Pointcurs.f
parentc396a4bc7a3282de9d2191de0e1076fec9df0783 (diff)
downloadmoog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz
Use modern equality operators
Diffstat (limited to 'Pointcurs.f')
-rwxr-xr-xPointcurs.f4
1 files changed, 2 insertions, 2 deletions
diff --git a/Pointcurs.f b/Pointcurs.f
index d4bb692..fa46709 100755
--- a/Pointcurs.f
+++ b/Pointcurs.f
@@ -9,9 +9,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