| 查看: 947 | 回复: 3 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
问一个关于函数调用的小问题
|
|||
|
请教个问题，看看我这个函数，fortran77写的： FUNCTION HEAVI(PRIS) REAL*8 PRIS IF(PRIS.GT.0.0) THEN HEAVI=1.0 ENDIF RETURN C IF(PRIS.LT.0.0) THEN HEAVI=0.0 ENDIF RETURN END 调用的时候出现下列情况： HEAVI(-3)=1.00000000000000， HEAVI(-3.0D0)=0.000000000000000E+000， HEAVI(-3.0)=1.00000000000000 HEAVI(3)=1.00000000000000， HEAVI(3.0D0)=1.000000000000000E+000， HEAVI(3.0)=1.00000000000000 不知道什么原因？ 改成这样怎么就好了呢？ Program ex005 real HEAVI write(*,*) HEAVI(3.0d0) end FUNCTION HEAVI(PRIS) REAL PRIS Real HEAVI IF(PRIS.GT.0.0) THEN HEAVI=1.0 else HEAVI=0.0 ENDIF RETURN END 语言Fortran77，gfortran环境。 求解释。 |
回复此楼» 猜你喜欢
» 本主题相关价值贴推荐，对您同样有帮助:
请教个问题，为啥我的插值点会出现波动，是我调用函数的问题吗？
已经有3人回复
- matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
- matlab的函数调用问题
已经有3人回复
- 关于erfinv函数调用错误的问题
已经有4人回复
- 一个构造函数调用问题……
已经有4人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- intel fortran 如何调用 matlab里面的函数
已经有5人回复
- 菜鸟问题：VC++调用函数关闭子窗口的问题
已经有4人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
4楼2011-12-12 14:57:58
2楼2011-11-11 22:53:36
3楼2011-11-11 22:55:13