Commit 83f5653e authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Parse C defines as Fortran PARAMETERS for mo_cdi.

parent 2df53f40
...@@ -98,9 +98,9 @@ end ...@@ -98,9 +98,9 @@ end
# create fortran module variables # create fortran module variables
def genModVars(vars) def genModParams(vars)
vars.collect {|var, value| vars.collect {|var, value|
" integer :: #{var} = #{value}" " integer, parameter :: #{var} = #{value}"
}.join("\n") }.join("\n")
end end
...@@ -382,7 +382,7 @@ end.parse! ...@@ -382,7 +382,7 @@ end.parse!
pp cDefines if debug pp cDefines if debug
unless cDefines.empty? unless cDefines.empty?
makeModVarsPublic = makePublic(*cDefines.transpose[0]) makeModVarsPublic = makePublic(*cDefines.transpose[0])
moduleVariables = genModVars(cDefines) moduleVariables = genModParams(cDefines)
end end
interfaces, makepublics, subroutines = '', '', '' interfaces, makepublics, subroutines = '', '', ''
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment