应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】Fortran程序中DO循环的步长可以是变量吗？
北京石油化工学院2026年研究生招生接收调剂公告
161/2返回列表12下一页
查看: 1866  |  回复: 15
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。

mmfzx0517

木虫 (著名写手)

[交流] 【求助】Fortran程序中DO循环的步长可以是变量吗？

RT，也就说
   do i=1,10000,x
      .....
   end do
请问，DO循环中的步长x可以是变量吗?比如x=i*2.如果不行，如何实现DO循环变量i跳跃前
进？谢谢！
回复此楼

» 猜你喜欢
上坡
1楼 2010-03-25 13:22:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)
★
余泽成(金币+1):谢谢参与应助！ 2010-03-26 16:28
用 do while好了
回复此楼
2楼2010-03-25 19:02:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-03-26 16:28
不可以，至少 Fortran 77 是不允许的……
赞一下(2人) 回复此楼
3楼2010-03-25 19:38:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
经测试，F90是可以这样的，我的测试程序是这样的：

program test_do
    implicit none
    integer :: i, j
    read *,j
    do i=1,1000,j
        print *,"i=",i
    end do
end program test_do

此程序在intel fortran compiler 11 和 gfortran 4.4.3 中测试通过。

PS：如果想知道什么东西是不是可以，自己写一个测试程序试一试不就知道了。
赞一下(2人) 回复此楼
4楼2010-03-25 20:31:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
楼主的意思是不你所说的这样吧，呵呵……

楼主的意思是在 do 的过程中改变步长，比如第一次循环时 j = 1, 第二次循环时 j = 2，这个是不允许的吧。

我测试了你的代码，即使在 do ... end do 中重新为 j 赋值，也不会影响 do 的步长……
赞一下(2人) 回复此楼
5楼2010-03-25 20:55:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-26 02:53
恩，确实是这样。

引用回帖:
Originally posted by snoopyzhao at 2010-03-25 20:55:44:
楼主的意思是不你所说的这样吧，呵呵……

楼主的意思是在 do 的过程中改变步长，比如第一次循环时 j = 1, 第二次循环时 j = 2，这个是不允许的吧。

我测试了你的代码，即使在 do ... end do 中重新为 j 赋值 ...

赞一下(2人) 回复此楼
6楼2010-03-25 22:27:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

addila

木虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-03-26 16:28
楼上的牛叉 直接用linux了啊，是不是可以在循环中间加一个小程序，读取外边给定的j！每次j是变化的？
赞一下(2人) 回复此楼
7楼2010-03-26 10:00:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-03-26 16:28
do 循环只看第一次设置的步长。
如果想达到同样的效果，为何不直接 do while....
引用回帖:
Originally posted by addila at 2010-03-26 10:00:25:
楼上的牛叉 直接用linux了啊，是不是可以在循环中间加一个小程序，读取外边给定的j！每次j是变化的？

赞一下(2人) 回复此楼
8楼2010-03-26 10:15:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):辛苦了！ 2010-03-26 16:29
哦，那是我理解错误了。
如果是在循环体内改变步长，那时不允许的。只能用do while间接实现。要不你就把数列通项写出来，采用数学的方法，直接把j从do后面去掉。像这样：
do i=1,1000
j=i+f(i)
end do

f(i)是步长函数
赞一下(2人) 回复此楼
9楼2010-03-26 11:52:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ftp0000

木虫 (小有名气)
★
余泽成(金币+1):谢谢参与应助！ 2010-03-26 16:29
引用回帖:
Originally posted by holmescn at 2010-03-26 11:52:03:
哦，那是我理解错误了。
如果是在循环体内改变步长，那时不允许的。只能用do while间接实现。要不你就把数列通项写出来，采用数学的方法，直接把j从do后面去掉。像这样：
do i=1,1000
j=i+f(i)
end do

f(i ...

这样也挺复杂的，建议lz还是用do while来做吧
赞一下(1人) 回复此楼
10楼2010-03-26 12:25:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 mmfzx0517 的主题更新
161/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 320分，材料与化工专业，求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 调剂求院校招收 +4 鹤鲸鸽 2026-03-28 4/200 2026-03-28 13:38 by 唐沐儿
[考研] 0703化学求调剂 +9 奶油草莓. 2026-03-22 10/500 2026-03-28 13:30 by 唐沐儿
[考研] 277跪求调剂 +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[考研] 081200-314 +3 LILIQQ 2026-03-27 4/200 2026-03-28 09:41 by 保护地球你我做�
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 一志愿上海理工能源动力（085800）310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
[考研] 一志愿北京化工大学 070300 学硕 336分 求调剂 +9 vv迷 2026-03-22 9/450 2026-03-27 15:59 by 不吃魚的貓
[考研] 材料292调剂 +12 橘颂思美人 2026-03-23 12/600 2026-03-27 15:44 by caszguilin
[考研] 一志愿陕师大生物学071000，298分，求调剂 +5 SYA！ 2026-03-23 5/250 2026-03-27 09:29 by 不吃魚的貓
[考研] 263求调剂 +6 yqdszhdap－ 2026-03-22 10/500 2026-03-26 13:11 by 公瑾逍遥
[考研] 机械学硕总分317求调剂！！！！ +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[考研] 一志愿北化315 求调剂 +3 akrrain 2026-03-24 3/150 2026-03-24 19:35 by 了了了了。。
[考研] 307求调剂 +3 余意卿 2026-03-21 6/300 2026-03-24 15:03 by 余意卿
[考研] 一志愿山东大学药学学硕求调剂 +3 开开心心没烦恼 2026-03-23 4/200 2026-03-24 00:06 by 开开心心没烦恼
[考研] 384求调剂 +3 子系博 2026-03-22 6/300 2026-03-23 21:45 by 子系博
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
[考研] 306求调剂 +5 来好运来来来 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
信息提示
关闭
请填处理意见
关闭