| 查看: 673 | 回复: 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环境。 求解释。 |
回复此楼» 猜你喜欢
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有4人回复
-
自荐读博
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有22人回复
-
不自信的我
已经有5人回复
-
磺酰氟产物，毕不了业了！
已经有4人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教个问题，为啥我的插值点会出现波动，是我调用函数的问题吗？
已经有3人回复
- matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
- matlab的函数调用问题
已经有3人回复
- 关于erfinv函数调用错误的问题
已经有4人回复
- 一个构造函数调用问题……
已经有4人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- intel fortran 如何调用 matlab里面的函数
已经有5人回复
- 菜鸟问题：VC++调用函数关闭子窗口的问题
已经有4人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
» 抢金币啦！回帖就可以得到:
-
双一流南京医科大学招计算机、AI、统计、生物信息等方向26年9月入学博士
+1/180
-
中国科学院大学纳米科学与工程学院唐智勇（院长）-张银团队招聘启事
+1/171
-
诚征另一半
+1/153
-
成都理工大学全国重点实验室公开诚聘绿色有机合成方向联培生及科研助理
+1/78
-
上海大学管理学院阳发军教授课题组全职博士/博士后招聘启事
+1/77
-
美国密歇根州立大学林学系杜海顺课题组招收全奖博士生及联合培养博士生
+1/76
-
山东征女友，坐标济南
+1/63
-
香港理工大学-应用生物与化学科技学系 招收2025年博士研究生
+2/48
-
急招碳材料相关特任研究人员/博士后/科研助理/26级博士和硕士
+1/43
-
新年快乐！祝各位诸事顺遂！
+1/40
-
可以用同一个研究内容申请青C和博士后面上吗
+1/25
-
华中科技大学龚江研究员课题组诚招博士研究生、科研助理和博士后
+3/24
-
SCI，计算机相关可以写
+1/24
-
SCI，计算机相关可以写
+1/22
-
SCI，计算机相关可以写
+1/16
-
求博导收留
+1/5
-
今日标准品
+1/4
-
废旧塑料热解油采购
+1/2
-
抗体制剂「隐形杀手」：如何用 QCM-D 实时捕捉亚可见颗粒的形成？
+1/1
-
海南大学化学院—功能分子器件团队2026博士/研究助理招生
+1/1
4楼2011-12-12 14:57:58