Use modern equality operators

1 files changed, 5 insertions, 5 deletions

diff --git a/Boxit.f b/Boxit.f
index f87ea9a..62fa63a 100755
--- a/Boxit.f
+++ b/Boxit.f
@@ -15,16 +15,16 @@ c******************************************************************************
 c*****if only a synthetic spectrum is being plotted, use beginning and
 c     end points of the synthetic spectrum instead of those of the observed
 c     spectrum
-      if (plotopt .lt. 2) then
+      if (plotopt < 2) then
          do i=1,kount
-            if (xlo .le. xsyn(i)) then
+            if (xlo <= xsyn(i)) then
                lim1obs = i
                go to 10
             endif
          enddo
          lim1obs = kount
 10       do i=lim1obs,kount
-            if (xhi .lt. xsyn(i)) then
+            if (xhi < xsyn(i)) then
                lim2obs = i -1
                return
             endif
@@ -36,14 +36,14 @@ c     spectrum
 c*****and here is the same logic when an observed spectrum exists
       else
          do i=1,lount
-            if (xlo .le. xobs(i)) then
+            if (xlo <= xobs(i)) then
                lim1obs = i
                go to 20
             endif
          enddo
          lim1obs = lount
 20       do i=lim1obs,lount
-            if (xhi .lt. xobs(i)) then
+            if (xhi < xobs(i)) then
                lim2obs = i -1
                return
             endif