From 70fd14e98bc476a84aef352eaf063cfcba44ab83 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 4 Aug 2021 15:18:08 -0400
Subject: Use modern equality operators

---
 Vmacro.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Vmacro.f')

diff --git a/Vmacro.f b/Vmacro.f
index 20e745f..081c685 100755
--- a/Vmacro.f
+++ b/Vmacro.f
@@ -85,7 +85,7 @@ c
      . 0.000190,0.000180,0.000170,0.000161,0.000152/
      
  
-      if (xprofile.lt.xrt(1) .or. xprofile.ge.xrt(250)) then
+      if (xprofile<xrt(1) .or. xprofile>=xrt(250)) then
          vmacro = 0.
          return
       endif
-- 
cgit