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 /Plotremember.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Plotremember.f')
| -rwxr-xr-x | Plotremember.f | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Plotremember.f b/Plotremember.f index 5f1619f..dc346a9 100755 --- a/Plotremember.f +++ b/Plotremember.f @@ -14,8 +14,8 @@ c****************************************************************************** c*****initialize the plot parameters; iscale=0 is simple default; c iscale=1 is when these parameters have been read from the c parameter file - if (option .eq. 0) then - if (iscale .eq. 0) then + if (option == 0) then + if (iscale == 0) then xlo = oldstart xhi = oldstop ylo = 0. @@ -35,7 +35,7 @@ c parameter file c*****store the original plot parameters - elseif (option .eq. 1) then + elseif (option == 1) then origxlo = xlo origxhi = xhi origylo = ylo @@ -54,7 +54,7 @@ c*****store the original plot parameters c*****re-set the plot parameters to their original values - elseif (option .eq. 2) then + elseif (option == 2) then xlo = origxlo xhi = origxhi ylo = origylo @@ -73,7 +73,7 @@ c*****re-set the plot parameters to their original values c*****store the plot parameters from the last entry into pltspec - elseif (option .eq. 3) then + elseif (option == 3) then oldxlo = xlo oldxhi = xhi oldylo = ylo @@ -92,7 +92,7 @@ c*****store the plot parameters from the last entry into pltspec c*****re-set plot parameters to values from the last entry into pltspec - elseif (option .eq. 4) then + elseif (option == 4) then xlo = oldxlo xhi = oldxhi ylo = oldylo |