fortran里什么情况下if后面可以不用加end if？

Question

中午好！
请教各位，fortran里什么情况下if后面可以不用加end if？
这两天在读ALBM模型的代码，见到了几次，但没总结出规律。

（例一）
do ii = 1, nline, 1
read(unit=fid, fmt=*, iostat=error) IWVLN1, vH0(ii)
if (error/=0) exit
vWVLN(ii) = DBLE(IWVLN1) / 10.0
end do
（例二）
if (allocated(target_lonid)) deallocate(target_lonid)
if (allocated(target_latid)) deallocate(target_latid)

谢谢！

Answer 1

你把代码直接写if后面就不用加end了，那么if就只作用于自身这一行
而如果自身这一行没有可执行的代码，你就需要写end告诉编译器if到底到哪一行截止