24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1874  |  回复: 15
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

mmfzx0517

木虫 (著名写手)

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

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

» 猜你喜欢

上坡
已阅   回复此楼   关注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来做吧
10楼2010-03-26 12:25:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 16 个回答

snoopyzhao

至尊木虫 (职业作家)

★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+1):谢谢参与应助! 2010-03-26 16:28
不可以,至少 Fortran 77 是不允许的……
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:如果想知道什么东西是不是可以,自己写一个测试程序试一试不就知道了。
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 的步长……
5楼2010-03-25 20:55:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 315求调剂 +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[考研] 复试调剂 +3 raojunqi0129 2026-03-28 3/150 2026-03-28 15:27 by 落睿可思
[考研] 0703化学求调剂 +9 奶油草莓. 2026-03-22 10/500 2026-03-28 13:30 by 唐沐儿
[考研] 0856,材料与化工321分求调剂 +12 大馋小子 2026-03-27 13/650 2026-03-28 10:56 by self2008
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 化学调剂 +4 爱吃番茄的旭 2026-03-24 5/250 2026-03-27 17:50 by kiokin
[考研] 287求调剂 +10 land xuxu 2026-03-26 10/500 2026-03-27 15:33 by 帕尔马拉特
[考研] 085600材料与化工调剂 +10 A-哆啦Z梦 2026-03-23 16/800 2026-03-27 15:13 by caszguilin
[考研] 复试调剂,一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 276求调剂。有半年电池和半年高分子实习经历 +10 材料学257求调剂 2026-03-23 11/550 2026-03-27 10:13 by YCIT- LHL
[考研] 349求调剂 +4 李木子啊哈哈 2026-03-25 4/200 2026-03-26 22:49 by fmesaito
[考研] 总分322求生物学/生化与分子/生物信息学相关调剂 +5 星沉uu 2026-03-26 6/300 2026-03-26 19:02 by macy2011
[考研] 机械学硕310分,数一英一,一志愿211本科双非找调剂信息 +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
[考研] 各位老师您好:本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[考研] 285求调剂 +3 AZMK 2026-03-24 3/150 2026-03-25 12:23 by userper
[考研] 一志愿武理085500机械专业总分300求调剂 +3 an10101 2026-03-24 7/350 2026-03-25 00:00 by 山鬼0-
[考研] 一志愿南航材料专317分求调剂 +5 炸呀炸呀炸薯条 2026-03-23 5/250 2026-03-24 16:52 by 星空星月
[考研] 336化工调剂 +4 王大坦1 2026-03-23 5/250 2026-03-23 18:32 by allen-yin
信息提示
请填处理意见