From c7504103bac6e7f955519025d67a8377fa4d429f Mon Sep 17 00:00:00 2001
From: allen <allen@4451c3c6-1034-4891-99ea-21147727ccdf>
Date: Fri, 18 Jul 2003 22:52:58 +0000
Subject: Fix non-f77 comparison to be f77

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyF77/trunk@101 4451c3c6-1034-4891-99ea-21147727ccdf
---
 src/WaveToy.F77 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/WaveToy.F77 b/src/WaveToy.F77
index 30908dc..f79022f 100644
--- a/src/WaveToy.F77
+++ b/src/WaveToy.F77
@@ -145,7 +145,7 @@ c     be passed
      $        "wavetoy::phi", "None");
       end if
 
-      if (ierr < 0)  then
+      if (ierr .lt. 0)  then
         call CCTK_WARN(0,"WaveToyF77_Boundaries: Error selecting boundary condition")
       end if
 
-- 
cgit v1.2.3