DO循环在Fortran中排除多个值

Question

如何在Fortran中实现这一目标？

    do i = 1, n Except n/2

有没有方便的方法而不是在循环中使用'if'？

Answer 1

有很多解决方案.这是一个使用cycle.它if在循环中仍然有一个语句,但没有if ... end if块.

MyLoop: do i=1, N
   if ( i == N/2 ) cycle MyLoop

   !  use the loop....
   write (*, *) i
end do MyLoop