Fortran Coder

查看: 16317|回复: 16
打印 上一主题 下一主题

[流程控制] fortran循环,求助!!

[复制链接]

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
607 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

楼主
发表于 2014-4-25 19:21:20 | 显示全部楼层
一段程序,所有代码必须都能找到“归属”,要么属于某个子程序,要么属于主程序。

像这种
[Fortran] 纯文本查看 复制代码
 stop 
 end !// 此处是主程序结束
 !!!!!!!!!
 Z0=50.0
 Zi=-3.0
 !!!!!!!!
 daltf=0  !!频率的变化


主程序结束后,又有代码,这样是不行的。你打算让他们如何执行?

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
607 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

沙发
发表于 2014-4-25 19:41:24 | 显示全部楼层
你的算法我不懂。

循环是个很简单的事情。

daltf = 起始值
Do i = 1 , 总循环次数
  daltf = daltf + 0.001
  处理代码
End Do

如果 A B C D 是函数,那就写成函数的形式。

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
607 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

板凳
发表于 2014-4-25 19:53:56 | 显示全部楼层
1.我建议你写成一个函数,把daltf当做参数传递进去,然后循环调用这个函数既可。
2.这样写不行。要这样循环

[Fortran] 纯文本查看 复制代码
integer :: i
real :: daltf
daltf = 0.0
 Do i = 1 , int(0.35/0.001)
   daltf = daltf + 0.001
   处理代码
 End Do
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-8 14:57

Powered by Tencent X3.4

© 2013-2024 Tencent

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