Question

fortran的do循环中，如果循环次数分两段，该怎么写呢？

在matlab里面如果循环次数分为好几段，可以有这样的写法：
for i=[1:3, 5:9]
j=i
end
在fortran里面又没有类似的表示方法？

Answer 1

没有。只能
Do i = 1 , 3
End Do
Do i = 5 , 9
End Do
如果觉得写两段代码复杂，就用函数。
call MyDo( 1 , 3 )
call MyDo(5,9)
Subroutine MyDo(iBegin,iEnd)
Do i = iBegin , iEnd
...
End Do
End Subroutine MyDo

Answer 2

可以这样：
do =1，9
if(i.le.3) then
j=i
elseif (i.ge.5)
j=i
else
goto 111
endif
enddo
111 ****