| 查看: 718 | 回复: 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环境。 求解释。 |
回复此楼» 猜你喜欢
【考研调剂】化学专业 281分，一志愿四川大学，诚心求调剂
已经有5人回复
-
能源材料化学课题组招收硕士研究生8-10名
已经有12人回复
-
288求调剂
已经有10人回复
-
0703化学调剂
已经有4人回复
-
招收调剂硕士
已经有10人回复
-
271材料工程求调剂
已经有6人回复
-
材料专硕274一志愿陕西师范大学求调剂
已经有8人回复
-
一志愿武汉理工材料工程专硕调剂
已经有4人回复
-
085601材料工程专硕求调剂
已经有10人回复
-
321求调剂
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教个问题，为啥我的插值点会出现波动，是我调用函数的问题吗？
已经有3人回复
- matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
- matlab的函数调用问题
已经有3人回复
- 关于erfinv函数调用错误的问题
已经有4人回复
- 一个构造函数调用问题……
已经有4人回复
- 请教如何调用Module里面的函数，谢谢
已经有6人回复
- intel fortran 如何调用 matlab里面的函数
已经有5人回复
- 菜鸟问题：VC++调用函数关闭子窗口的问题
已经有4人回复
- 【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
- 【交流】VC++, C#, VB答疑专贴
已经有145人回复
» 抢金币啦！回帖就可以得到:
-
欢迎交流咨询
+1/47
-
吲哚美辛原料药合成交流
+1/44
-
0854电子信息调剂，闽南师大光电芯片研发实验室
+1/37
-
中国科学院杭州医学研究所覃江江课题组招聘博士后
+1/33
-
浙江中医药大学副校长团队招聘药学/生物信息学等方向高校教师7名，报名通道已开启
+1/19
-
南京林业大学木质纤维功能材料国际联合创新中心招收2026级博士生（申请-考核制）
+2/16
-
【预硕】【预博】青岛大学生物医药创新转化
+1/15
-
Call for paper: [Fermentation – IF 3.3]
+2/8
-
新加坡国立大学药学系化学生物学课题组招PhD
+1/8
-
欢迎生物与医药、药学、化学等相关专业的同学
+1/7
-
河南大学龚和贵教授2026年博士研究生招生
+1/7
-
新加坡国立大学药学系化学生物学课题组招PhD
+1/5
-
三峡大学 招收力学专业调剂生 要求过国家线 土木/水利/材料均可报
+1/5
-
东北林业大学（211，双一流）宋老师课题组招收高分子、化学、复合材料等方向研究生
+1/4
-
中科院上海微系统所材料生长理论与仿真课题组-博士后招聘（材料计算与AI4S）
+1/4
-
镇江托尔化学有机合成研发岗位工作机会
+1/4
-
南方科技大学生命科学学院基础免疫与微生物学系招收博士后
+1/3
-
323分控制工程求调剂
+1/2
-
浙江大学高纯分离团队诚聘博士后
+1/2
-
武汉轻工大学土木水利青椒硕导招调剂
+1/1
2楼2011-11-11 22:53:36
3楼2011-11-11 22:55:13
4楼2011-12-12 14:57:58
