From 70fd14e98bc476a84aef352eaf063cfcba44ab83 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 4 Aug 2021 15:18:08 -0400 Subject: Use modern equality operators --- Getasci.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Getasci.f') diff --git a/Getasci.f b/Getasci.f index db51339..2b3760e 100755 --- a/Getasci.f +++ b/Getasci.f @@ -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 -- cgit