diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 16:00:58 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 16:00:58 +0200 |
commit | e4f7a20289f08f6696d09fbb14e9d062a31a348b (patch) | |
tree | f06b4f06e83d7b2cbc83110c3901eaaf77712f54 /Tools/CodeGen/CodeGenCactus.m | |
parent | 5e8a75ad1c8dd0895edee67fb85bd88394872f92 (diff) |
CodeGenCactus.m: Remove unused loopOverInteger
Diffstat (limited to 'Tools/CodeGen/CodeGenCactus.m')
-rw-r--r-- | Tools/CodeGen/CodeGenCactus.m | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 40c547e..1192b8e 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -112,20 +112,6 @@ DefFn[ " CCTK_VInfo(CCTK_THORNSTRING, \"", expr, ": %.17g\", (double)", expr, ");\n", "}\n"}]; -DefFn[ - loopOverInteger[name_String, start_String, endplusone_String, block:CodeGenBlock] := - If[SOURCELANGUAGE == "C" || SOURCELANGUAGE == "C++", - {"for (", name, " = ", start, "; ", name, " < ", endplusone, "; ", name, "++)\n", - "{\n", - IndentBlock[block], - "}\n"}, - - {"Do ", name, " = ", start, ", ", endplusone, "\n", - "\n", - IndentBlock[block], - "End Do\n"} - ]]; - (* This is a Cactus-callable function *) DefFn[ DefineCCTKFunction[name_String, type_String, contents:CodeGenBlock] := |