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 /Getasci.f | |
| parent | c396a4bc7a3282de9d2191de0e1076fec9df0783 (diff) | |
| download | moog-70fd14e98bc476a84aef352eaf063cfcba44ab83.tar.gz | |
Use modern equality operators
Diffstat (limited to 'Getasci.f')
| -rwxr-xr-x | Getasci.f | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -16,7 +16,7 @@ c****************************************************************************** istat = ivmove(line-1,1) istat = ivcleol() istat = ivmove(line-1,1) - if (num .lt. 10) then + if (num < 10) then write (errmess,1001) num 1001 format ('(a',i1,'$)') else @@ -25,7 +25,7 @@ c****************************************************************************** endif write (*,errmess) array num = 80 - num - if (num .lt. 10) then + if (num < 10) then write (errmess,1003) num 1003 format ('(a',i1,')') else |