| 查看: 1019 | 回复: 1 | ||
| 【悬赏金币】回答本帖问题，作者修炼天木将赠送您 15 个金币 | ||
[求助]
关于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] |
回复此楼» 猜你喜欢
国社科申请书上传有误，学校已提交到省里，省里还未审核，还能退回修改嘛？
已经有6人回复
-
急求博导收留
已经有19人回复
-
国自然的面上项目，５个审稿人，５个B能上会吗？
已经有17人回复
-
2024/2025碳纳米材料方向博士/科研助理申请
已经有6人回复
-
换导师
已经有27人回复
-
本科出身不好是不是会被直接刷呀
已经有4人回复
-
关于导电胶
已经有5人回复
-
太诡异了，五月底还有没有送审的。。
已经有12人回复
-
博士去高校就是为了有寒暑假吗？
已经有26人回复
-
博三一直没文章怎么办
已经有42人回复
2楼2019-06-02 08:37:06
5