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 /Findtic.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Findtic.f')
| -rwxr-xr-x | Findtic.f | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -9,15 +9,15 @@ c****************************************************************************** span = end2 - end1 - if (span .lt. 0.) span = - span + if (span < 0.) span = - span spanlog = alog10(span) size = ifix(spanlog) - if (spanlog .lt. 0.) size = size - 1 + if (spanlog < 0.) size = size - 1 chop = spanlog - size - if (chop .lt. 0.31) then + if (chop < 0.31) then bigtic = 10.**(size)/2 smltic = bigtic/5 - elseif (chop .lt. 0.71) then + elseif (chop < 0.71) then bigtic = 10.**(size) smltic = bigtic/5 else |