版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

guojunhang

金蟲 (正式寫手)

應(yīng)助: 7 (幼兒園)
金幣: 3820.6
帖子: 516
在線: 174.2小時
蟲號: 1438713

[交流] 問一個關(guān)于函數(shù)調(diào)用的小問題

請教個問題，看看我這個函數(shù)，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

調(diào)用的時候出現(xiàn)下列情況：
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環(huán)境。
求解釋。

回復(fù)此樓

» 猜你喜歡

各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩已經(jīng)有12人回復(fù)
359求調(diào)劑已經(jīng)有7人回復(fù)
070300化學(xué)專業(yè)279調(diào)劑已經(jīng)有10人回復(fù)
環(huán)境工程297分求調(diào)劑一志愿杭高院已經(jīng)有9人回復(fù)
一志愿武理材料工程302調(diào)劑環(huán)化或化工已經(jīng)有9人回復(fù)
309分085801求調(diào)劑已經(jīng)有5人回復(fù)
一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩已經(jīng)有5人回復(fù)
材料調(diào)劑已經(jīng)有4人回復(fù)
材料調(diào)劑已經(jīng)有3人回復(fù)
311（085601）求調(diào)劑已經(jīng)有12人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

請教個問題，為啥我的插值點會出現(xiàn)波動，是我調(diào)用函數(shù)的問題嗎？已經(jīng)有3人回復(fù)
matlab如何改變函數(shù)變量值在調(diào)用函數(shù)重新計算已經(jīng)有12人回復(fù)
matlab的函數(shù)調(diào)用問題已經(jīng)有3人回復(fù)
關(guān)于erfinv函數(shù)調(diào)用錯誤的問題已經(jīng)有4人回復(fù)
一個構(gòu)造函數(shù)調(diào)用問題…… 已經(jīng)有4人回復(fù)
請教如何調(diào)用Module里面的函數(shù)，謝謝已經(jīng)有6人回復(fù)
intel fortran 如何調(diào)用 matlab里面的函數(shù) 已經(jīng)有5人回復(fù)
菜鳥問題：VC++調(diào)用函數(shù)關(guān)閉子窗口的問題已經(jīng)有4人回復(fù)
【討論】關(guān)于一個m文件中函數(shù)調(diào)用及畫圖問題已經(jīng)有7人回復(fù)
【交流】VC++, C#, VB答疑專貼已經(jīng)有145人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2011-11-11 21:53:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

1303haojian

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 28.5
帖子: 11
在線: 5.1小時
蟲號: 1533909

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
jjdg(金幣+1): 感謝參與 2011-12-12 22:29:29
jjdg(金幣+1): 感謝應(yīng)助 2011-12-13 00:49:52

把第一個if塊中的return去掉

贊一下(3人)

回復(fù)此樓

4樓2011-12-12 14:57:58

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個回答

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
dubo(金幣+1): 歡迎討論 2011-11-11 23:31:16
guojunhang(金幣+1): 這個問題我也注意到了，所以改正后了程序流程 2011-11-13 18:27:43

你第一個程序中第一個 return 直接就結(jié)束了那個函數(shù)，后面的那個條件永遠不會被執(zhí)行啊……

贊一下(2人)

回復(fù)此樓

2樓2011-11-11 22:53:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送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:
請教個問題，看看我這個函數(shù)，fortran77寫的：
   FUNCTION HEAVI(PRIS)
         REAL*8 PRIS
   IF(PRIS.GT.0.0) THEN
      HEAVI=1.0
   ENDIF
   RETURN
C
      IF(PRIS. ...

貌似變量定義也有問題，第一個函數(shù)中用的是real*8,主程序給的有時候是real*8 ,有時候是real*4

[ Last edited by maomao1210 on 2011-11-11 at 23:00 ]

贊一下(3人)

回復(fù)此樓

3樓2011-11-11 22:55:13

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 4 個回答

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 288求調(diào)劑一志愿哈工大材料與化工 +18	洛神哥哥 2026-03-31	18/900	2026-03-31 21:55 by haohaichenji
[考研] 材料調(diào)劑 5+6	想要一壺桃花水 2026-03-25	13/650	2026-03-31 21:55 by cqhuanglong
[考研] 309求調(diào)劑 +5	gajsj 2026-03-25	6/300	2026-03-31 21:12 by yuq
[考研] 一志愿北京科技大學(xué)材料學(xué)碩328分求調(diào)劑 +4	1段時間 2026-03-31	5/250	2026-03-31 19:56 by wxiongid
[考研] 085600 一志愿9 總分351 求調(diào)劑學(xué)校 +7	czhcz 2026-03-31	7/350	2026-03-31 18:54 by 小張做實驗
[考研] 材料工程專碩求調(diào)劑 +10	hyl3153942 2026-03-29	10/500	2026-03-31 16:31 by hypershenger
[考研] 材料與化工272求調(diào)劑 +25	阿斯蒂芬2004 2026-03-28	25/1250	2026-03-31 16:27 by hypershenger
[考研] 生物學(xué) 296 求調(diào)劑 +7	朵朵- 2026-03-26	9/450	2026-03-31 14:26 by jp9609
[考研] 一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩 +5	@taotao 2026-03-30	5/250	2026-03-31 09:41 by zhshch
[考研] 281求調(diào)劑 +5	亞克西good 2026-03-26	7/350	2026-03-30 20:42 by dophin1985
[考研] 327求調(diào)劑 +5	小卡不卡. 2026-03-29	5/250	2026-03-30 19:30 by Wang200018
[考研] 0703化學(xué)321分求調(diào)劑 +10	三dd. 2026-03-30	11/550	2026-03-30 19:24 by markhwc
[考研] 0703一志愿9，初試成績：338，四六級已過，有科研經(jīng)歷，求調(diào)劑！ +7	Zuhui0306 2026-03-25	7/350	2026-03-30 19:01 by 源_2020
[考研] 070305高分子化學(xué)與物理 304分求調(diào)劑 +12	c297914 2026-03-28	12/600	2026-03-29 16:21 by Serene1974
[考研] 085405 考的11408求各位老師帶走 +3	Qiu學(xué)ing 2026-03-28	3/150	2026-03-28 09:19 by 樂呵呵的追夢人
[考研] 086502化學(xué)工程342求調(diào)劑 +6	阿姨復(fù)古不過 2026-03-27	6/300	2026-03-28 07:06 by wangy0907
[考研] 求調(diào)劑 +4	零八# 2026-03-27	4/200	2026-03-27 18:07 by yu221
[考研] 298調(diào)劑 +3	jiyingjie123 2026-03-27	3/150	2026-03-27 11:57 by wxiongid
[碩博家園] 北京林業(yè)大學(xué)碩導(dǎo)招生廣告 +6	kongweilin 2026-03-26	8/400	2026-03-27 10:18 by FF_16
[考研] 【2026考研調(diào)劑】制藥工程 284分求相關(guān)專業(yè)調(diào)劑名額 +4	袁奐奐 2026-03-25	8/400	2026-03-25 14:32 by lbsjt

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

guojunhang

[交流] 問一個關(guān)于函數(shù)調(diào)用的小問題

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

1303haojian

snoopyzhao

maomao1210

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 搶金幣啦！回帖就可以得到:

查看全部散金貼