| 查看: 828 | 回复: 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人回复
-
在职考研
已经有6人回复
-
MSER送审了还被拒稿
已经有4人回复
-
今年E04面上
已经有21人回复
-
2026年面上项目中了，2A+B, 会评顺利通过
已经有14人回复
-
b口会评
已经有5人回复
-
大龄残疾硕士的一点执念
已经有22人回复
-
生命口会评
已经有4人回复
-
网络举报学术不端成为了男女之间情杀的手段了，真荒唐。。。
已经有3人回复
-
Suzuki偶联中硼酸酯原料掉下的硼酸酯是否可以自身偶联，生成B2Pin2杂质
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教个问题，为啥我的插值点会出现波动，是我调用函数的问题吗？
已经有3人回复
- matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
- matlab的函数调用问题
已经有3人回复
- 关于erfinv函数调用错误的问题
已经有4人回复
- 一个构造函数调用问题……
已经有4人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- intel fortran 如何调用 matlab里面的函数
已经有5人回复
- 菜鸟问题：VC++调用函数关闭子窗口的问题
已经有4人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
» 抢金币啦！回帖就可以得到:
-
实验室技术孵化和中试技术转让
+1/1972
-
filecode有几个（（JTJC））
+1/563
-
辽宁惟则专利所2026年招聘公告（沈阳本地、有经验）
+1/173
-
坐标北京，女找男，也许我的标题更长你就更容易点进来！！
+1/156
-
祈福面上能中
+4/128
-
固态电池专家
+1/73
-
工材学部会评时间知道么？
+1/60
-
浙江大学衢州研究院肖成梁课题组招聘博士后及科研助理
+1/33
-
祈祷面上基金能中
+1/32
-
美国圣路易斯大学招聘生物信息学博士后
+1/29
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
+1/7
-
2氯5甲基吡啶和2氯6三氯甲基吡啶大生产工艺需求
+1/6
-
圣路易斯华盛顿大学管建均教授课题组招聘博士后（2名）
+1/5
-
吉布斯自用能变、平衡常数、活度/分压计算
+1/4
-
量子化学软件开发工程师-深圳
+1/4
-
力学研究所某专项团队支撑岗位和特别研究助理岗位招聘启事
+1/4
-
《穿越持科研神辅，杀懵外星万舰》第二章 战书如刀诛心魄
+1/4
-
圣路易斯华盛顿大学管建均教授课题组招聘博士后（2名）
+1/3
-
圣路易斯华盛顿大学管建均教授课题组招聘博士后（2名）
+1/2
-
力学研究所某专项团队支撑岗位和特别研究助理岗位招聘启事(长期有效)
+1/1
4楼2011-12-12 14:57:58
2楼2011-11-11 22:53:36
3楼2011-11-11 22:55:13