 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 1267 | 回復(fù): 1 | ||
修煉天木新蟲(chóng) (初入文壇)
|
[求助]
關(guān)于Fortran編程遇到的問(wèn)題
|
|
我是一個(gè)初學(xué)者，有大神的話(huà)可以私聊，我將程序發(fā)給您，請(qǐng)您幫忙解答。 受篇幅所限，這個(gè)只是一部分程序，如果需要更多，煩請(qǐng)私聊我 program caphere dimension porerho(3000),porethta(3000),porephi(3000),porerad(3000) real inclrho(8000),inclthta(8000),inclphi(8000),inclrad(8000) integer nsurf(100),nsepd(100) dimension ashsum(100),ashsum2(100),bshsum(100),bshsum2(100) real az(100),surfbin(100,15),sepdbin(100,15) common /inclusion/ inclrho, inclthta, inclphi, inclrad common /pores/ porerho, porethta, porephi, porerad common /dimensions/ radchar, radpore, radincl common /parameters/ iupper, ilower, issed, delz common /bins/ az, surfbin, sepdbin, nsurf, neepd common /sums/ ashsum, ashsum2, bshsum, bshsum2 open(5, file='csin') open(7, file='csout1') open(8, file='csout2') read(5,*)nruns,mruns read(5,*)iseed read(5,*)radchar, delz do 10 ik=1,nruns read(5,*)radpore, radincl read(5,*)fvpore, fvincl npores=fvpore*(radchar/radpore)**3 nincls=fvincl*(radchar/radincl)**3 650 format(20x,'mruns=',i8) 800 format(14x'char radius=',f16.1) 325 format(/10x'number of pores=',i8/5x,'number of inclusions=',i8) 600 format(//5x,45('*') $ /5x,'**** results from the continuous model ****' $ /5x,45('*')//) 750 format(20x,'iseed=',i12) do 5 i=1,100 nsurf(i)=0 nsepd(i)=0 ashsum(i)=0. ashsum2(i)=0. bshsum(i)=0. bshsum2(i)=0. do 6 j=1,15 surfbin(i,j)=0 sepdbin(i,j)=0 6 continue 5 continue do 15 j=1,mruns vfrpore=0 vfrincl=0 npores=fvpore*(radchar/radpore)**3 write(6,*)'Starting the run no.',j,'......' call distribn(j,npores,nincls,vfrpore,vfrincl) if(npores.ne.0)then call sort(1,npores) endif call sort(2,nincls) call reaction(iz,npores,nincls) call results(vfrpore,vfrincl,nincls) 這一行報(bào)錯(cuò) write(6,*)'Finished the run no.',j,'......' 15 continue call results(iz,mruns,vfrpore,vfrincl,nincls) 10 continue stop end 錯(cuò)誤如下、 error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [NINCLS] error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [VFRINCL] error #6633: The type of the actual argument differs from the type of the dummy argument. [NINCLS] error #6633: The type of the actual argument differs from the type of the dummy argument. [VFRINCL] error #6633: The type of the actual argument differs from the type of the dummy argument. [VFRPORE] |
回復(fù)此樓» 猜你喜歡
材料與化工求調(diào)劑
已經(jīng)有3人回復(fù)
-
298求調(diào)劑
已經(jīng)有7人回復(fù)
-
288求調(diào)劑
已經(jīng)有4人回復(fù)
-
0856材料與化工290求調(diào)劑
已經(jīng)有4人回復(fù)
-
286求調(diào)劑
已經(jīng)有13人回復(fù)
-
085700資環(huán)求調(diào)劑，初始279，六級(jí)已過(guò)，英語(yǔ)能力強(qiáng)
已經(jīng)有5人回復(fù)
-
22408 275分求調(diào)劑
已經(jīng)有4人回復(fù)
-
324求調(diào)劑
已經(jīng)有10人回復(fù)
-
303求調(diào)劑
已經(jīng)有10人回復(fù)
-
接受26屆調(diào)劑生
已經(jīng)有18人回復(fù)
修煉天木
新蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 13
- 帖子: 11
- 在線(xiàn): 2.6小時(shí)
- 蟲(chóng)號(hào): 7873647
- 注冊(cè): 2018-02-03
- 性別: GG
- 專(zhuān)業(yè): 工程熱物理與能源利用
2樓2019-06-02 08:37:06
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 修煉天木 的主題更新
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085700資環(huán)求調(diào)劑，初始279，六級(jí)已過(guò)，英語(yǔ)能力強(qiáng) +4 | 085700資環(huán)調(diào)劑 2026-03-03 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 接受26屆調(diào)劑生 +18 | 豬豬豬毛 2026-03-06 | 18/900 |
|
|
|
[考研] A區(qū)一本交叉課題組，低分調(diào)劑，招收機(jī)械電子信息通信等交叉方向 +45 | lisimayy 2026-03-04 | 58/2900 |
|
|
|
[考研] 301求調(diào)劑 +5 | 一二LV 2026-03-07 | 5/250 |
|
|
|
[考研] 一志愿中國(guó)石油大學(xué)（華東） 本科齊魯工業(yè)大學(xué) 求調(diào)劑 +3 | snw石 2026-03-07 | 3/150 |
|
|
|
[基金申請(qǐng)]
 成果系統(tǒng)訪(fǎng)問(wèn)量大，請(qǐng)15分鐘后再?lài)L試。由此給您造成的不便，敬請(qǐng)諒解。
+16
|
xhuama 2026-03-02 | 19/950 |
|
|
|
[考研] 267化工調(diào)劑求助 +7 | 聰少OZ 2026-03-04 | 7/350 |
|
|
|
[考研] 材料專(zhuān)碩290求調(diào)劑 +8 | 杰尼龜aaa 2026-03-04 | 8/400 |
|
|
|
[考研] 316求調(diào)劑 +3 | 林小星發(fā)大財(cái) 2026-03-05 | 5/250 |
|
|
|
[考研] 290求調(diào)劑 +5 | Bananaiy 2026-03-04 | 5/250 |
|
|
|
[考研] 一志愿天津大學(xué)085600 319分 材料與化工 金屬方向 求調(diào)劑 +6 | 青科11 2026-03-02 | 6/300 |
|
|
|
[考研] 316求調(diào)劑 +3 | 林小星發(fā)大財(cái) 2026-03-04 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +7 | 博斯特525 2026-03-04 | 7/350 |
|
|
|
[考研] 0855機(jī)械工程324求調(diào)劑 +3 | 鄭SK 2026-03-02 | 7/350 |
|
|
|
[考研] 材料專(zhuān)碩346求調(diào)劑 +3 | 旺一下 2026-03-04 | 3/150 |
|
|
|
[考研] 0856材料工程，初試313調(diào)劑 +7 | 賣(mài)個(gè)關(guān)子吧 2026-03-03 | 7/350 |
|
|
|
[考研] 085602化學(xué)工程350，調(diào)劑，有沒(méi)有211的 +5 | 利好利好. 2026-03-02 | 9/450 |
|
|
|
[考研] 26考研報(bào)考西工大材料308分求調(diào)劑 +4 | weizhong123 2026-03-01 | 5/250 |
|
|
|
[考研] 291求調(diào)劑 +3 | MuoLuo1312 2026-03-02 | 6/300 |
|
|
|
[考研] 275求調(diào)劑 +3 | L-xin? 2026-03-01 | 6/300 |
|