小编efe*_*fef的帖子

我有一个看起来像这样的算法:

10 WRITE (*,*) "Start"
DO I = 1, 10
WRITE (*,*) "Step"
IF(I .EQ. 5) then 
    go to 10
END IF
END DO

当if语句执行时,我想重新启动循环.但是,我不想使用去,我试过这个:

10 WRITE (*,*) "Start"
DO I = 1, 10
WRITE (*,*) "Step"
IF(I .EQ. 5) then 
    I = 0; CYCLE
END IF
END DO

但后来我得到的错误是我无法在循环内重新定义I变量.所以我不确定如何处理这个问题.任何帮助将非常感激