如何在Fortran的do循環中跳過幾次迭代

Question

例如，我想以1爲增量從1循環到500.然而，對於每8個循環，我想跳過接下來的18個循環（使do變化增加18）。我怎麼做？

我的代碼是：

event = 0 
do i = 1,500,2 
    event = event + 1 
    if (event .eq. 8) then 
      i = i + 18 
      event = 0 
    endif 
enddo 

但是，我得到了錯誤：「一個DO體內的DO變量不應出現在變量定義背景」。基本上我不能改變循環中的變量「我」。那麼我應該如何編寫代碼來實現它呢？

謝謝。

Answer 1

禁止修改循環索引。你可以用幾種方式解決你的問題。舉例來說，這裏是沒有明確的循環索引的解決方案：

i = -1 
do 
    i=i+2 
    if(i > 5000) exit 
    if (i == 15) i=i+18 
    ... 
enddo 

Answer 2

考慮這個例子嵌套循環，像

do k=0,15 
    do j=0,7 
     i=34*k+2*j ! 34 == 18+2*8 
     .... 
    end do 
    end do 

（可能是我沒有算術，其實你看到的想法）