diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2011-09-28 10:41:18 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-09-29 20:57:10 +0200 |
| commit | 99cc699c6b986cb3af677a65d3ce8f23a359f991 (patch) | |
| tree | aab418fcef8d475affe5d435143be3fc62228399 /Tools | |
| parent | 61eee9e3b9475fdecdec86b1aaee4a669c07bdc0 (diff) | |
Differencing.m: Use KRANC_GFOFFSET3D macro in difference operators
Diffstat (limited to 'Tools')
| -rw-r--r-- | Tools/CodeGen/Differencing.m | 23 |
1 files changed, 9 insertions, 14 deletions
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]] <> ")"] ]; |