From 1330233b53697f4562b697dfce302555b876624b Mon Sep 17 00:00:00 2001
From: schnetter <schnetter>
Date: Thu, 27 Jan 2005 14:54:40 +0000
Subject: Correct syntax error in Fortran template

---
 Tools/CodeGen/Thorn.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Tools/CodeGen/Thorn.m')

diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m
index b161705..71161e1 100644
--- a/Tools/CodeGen/Thorn.m
+++ b/Tools/CodeGen/Thorn.m
@@ -915,7 +915,7 @@ CreateMoLExcisionSource[spec_] :=
       "ny = cctk_lsh(2)\n", 
       "nz = cctk_lsh(3)\n\n", 
 
-      "if (excision) then\n",
+      "if (excision .ne. 0) then\n",
 
       "  call CCTK_INFO(\"Applying LegoExcision\")\n\n",
 
-- 
cgit v1.2.3