Fortran Coder

标题: FUNCTION函数调用 [打印本页]

作者: 石子 时间: 2020-1-2 12:00
标题: FUNCTION函数调用
本帖最后由石子于 2020-1-2 21:44 编辑

编写了一个function函数，在其他计算式中直接代进去计算得到的是错误的结果，但是把function函数先赋值给一个数，再进行计算就正确了，不明白为什么是这样？
代码如下：
HF(I)=373.79*EXP(0.0042*T_WATER(0.01*I))
T_WATER(Z)是一个求温度的函数，通过这个语句无法得到正确的HF(I),改为下面的语句后就正确了

Z=0.01*I
FUN=T_WATER(Z)
HF(I)=373.79*EXP(0.0042*FUN)

作者: necrohan 时间: 2020-1-2 16:00
把这段程序自己编到一个程序中执行看看
两种方法编到一起

作者: fcode 时间: 2020-1-2 16:47
注意 Z ，T_WATER ，和 FUN 的定义类型

作者: 石子 时间: 2020-1-2 21:48

fcode 发表于 2020-1-2 16:47
注意 Z ，T_WATER ，和 FUN 的定义类型

一针见血！确实是类型的问题，T_WATER里面的实参要求是双精度，如果里面是0.01乘以一个整数的话得到的是实数，就出现问题了。谢谢您的帮助。

作者: 石子 时间: 2020-1-2 21:49

necrohan 发表于 2020-1-2 16:00
把这段程序自己编到一个程序中执行看看
两种方法编到一起

谢谢您的建议，问题已经解决了，原因是function函数的实参要求双精度，如果是0.01*integer的话，认为是实数，所以有问题。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)