From 99cc699c6b986cb3af677a65d3ce8f23a359f991 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 28 Sep 2011 10:41:18 +0200 Subject: Differencing.m: Use KRANC_GFOFFSET3D macro in difference operators --- Tools/CodeGen/Differencing.m | 23 +++++++++-------------- 1 file changed, 9 insertions(+), 14 deletions(-) (limited to 'Tools') diff --git a/Tools/CodeGen/Differencing.m b/Tools/CodeGen/Differencing.m index 7b4e021..dbfed8e 100644 --- a/Tools/CodeGen/Differencing.m +++ b/Tools/CodeGen/Differencing.m @@ -503,20 +503,15 @@ DifferenceGFTerm[op_, i_, j_, k_, vectorise_] := If[CodeGen`SOURCELANGUAGE == "C", If[vectorise, - remaining "vec_loadu_maybe3" <> - "(" <> ToString[CFormHideStrings[nx /. {dir1->1, dir2->1, dir3->1}]] <> "," <> - ToString[CFormHideStrings[ny /. {dir1->1, dir2->1, dir3->1}]] <> "," <> - ToString[CFormHideStrings[nz /. {dir1->1, dir2->1, dir3->1}]] <> "," <> - "*(CCTK_REAL const*)&((char const*)(u))" <> - "[cdi*(" <> ToString[CFormHideStrings[nx]] <> ")" <> - "+cdj*(" <> ToString[CFormHideStrings[ny]] <> ")" <> - "+cdk*(" <> ToString[CFormHideStrings[nz]] <> ")])", - - remaining - "(*(CCTK_REAL const*)&((char const*)(u))" <> - "[cdi*(" <> ToString[CFormHideStrings[nx]] <> ")" <> - "+cdj*(" <> ToString[CFormHideStrings[ny]] <> ")" <> - "+cdk*(" <> ToString[CFormHideStrings[nz]] <> ")])"], + remaining "KRANC_GFOFFSET3D(u," <> + ToString[CFormHideStrings[nx /. {dir1->1, dir2->1, dir3->1}]] <> "," <> + ToString[CFormHideStrings[ny /. {dir1->1, dir2->1, dir3->1}]] <> "," <> + ToString[CFormHideStrings[nz /. {dir1->1, dir2->1, dir3->1}]] <> ")", + + remaining "KRANC_GFOFFSET3D(u," <> + ToString[CFormHideStrings[nx]] <> "," <> + ToString[CFormHideStrings[ny]] <> "," <> + ToString[CFormHideStrings[nz]] <> ")"], remaining "u(" <> ToString[FortranForm[i+nx]] <> "," <> ToString[FortranForm[j+ny]] <> "," <> ToString[FortranForm[k+nz]] <> ")"] ]; -- cgit v1.2.3