| 查看: 715 | 回复: 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环境。 求解释。 |
» 猜你喜欢
0703 物理化学调剂
已经有5人回复
化学工程321分求调剂
已经有7人回复
0703化学调剂 290分有科研经历,论文在投
已经有7人回复
308求调剂
已经有3人回复
本人考085602 化学工程 专硕
已经有10人回复
焦虑
已经有9人回复
0856求调剂
已经有3人回复
283求调剂
已经有11人回复
深圳大学硕士招生(2026秋,传感器方向,仅录取第一志愿)
已经有8人回复
0703化学调剂
已经有7人回复
» 本主题相关价值贴推荐,对您同样有帮助:
请教个问题,为啥我的插值点会出现波动,是我调用函数的问题吗?
已经有3人回复
matlab如何改变函数变量值在调用函数重新计算
已经有12人回复
matlab的函数调用问题
已经有3人回复
关于erfinv函数调用错误的问题
已经有4人回复
一个构造函数调用问题……
已经有4人回复
请教如何调用Module里面的函数,谢谢
已经有6人回复
intel fortran 如何调用 matlab里面的函数
已经有5人回复
菜鸟问题:VC++调用函数关闭子窗口的问题
已经有4人回复
【讨论】关于一个m文件中函数调用及画图问题
已经有7人回复
【交流】VC++, C#, VB答疑专贴
已经有145人回复
» 抢金币啦!回帖就可以得到:
南京医科大学生殖医学与子代健康国重实验室-董飞宏教授课题组-硕士招生
+1/114
招收调剂生,动物医学、水产养殖、水产动物医学等专业
+1/81
郑州大学付永柱课题组诚招2026年入学博士生
+1/81
厦门大学电池工况表征博士后招聘(固态电池 / 层状氧化物正极 / 原位-工况表征方向)
+1/78
中科院生态环境研究中心国重实验室招聘客座研究生1-2名
+1/32
福州大学国家级人才汤育欣教授课题组2026年招收”申请考核制“储能电池方向博士研究生
+1/13
(国家级人才团队 )医药与生物技术方向 “申请-考核”制博士研究生招生
+1/8
英国埃克塞特大学 & 法国巴黎萨克雷大学联合培养博士
+1/8
重庆大学药学院闫海龙课题组拟招收2026年申请考核制博士研究生数名
+1/7
福建师范大学 院士团队 招2026级博士1名
+1/5
请问为什么我的贴子自动到“已删除的主题”里而没有被发布?
+1/5
中国石油大学(北京)国家级大人才团队博士招生3名:化学、材料、石油工程:油田化学
+1/4
中国石油大学(北京)招收机械设计(形状记忆合金驱动机构)方向博士生
+1/4
高校招聘
+1/3
连发两篇 Nature!大样本单细胞测序解析认知、衰老与灵长类进化
+1/3
药学专硕一志愿苏大本科苏大寻求B区高校调剂名额
+1/2
085404 270求调剂,b区求导师收留接受跨专业
+1/2
福建师范大学化学与材料学院杜克钊团队招生
+1/1
澳洲维多利亚大学计算机类全额奖学金博士招生 (邮箱+微信可联系)
+1/1
北京高校副校长团队招收机械类,环境类学硕和专硕
+1/1
2楼2011-11-11 22:53:36
3楼2011-11-11 22:55:13
4楼2011-12-12 14:57:58













回复此楼