| 查看: 716 | 回复: 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环境。 求解释。 |
回复此楼» 猜你喜欢
焦虑
已经有13人回复
-
一志愿985，本科211，0817化学工程与技术319求调剂
已经有8人回复
-
0817 化学工程 299分求调剂 有科研经历 有二区文章
已经有9人回复
-
346求调剂[0856]
已经有5人回复
-
285化工学硕求调剂（081700）
已经有11人回复
-
267一志愿南京工业大学0817化工求调剂
已经有9人回复
-
274求调剂
已经有6人回复
-
求材料调剂
已经有10人回复
-
本科郑州大学物理学院，一志愿华科070200学硕，346求调剂
已经有4人回复
-
国自科面上基金字体
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教个问题，为啥我的插值点会出现波动，是我调用函数的问题吗？
已经有3人回复
- matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
- matlab的函数调用问题
已经有3人回复
- 关于erfinv函数调用错误的问题
已经有4人回复
- 一个构造函数调用问题……
已经有4人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- intel fortran 如何调用 matlab里面的函数
已经有5人回复
- 菜鸟问题：VC++调用函数关闭子窗口的问题
已经有4人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
» 抢金币啦！回帖就可以得到:
-
绍兴大学博士教师招聘1位（化学化工相关）
+5/320
-
中国科学院杭州医学研究-常皓研究员课题组博士后招聘
+1/287
-
物理学 调剂
+1/88
-
济南大学林秀娟教授招收材料类博士生
+1/87
-
物理学 调剂
+1/84
-
福建师范大学招收2026年化学、材料硕士3-4名
+1/80
-
浙江农林大学招收调剂
+1/80
-
愿遇见你，遇见不止擦肩而过的缘分
+1/74
-
刚刚工作不久的孤独感
+1/36
-
哈工大郑州高等研究院刘绍琴与查正宝教授课题组诚招合成生物学背景相关的优秀人才加盟
+1/34
-
澳大利亚西澳大学（UWA）张金强课题组招收全奖博士生（化工新能源方向）
+1/32
-
中科院生态环境研究中心国重实验室招聘客座研究生1-2名
+1/31
-
南京理工大学优青团队招聘副教授、博士后、博士、硕士生（化学、催化方向）
+1/31
-
医学327分专硕调剂
+1/16
-
新加坡国立大学药学系化学生物学课题组招PhD
+1/13
-
南京理工大学2026级硕士生招生-张光普博导 &硕导
+2/12
-
【博士招生】武汉科技大学招收材料、化工、环境、冶金类2026年“申请-考核”制博士生
+1/8
-
上海科技大学物质学院招收有机化学方向2026级工程博士
+1/7
-
华中科技大学管理学院招聘社会用工（科研助理）1名
+1/6
-
上海交通大学化学化工学院张智涛课题组诚聘博士后
+1/1
2楼2011-11-11 22:53:36
3楼2011-11-11 22:55:13
4楼2011-12-12 14:57:58
