From 5e8a75ad1c8dd0895edee67fb85bd88394872f92 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 6 Sep 2013 16:00:35 +0200 Subject: CodeGenCactus.m: Remove commented-out GridLoop function --- Tools/CodeGen/CodeGenCactus.m | 50 ------------------------------------------- 1 file changed, 50 deletions(-) (limited to 'Tools') diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 4b47305..40c547e 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -292,56 +292,6 @@ DefFn[ IndentBlock[block], "}\n"}]]; -(* -GridLoop[block_] := - CommentedBlock["Loop over the grid points", - loopOverInteger["k", "kstart", "kend", - loopOverInteger["j", "jstart", "jend", - loopOverInteger["i", "istart", "iend", - - { If[SOURCELANGUAGE == "C", - AssignVariable["index", "CCTK_GFINDEX3D(cctkGH,i,j,k)"], - ""], - block - } - ]]]]; - -*) - -(* -GridLoop[block_] := - If[SOURCELANGUAGE == "C", - CommentedBlock["Loop over the grid points", - { - "#pragma omp parallel\n", - "LC_LOOP3 (unnamed,\n", - " i,j,k, istart,jstart,kstart, iend,jend,kend,\n", - " cctk_ash[0],cctk_ash[1],cctk_ash[2])\n", - "{\n", - IndentBlock[ - { - DeclareVariable["index", "int"], - AssignVariable["index", "CCTK_GFINDEX3D(cctkGH,i,j,k)"], - block - } - ], - "}\n", - "LC_ENDLOOP3 (unnamed);\n" - } - ], - CommentedBlock["Loop over the grid points", - { - "#pragma omp parallel\n", - "LC_LOOP3 (unnamed,\n", - " i,j,k, istart,jstart,kstart, iend,jend,kend,\n", - " cctk_ash(1),cctk_ash(2),cctk_ash(3))\n", - IndentBlock[block], - "LC_ENDLOOP3 (unnamed)\n" - } - ] - ]; -*) - Options[GenericGridLoop] = ThornOptions; DefFn[ -- cgit v1.2.3