Jeydragon

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

應(yīng)助: 5 (幼兒園)
金幣: 4611.2
散金: 268
紅花: 11
帖子: 993
在線: 229.6小時(shí)
蟲(chóng)號(hào): 966560
注冊(cè): 2010-03-10
專(zhuān)業(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ù)此樓

» 猜你喜歡

299求調(diào)劑已經(jīng)有8人回復(fù)
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑已經(jīng)有6人回復(fù)
300求調(diào)劑，材料科學(xué)英一數(shù)二已經(jīng)有8人回復(fù)
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑已經(jīng)有5人回復(fù)
070305高分子化學(xué)與物理 304分求調(diào)劑已經(jīng)有7人回復(fù)
289求調(diào)劑已經(jīng)有13人回復(fù)
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分已經(jīng)有9人回復(fù)
081200-11408-276學(xué)碩求調(diào)劑已經(jīng)有6人回復(fù)
調(diào)劑求院校招收已經(jīng)有5人回復(fù)
調(diào)劑310 已經(jīng)有8人回復(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)題咨詢(xú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
專(zhuān)業(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ù)和返回類(lèi)型說(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
專(zhuān)業(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
專(zhuān)業(yè): 大地測(cè)量學(xué)

類(lèi)屬函數(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
專(zhuān)業(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
專(zhuān)業(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
專(zhuān)業(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ā)表

[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +5	0857求調(diào)劑. 2026-03-24	6/300	2026-03-28 22:04 by zhq0425
[考研] 本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專(zhuān)業(yè)都可以 +6	芝士雪baoo 2026-03-28	7/350	2026-03-28 21:40 by zhq0425
[考研] 22408 359分調(diào)劑 +4	Qshers 2026-03-27	5/250	2026-03-28 21:26 by zhq0425
[考研] 295材料工程專(zhuān)碩求調(diào)劑 +7	1428151015 2026-03-27	7/350	2026-03-28 19:58 by S240
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +5	niko- 2026-03-27	5/250	2026-03-28 14:25 by 唐沐兒
[考研] 394求調(diào)劑 +3	好事多磨靜候佳?/a> 2026-03-26	5/250	2026-03-28 14:24 by 唐沐兒
[考研] 299求調(diào)劑 +7	嗯嗯嗯嗯2 2026-03-27	7/350	2026-03-28 13:09 by 唐沐兒
[考研] 085600 286分材料求調(diào)劑 +7	麻辣魷魚(yú) 2026-03-27	8/400	2026-03-28 12:17 by zllcz
[考研] 283求調(diào)劑 +7	A child 2026-03-28	7/350	2026-03-28 12:05 by zllcz
[考研] 藥學(xué)105500求調(diào)劑 +3	Ssun。。 2026-03-28	3/150	2026-03-28 11:24 by lxf170613
[考研] 339求調(diào)劑，想調(diào)回江蘇 +6	烤麥芽 2026-03-27	8/400	2026-03-28 10:40 by 烤麥芽
[考研] 一志愿211院校 344分東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩，求調(diào)劑 +5	丶風(fēng)雪夜歸人丶 2026-03-26	8/400	2026-03-27 19:22 by 丶風(fēng)雪夜歸人丶
[考研] 085600材料與化工調(diào)劑 +10	A-哆啦Z夢(mèng) 2026-03-23	16/800	2026-03-27 15:13 by caszguilin
[考研] 305求調(diào)劑 +5	哇盧卡庫(kù) 2026-03-26	5/250	2026-03-27 14:01 by laoshidan
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 340求調(diào)劑 +3	Amber00 2026-03-26	3/150	2026-03-26 18:57 by 不吃魚(yú)的貓
[考研] 332求調(diào)劑 +6	032500 2026-03-25	6/300	2026-03-25 22:45 by 418490947
[考研] 【2026考研調(diào)劑】制藥工程 284分求相關(guān)專(zhuān)業(yè)調(diào)劑名額 +4	袁奐奐 2026-03-25	8/400	2026-03-25 14:32 by lbsjt
[考研] 各位老師您好：本人初試372分 +5	jj涌77 2026-03-25	6/300	2026-03-25 14:15 by mapenggao
[考研] 318求調(diào)劑 +3	plum李子 2026-03-23	3/150	2026-03-25 09:42 by 霧散后相遇lc