Commit b28b11bc authored by ulrich_y's avatar ulrich_y
Browse files

Avoid Warning: Possible change of value in conversion from REAL(16) to REAL(8) in McMule

parent d55854d6
......@@ -77,9 +77,9 @@ def expand_switch(block):
]
ind = ', &\n ' + (' '*len(" %s = %s16" % (func, func)))
iface += " if(%s) then\n" % cond
iface += " %s = %s16(%s)\n" % (func, func, ind.join(args16))
iface += " %s = real(%s16(%s), kind=prec)\n" % (func, func, ind.join(args16))
iface += " else\n"
iface += " %s = %s8 (%s)\n" % (func, func, args)
iface += " %s = real(%s8 (%s), kind=prec)\n" % (func, func, args)
iface += " endif\n"
iface += " END FUNCTION "+func
interfaces.append(iface)
......
Markdown is supported
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