设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 求助，子程序中一个自定义函数的问题

返回列表发新帖

查看: 5684|回复: 8

上一主题

下一主题

[子程序] 求助，子程序中一个自定义函数的问题

实名认证

1967 帖子	12 主题	5 精华

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

楼主

发表于 2015-12-19 16:57:18 | 显示全部楼层

nfunc(i,j)=(j*j-j)/2+i !*********************************问题在此行

移动到 call Openfile 前面

回复支持反对

使用道具举报

实名认证

1967 帖子	12 主题	5 精华

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

沙发

发表于 2015-12-22 08:46:10 | 显示全部楼层

第 107 行
200 if(nedst(kevab).gt.nfron) nfron=ndest(kevab)
是否应该是
200 if(ndest(kevab).gt.nfron) nfron=ndest(kevab)

回复支持反对

使用道具举报

实名认证

1967 帖子	12 主题	5 精华

臭石头雪球

F 币: 1370 元
贡献: 581 点

发消息

板凳

发表于 2015-12-25 11:26:18 | 显示全部楼层

不知道，运行以后的问题属于动态问题，需要动态分析。（调试等）

而只有代码的一部分，无法进行动态分析。

回复支持反对

使用道具举报

返回列表发新帖

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-22 10:34

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表