Jeydragon

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專業(yè): 大地測(cè)量學(xué)

[交流] 【求助】有錯(cuò)誤已有3人參與

Program Summation
Implicit None
Interface My_Sum
Function Sum_Real(A,B) Result(Sum_Real_Result)
Real :: A,B, Sum_Real_Result
End Function Sum_Real

Function Sum_Integer(A,B) Result(Sum_Integer_Result)
Integer :: A,B, Sum_Integer_Result
End Function Sum_Integer
End Interface
Real ::X,Y
Integer :: I,J
Read *,X,Y,I,J
print *, My_Sum(X,Y), My_Sum(I,J)
contains
Function Sum_Real(A,B) Result(Sum_Real_Result)
Real :: A,B,Sum_Real_Result

Sum_Real_Result=A+B
End Function Sum_Real

Function Sum_Integer(A,B) Result(Sum_Integer_Result)
Integer :: A,B,Sum_Integer_Result
Sum_Integer_Result=A+B
End Function Sum_Integer
End Program Summation

運(yùn)行出錯(cuò)，怎么回事？請(qǐng)指教

回復(fù)此樓

» 猜你喜歡

352分-085602-一志愿985 已經(jīng)有3人回復(fù)
291求調(diào)劑已經(jīng)有4人回復(fù)
330分求調(diào)劑已經(jīng)有4人回復(fù)
309求調(diào)劑已經(jīng)有4人回復(fù)
0856求調(diào)劑已經(jīng)有13人回復(fù)
0703化學(xué) 已經(jīng)有11人回復(fù)
329求調(diào)劑已經(jīng)有7人回復(fù)
321求調(diào)劑已經(jīng)有8人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有12人回復(fù)
070300化學(xué)354求調(diào)劑已經(jīng)有4人回復(fù)

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

看看有沒(méi)有錯(cuò)誤已經(jīng)有6人回復(fù)
求助，文章proof后已經(jīng)online，暫無(wú)頁(yè)碼，剛剛發(fā)現(xiàn)有錯(cuò)誤，還能修改嗎？已經(jīng)有22人回復(fù)
發(fā)現(xiàn)別人已經(jīng)出版的SCI論文有錯(cuò)誤的地方，該怎么辦已經(jīng)有47人回復(fù)
關(guān)于微分電容問(wèn)題，有問(wèn)題請(qǐng)教！已經(jīng)有7人回復(fù)
steel research international 狀態(tài)是under review發(fā)現(xiàn)submission有錯(cuò)誤怎么辦已經(jīng)有14人回復(fù)
EDAS投稿格式有問(wèn)題已經(jīng)有9人回復(fù)
擔(dān)心啊，發(fā)現(xiàn)投稿后的文章有錯(cuò)誤，該怎么辦已經(jīng)有13人回復(fù)
160 表上交后發(fā)現(xiàn)有錯(cuò)誤能重新再填寫(xiě)一份嗎？在線等，多謝了已經(jīng)有6人回復(fù)
掃描電鏡有問(wèn)題已經(jīng)有9人回復(fù)
采用PBS腳本第一次提交任務(wù)，算了1步就被殺死，有錯(cuò)誤提示但不知道原因？已經(jīng)有19人回復(fù)
臺(tái)式機(jī)無(wú)法啟動(dòng)——可能是硬盤(pán)有問(wèn)題？已經(jīng)有13人回復(fù)
稿件剛with editor，發(fā)現(xiàn)有錯(cuò)誤，能撤稿再投嗎已經(jīng)有14人回復(fù)
今年教育部課題公示時(shí)間有問(wèn)題已經(jīng)有15人回復(fù)
剛投稿就發(fā)現(xiàn)稿件中有錯(cuò)誤已經(jīng)有9人回復(fù)
有人做辣椒堿和辣椒紅素提取的嗎？有問(wèn)題咨詢已經(jīng)有21人回復(fù)
DNA雙螺旋結(jié)構(gòu)中的數(shù)據(jù)是不是有錯(cuò)誤？已經(jīng)有2人回復(fù)
offprint都回來(lái)了，發(fā)現(xiàn)有錯(cuò)誤，還能改嗎？已經(jīng)有12人回復(fù)
【求助】此程序沒(méi)有錯(cuò)誤，怎么運(yùn)行不出來(lái)？已經(jīng)有6人回復(fù)
以前的一篇發(fā)表論文數(shù)據(jù)有錯(cuò)誤該怎么辦？已經(jīng)有8人回復(fù)
【求助】我的羥基峰有問(wèn)題啊！已經(jīng)有7人回復(fù)

欲海沉浮名利爭(zhēng)，石光電火步此生；風(fēng)塵情事?lián)]不盡，觀世不笑是癡人。

1樓 2010-12-20 09:24:36

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

maomao1210

金蟲(chóng) (正式寫(xiě)手)

程序強(qiáng)帖: 5
應(yīng)助: 2 (幼兒園)
金幣: 1432.8
散金: 242
紅花: 16
沙發(fā): 1
帖子: 991
在線: 442.1小時(shí)
蟲(chóng)號(hào): 253215
注冊(cè): 2006-05-20
性別: MM
專業(yè): 考古理論

★ ★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+2):謝謝參與應(yīng)助！ 2010-12-20 20:24:40

引用回帖:

Originally posted by Jeydragon at 2010-12-20 09:24:36:
Program Summation
Implicit None
Interface My_Sum
Function Sum_Real(A,B) Result(Sum_Real_Result)
Real :: A,B, Sum_Real_Result
End Function Sum_Real

Function Sum_Integer(A,B) Result(Su ...

你用的是OVERLOAD功能，而不是接口參數(shù)和返回類型說(shuō)明吧。
把interface 中的修改為圖片這樣就可以了。

贊一下(2人)

回復(fù)此樓

2樓2010-12-20 14:37:20

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

Jeydragon

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專業(yè): 大地測(cè)量學(xué)

還是有問(wèn)題。。。

Error: The name of the internal procedure conflicts with a name in the encompassing scoping unit. [SUM_REAL]
Function Sum_Real(A,B) Result(Sum_Real_Result)

Error: The name of the internal procedure conflicts with a name in the encompassing scoping unit. [SUM_INTEGER]
Function Sum_Integer(A,B) Result(Sum_Integer_Result)

Error: There is no matching specific function for this generic function reference. [MY_SUM]
print *, My_Sum(X,Y), My_Sum(I,J)
。。。。。。

贊一下

回復(fù)此樓

欲海沉浮名利爭(zhēng)，石光電火步此生；風(fēng)塵情事?lián)]不盡，觀世不笑是癡人。

3樓2010-12-20 16:59:22

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

Jeydragon

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專業(yè): 大地測(cè)量學(xué)

類屬函數(shù)

回復(fù)此樓

欲海沉浮名利爭(zhēng)，石光電火步此生；風(fēng)塵情事?lián)]不盡，觀世不笑是癡人。

4樓2010-12-20 17:07:44

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★ ★ ★ ★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+3):謝謝參與應(yīng)助！ 2010-12-21 11:01:51

你想要是這樣的效果嗎？

CODE:

module swap_module

   implicit none

   public :: swap

   private :: swap_reals, swap_integers

   interface swap

      module procedure swap_reals, swap_integers

   end interface

   contains

   subroutine swap_reals(a, b)

   real, intent(in out) :: a, b

   real :: temp

   temp = a

   a = b

   b = temp

   end subroutine swap_reals

   subroutine swap_integers(a, b)

   integer, intent(in out) :: a, b

   integer :: temp

   temp = a

   a = b

   b = temp

   end subroutine swap_integers

end module swap_module

program test_swap

use swap_module

implicit none

real :: x, y

integer :: i, j

x = 1.1

y = 2.2

i = 1

j = 2

call swap(x, y)

print *, x, y

call swap(i, j)

print *, i, j

end program test_swap

贊一下(2人)

回復(fù)此樓

5樓2010-12-20 20:22:39

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

Jeydragon

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專業(yè): 大地測(cè)量學(xué)

1、首先感謝你的回復(fù)，辛苦了。
2、我是想通過(guò)My_Sum，將整數(shù)和實(shí)數(shù)相加這兩個(gè)函數(shù)合并在一起，調(diào)用的時(shí)候，在這里只需要My_Sum即可而不需要Sum_Integer和Sum_Real。我這個(gè)例子也是看到書(shū)上這么寫(xiě)的，我就是運(yùn)行不成功。。。

贊一下

回復(fù)此樓

欲海沉浮名利爭(zhēng)，石光電火步此生；風(fēng)塵情事?lián)]不盡，觀世不笑是癡人。

6樓2010-12-20 22:05:10

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
小木蟲(chóng)(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

Originally posted by Jeydragon at 2010-12-20 22:05:10:
1、首先感謝你的回復(fù)，辛苦了。
2、我是想通過(guò)My_Sum，將整數(shù)和實(shí)數(shù)相加這兩個(gè)函數(shù)合并在一起，調(diào)用的時(shí)候，在這里只需要My_Sum即可而不需要Sum_Integer和Sum_Real。我這個(gè)例子也是看到書(shū)上這么寫(xiě)的，我就是運(yùn)行 ...

你看了我給的代碼了嗎？不就是你所說(shuō)的這個(gè)功能嗎？swap 兩個(gè)數(shù)值時(shí)，只需要 swap，不需要 swap_integers 和 swap_reals 啊……

贊一下(1人)

回復(fù)此樓

7樓2010-12-21 09:23:44

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

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

[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6	崔wj 2026-03-26	6/300	2026-03-29 01:11 by hanserlol
[考研] 332求調(diào)劑 +4	@MZB382400 2026-03-28	4/200	2026-03-28 21:02 by 唐沐兒
[考研] 311求調(diào)劑 +4	冬十三 2026-03-24	4/200	2026-03-28 13:17 by 唐沐兒
[考研] 266分，求材料冶金能源化工等調(diào)劑 +7	哇呼哼呼哼 2026-03-27	9/450	2026-03-28 12:22 by zllcz
[考研] 材料求調(diào)劑一志愿哈工大324 +7	閆旭東 2026-03-28	9/450	2026-03-28 08:51 by Xu de nuo
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-27	7/350	2026-03-28 07:43 by 熱情沙漠
[考研] 086502化學(xué)工程342求調(diào)劑 +6	阿姨復(fù)古不過(guò) 2026-03-27	6/300	2026-03-28 07:06 by wangy0907
[考研] 一志愿西北大學(xué) 總分282 英語(yǔ)一62 求調(diào)劑 +7	18419759900 2026-03-25	8/400	2026-03-27 16:38 by 18419759900
[考研] 化學(xué)308分求調(diào)劑 +8	你好明天你好 2026-03-23	9/450	2026-03-27 14:01 by 楊光于青云
[考研] 考研調(diào)劑 +10	呼呼？~+123456 2026-03-24	10/500	2026-03-27 11:46 by wangjy2002
[考研] 312求調(diào)劑 +9	上岸吧ZJY 2026-03-22	13/650	2026-03-27 11:24 by sanrepian
[考研] 調(diào)劑推薦 +5	清酒714 2026-03-26	6/300	2026-03-27 11:12 by 不吃魚(yú)的貓
[考研] 材料調(diào)劑 +8	匹克i 2026-03-23	8/400	2026-03-27 08:11 by hypershenger
[考研] 【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】 +4	Higraduate 2026-03-22	8/400	2026-03-26 20:34 by Higraduate
[考研] 289求調(diào)劑 +17	碩星赴 2026-03-23	17/850	2026-03-26 16:18 by 不吃魚(yú)的貓
[考研] 297求調(diào)劑 +6	田洪有 2026-03-26	6/300	2026-03-26 15:55 by 不吃魚(yú)的貓
[考研] 263求調(diào)劑 +6	yqdszhdap－ 2026-03-22	10/500	2026-03-26 13:11 by 公瑾逍遙
[考研] 332求調(diào)劑 +6	032500 2026-03-25	6/300	2026-03-25 22:45 by 418490947
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7	小羊睡著了? 2026-03-23	10/500	2026-03-25 02:24 by 清風(fēng)拂揚(yáng)。 m
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +5	WW.' 2026-03-23	7/350	2026-03-24 14:50 by sprinining