| 查看: 1418 | 回复: 1 | ||
[求助]
关于Fortran编程遇到的问题
|
|
我是一个初学者，有大神的话可以私聊，我将程序发给您，请您帮忙解答。 受篇幅所限，这个只是一部分程序，如果需要更多，烦请私聊我 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) 这一行报错 write(6,*)'Finished the run no.',j,'......' 15 continue call results(iz,mruns,vfrpore,vfrincl,nincls) 10 continue stop end 错误如下、 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] |
回复此楼» 猜你喜欢
中科院海洋所招收海洋材料相关领域博士研究生及研究助理
已经有4人回复
-
40+中年人失业后，还能找到好工作吗？
已经有3人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
申请科研项目纯靠实力能成功吗？
已经有7人回复
-
极限拉扯，如何抉择
已经有14人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
2楼2019-06-02 08:37:06
10