| 查看: 1235 | 回复: 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] |
回复此楼» 猜你喜欢
参与限项
已经有3人回复
-
假如你的研究生提出不合理要求
已经有7人回复
-
实验室接单子
已经有4人回复
-
全日制（定向）博士
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
不自信的我
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
2楼2019-06-02 08:37:06