24小时热门版块排行榜    

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

mmfzx0517

木虫 (著名写手)

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

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

» 猜你喜欢

上坡
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjyl

金虫 (正式写手)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
jjdg(金币+2):辛苦了 2010-03-27 13:38
N=10000;
i=2
step=1
do while (i    do sth....
   step=i**2
   i =i+step
end do
.....
13楼2010-03-27 11:20:24
已阅   回复此楼   关注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的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂310 +5 温柔的晚安 2026-03-25 6/300 2026-03-28 15:43 by buxianyu
[考研] 一志愿中南大学化学0703总分337求调剂 +5 niko- 2026-03-27 5/250 2026-03-28 14:25 by 唐沐儿
[考研] 317分 一志愿南理工材料工程 本科湖工大 求调剂 +6 芋泥小铃铛 2026-03-28 6/300 2026-03-28 14:15 by Ainin_
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 食品工程专硕一志愿中海洋309求调剂 +3 小张zxy张 2026-03-26 5/250 2026-03-27 18:42 by 小张zxy张
[考研] 一志愿南师大0703化学 275求调剂 +4 Ripcord上岸 2026-03-27 4/200 2026-03-27 17:00 by zhyzzh
[考研] 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
[考研] 求调剂 +3 刘柯@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[论文投稿] Journal of Mechanical Science and Technology +3 Russ_ss 2026-03-25 5/250 2026-03-27 10:49 by 陆小果画大饼
[考研] 317求调剂 +7 蛋黄咸肉粽 2026-03-26 7/350 2026-03-27 02:29 by fmesaito
[考研] 325求调剂 +5 李嘉图·S·路 2026-03-23 5/250 2026-03-27 00:42 by wxiongid
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
[考研] 材料专硕找调剂 +5 哈哈哈吼吼吼哈 2026-03-23 5/250 2026-03-24 19:07 by 了了了了。。
[考研] 一志愿北京化工大学070300 学硕336求调剂 +5 vv迷 2026-03-21 8/400 2026-03-22 14:20 by ColorlessPI
信息提示
请填处理意见