diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-01-25 15:36:52 -0600 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-01-25 15:36:52 -0600 |
commit | d65aa221e3c7afff66cc5b3db176ac63f0f55f77 (patch) | |
tree | 264d035095e5ef84e46e2d1d82d6bd0727372dc2 /Tools/CodeGen | |
parent | 190a3c40cfb25a5926110c02fb072ed8e61f7616 (diff) |
CaKernel.m: Delete old code
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/CaKernel.m | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/Tools/CodeGen/CaKernel.m b/Tools/CodeGen/CaKernel.m index bc3456b..39a5f1f 100644 --- a/Tools/CodeGen/CaKernel.m +++ b/Tools/CodeGen/CaKernel.m @@ -81,22 +81,6 @@ DefFn[CaKernelCode[calc_List,opts___] := CreateCalculationFunction[calc2,opts]]]; - (* codeBlock[ *) - (* kernel<>"_Computations", *) - (* Map[makeEquation[calc, #] &, GetEquations[calc]]]] *) - - -DefFn[ - makeEquation[calc_List, eq_Rule] := - Module[ - {gfs, eq2}, - gfs = AllGridFunctions[calc]; - Print["eq = ", eq]; - Print["gfs = ", gfs]; - eq2 = eq /. Map[# -> ToString[#,CForm]<>"(0,0,0)" &, gfs]; - - StringReplace[FlattenBlock[{"// ", ToString[eq,InputForm], "\n", - ToString[eq2[[1]], CForm], " = ", ToString[eq2[[2]],CForm], "\n\n"}],"\""->""]]]; DefFn[CaKernelEpilogue[] := " |