 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 2 | 1/1 | 返回列表 |
| 查看: 1275 | 回復(fù): 1 | ||
修煉天木新蟲 (初入文壇)
|
[求助]
關(guān)于Fortran編程遇到的問題
|
|
我是一個(gè)初學(xué)者，有大神的話可以私聊，我將程序發(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ù)此樓» 猜你喜歡
274求調(diào)劑0856材料化工
已經(jīng)有3人回復(fù)
-
材料工程085601調(diào)劑求老師收留
已經(jīng)有10人回復(fù)
-
288求調(diào)劑
已經(jīng)有18人回復(fù)
-
接受26屆調(diào)劑生
已經(jīng)有22人回復(fù)
-
311求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿北京化工大學(xué)材料與化工296分求調(diào)劑
已經(jīng)有16人回復(fù)
-
290求調(diào)劑
已經(jīng)有8人回復(fù)
-
伙伴們，祝我生日快樂吧
已經(jīng)有3人回復(fù)
-
深圳大學(xué)碩士招生（2026秋，傳感器方向，僅錄取第一志愿）
已經(jīng)有6人回復(fù)
-
一志愿河海大學(xué)085900土木水利專碩279求調(diào)劑不挑專業(yè)
已經(jīng)有3人回復(fù)
修煉天木
新蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 13
- 帖子: 11
- 在線: 2.6小時(shí)
- 蟲號(hào): 7873647
- 注冊(cè): 2018-02-03
- 性別: GG
- 專業(yè): 工程熱物理與能源利用
2樓2019-06-02 08:37:06
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 修煉天木 的主題更新
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿江南大學(xué)085701環(huán)境工程專碩總分287求調(diào)劑 +4 | 18266118446 2026-03-09 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 大連大學(xué)化學(xué)專業(yè)研究生調(diào)劑 +3 | 琪久. 2026-03-10 | 8/400 |
|
|
|
[考研] 材料專碩288分求調(diào)劑 一志愿211 +3 | 在家想你 2026-03-11 | 3/150 |
|
|
[考研] 一志愿211，0860總分286食品工程專業(yè)求調(diào)劑 +8 | 林林Winnie 2026-03-05 | 8/400 |
|
|
|
[考研] 歡迎211本科同學(xué)，過A區(qū)國家線，A區(qū)非偏遠(yuǎn)一本，交叉學(xué)科課題組 +23 | lisimayy 2026-03-04 | 37/1850 |
|
|
|
[考研] 2026考研求調(diào)劑-材料類-本科211一志愿985-初試301分 +10 | 蟲友233 2026-03-07 | 10/500 |
|
|
|
[考研] 337一志愿華南理工材料求調(diào)劑 +5 | mysdl 2026-03-07 | 5/250 |
|
|
|
[考研] 研究生招生 +3 | 徐海濤11 2026-03-10 | 6/300 |
|
|
|
[考研] 化工284求調(diào)劑 +12 | 小黑想變白 2026-03-07 | 12/600 |
|
|
|
[考研] 070300化學(xué)求調(diào)劑 +5 | 撲風(fēng)鈴的貓 2026-03-08 | 10/500 |
|
|
|
[考研] 293一志愿華東理工 0817化學(xué)工程與技術(shù) 調(diào)劑 +5 | fjj0912 2026-03-07 | 5/250 |
|
|
|
[考研] 0856材料與化工290求調(diào)劑 +7 | Nebulala 2026-03-08 | 8/400 |
|
|
|
[考研] 考研求調(diào)劑，工科，總分304 +4 | 矮子不想長高了 2026-03-08 | 7/350 |
|
|
|
[考研] 一志愿211 化學(xué)305分求調(diào)劑 +3 | 0703楊悅305分 2026-03-05 | 3/150 |
|
|
|
[考研] 306求調(diào)劑 +7 | Bahati 2026-03-05 | 7/350 |
|
|
|
[考博] 2026年博士名額撿漏 +4 | 科研ya 2026-03-04 | 7/350 |
|
|
|
[考研] 328求調(diào)劑 +6 | vuzhdkfjkx 2026-03-04 | 7/350 |
|
|
|
[考研] 紡織、生物、化學(xué)、材料等專業(yè) +3 | Eember. 2026-03-05 | 7/350 |
|
|
|
[考研] 材料學(xué)碩080500復(fù)試調(diào)劑294 +3 | 四葉zjz 2026-03-04 | 3/150 |
|
|
|
[考研] 322分 085600求調(diào)劑，有互聯(lián)網(wǎng)+國金及主持省級(jí)大創(chuàng)經(jīng)歷 +6 | 熊境喆 2026-03-04 | 6/300 |
|