diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 11:13:10 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-06 11:13:10 +0200 |
commit | 3f377686702f42cd5058f3265fbeea9bb226cc15 (patch) | |
tree | 65def0a33fbda8dfbec5149e86c367bf307fcfb7 /Tools/CodeGen/CalculationFunction.m | |
parent | a25282c380e41d87abf4bd5c3bf8f7403d94f499 (diff) |
CalculationFunction.m: Remove Fortran from generateCodeFromExpression
Diffstat (limited to 'Tools/CodeGen/CalculationFunction.m')
-rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index 6e14f9f..6551fcf 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -289,18 +289,7 @@ generateCodeFromExpression[expr_, vectorise_, noSimplify:Boolean : False] := Module[{type, cleanExpr, code}, cleanExpr = ReplacePowers[expr, vectorise, noSimplify]; - If[SOURCELANGUAGE == "C", - code = - ToString[cleanExpr, CForm, PageWidth -> Infinity], - code = ToString[cleanExpr, FortranForm, PageWidth -> 120]]; - - If[SOURCELANGUAGE != "C", - code = StringReplace[code, "\n " -> " &\n"]; - code = StringReplace[code, " - " -> " & "]; - code = StringReplace[code, ".eq." -> " = "]; - code = StringReplace[code, "= " -> "="]; - code = StringReplace[code, "\\" -> ""]; - code = StringReplace[code, "(index)" -> "(i,j,k)"]]; + code = ToString[cleanExpr, CForm, PageWidth -> Infinity]; code = StringReplace[code, "normal1" -> "normal[0]"]; code = StringReplace[code, "normal2" -> "normal[1]"]; |