应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 问一个关于函数调用的小问题
北京石油化工学院2026年研究生招生接收调剂公告
41/1返回列表
查看: 739  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

guojunhang

金虫 (正式写手)

[交流] 问一个关于函数调用的小问题

请教个问题，看看我这个函数，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环境。
求解释。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-11-11 21:53:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎讨论 2011-11-11 23:31:16
guojunhang(金币+1): 这个问题我也注意到了，所以改正后了程序流程 2011-11-13 18:27:43
你第一个程序中第一个 return 直接就结束了那个函数，后面的那个条件永远不会被执行啊……
赞一下(2人) 回复此楼
2楼2011-11-11 22:53:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
jjdg(金币+1): 感谢参与 2011-11-12 00:41:19
余泽成: 专家考核存档 2011-11-13 21:35:24
引用回帖:
1楼: Originally posted by guojunhang at 2011-11-11 21:53:59:
请教个问题，看看我这个函数，fortran77写的：
      FUNCTION HEAVI(PRIS)
           REAL*8 PRIS   
      IF(PRIS.GT.0.0) THEN
         HEAVI=1.0
       ENDIF
       RETURN
C
         IF(PRIS. ...

貌似变量定义也有问题，第一个函数中用的是real*8,主程序给的有时候是real*8 ,有时候是real*4

[ Last edited by maomao1210 on 2011-11-11 at 23:00 ]
赞一下(3人) 回复此楼
3楼2011-11-11 22:55:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

1303haojian

新虫 (初入文坛)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
jjdg(金币+1): 感谢参与 2011-12-12 22:29:29
jjdg(金币+1): 感谢应助 2011-12-13 00:49:52
把第一个if块中的return去掉
赞一下(3人) 回复此楼
4楼2011-12-12 14:57:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 guojunhang 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学321分求调剂 +15 三dd. 2026-03-30 16/800 2026-04-05 12:46 by Hdyxbekcb
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +5 哇呼哼呼哼 2026-04-02 6/300 2026-04-05 11:49 by 风雨无晴
[考研] 电子信息调剂交叉学科有推荐吗 +6 jhtfeybgj 2026-04-01 9/450 2026-04-05 11:13 by 猪会飞
[考研] 271分求调剂学校 +12 zph158488！ 2026-04-02 13/650 2026-04-05 10:13 by lqwchd
[考研] 325求调剂 +4 春风不借意 2026-04-04 4/200 2026-04-04 22:08 by 啵啵啵0119
[考研] 求调剂 +3 农业工程与信息� 2026-04-04 3/150 2026-04-04 12:19 by 舍而后得
[考研] 0710生物学336分求调剂 +6 kiyy 2026-04-01 8/400 2026-04-04 10:10 by kiyy
[考研] 295求调剂 +3 尚偌呀 2026-04-03 4/200 2026-04-03 21:23 by zhq0425
[考研] 282求调剂 不挑专业 求收留 +7 Yam. 2026-03-30 8/400 2026-04-03 14:12 by zhangdingwa
[考研] 建环，能源，土木老师路过看一看！！！ +5 嘿嘿uu 2026-04-01 5/250 2026-04-03 11:47 by znian
[考研] 生物学硕341求调剂 +4 你笑起来像云朵 2026-04-03 4/200 2026-04-03 10:32 by macy2011
[考研] 330求调剂 +3 白神呜呼呼 2026-04-02 3/150 2026-04-03 10:15 by 蓝云思雨
[考研] 专硕 351 086100 也是考的材科基 本科也是材料 +8 202451007219 2026-04-02 8/400 2026-04-03 09:50 by 蓝云思雨
[考研] 260求调剂 +6 朱芷琳 2026-04-02 6/300 2026-04-02 20:27 by 6781022
[考研] 求调剂 302分初试 0854 +5 伶可乐 2026-04-02 5/250 2026-04-02 17:53 by 笔落锦州
[考研] 266求调剂 +4 学员97LZgn 2026-04-02 4/200 2026-04-02 09:52 by yulian1987
[考研] 310分求调剂 +4 成功上岸wang 2026-04-01 4/200 2026-04-01 20:35 by liu823948201
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 一志愿中海洋材料357 +4 麦恩莉. 2026-03-30 4/200 2026-03-31 14:35 by 记事本2026
[考研] 323分 食品与营养调剂 +3 嘿ooo 2026-03-31 3/150 2026-03-31 09:38 by longlotian
信息提示
关闭
请填处理意见
关闭