| 查看: 1027 | 回复: 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] |
回复此楼» 猜你喜欢
车间生产，真空度很高，温度很高，但减压蒸馏速度很慢。
已经有32人回复
-
为什么我的博后基金还在流动站审核中？不会是学院给我卡了吧？
已经有22人回复
-
BO4的YQ答辩通知发布了吗？
已经有4人回复
-
Nature 11日发文，中国著名学者们称造假迫不得已
已经有3人回复
-
博后基金，以往的结果点不开，怎么回事呢？最后一次机会了，两次都没中前面。
已经有10人回复
-
请问事业编制和年薪制冲突吗？
已经有4人回复
-
累并快乐着
已经有8人回复
-
审稿问题：为什么荧光激发波长和紫外吸收波长差的大？
已经有7人回复
-
2024国社科通讯评审
已经有7人回复
-
34岁读博士晚吗
已经有22人回复
2楼2019-06-02 08:37:06
10