主题:请教这个代码什么意思?
if ( .false. ) then
write ( *, * ) '#'
write ( *, * ) '#READ_SAMPLE: Warning!'
write ( *, * ) '# The coordinate data is translated to have'
write ( *, * ) '# zero center of mass.'
do k = 1, dim
pos(k,1:n) = pos(k,1:n) - mass_center(k)
end do
else
write ( *, * ) '#'
write ( *, * ) '#READ_SAMPLE: Warning!'
write ( *, * ) '# The coordinate data is NOT translated to have'
write ( *, * ) '# zero center of mass.'
end if
上面是相关代码,请指教一下,为什么if条件判断后面直接用了.false.?这个代码段是什么意思啊?
write ( *, * ) '#'
write ( *, * ) '#READ_SAMPLE: Warning!'
write ( *, * ) '# The coordinate data is translated to have'
write ( *, * ) '# zero center of mass.'
do k = 1, dim
pos(k,1:n) = pos(k,1:n) - mass_center(k)
end do
else
write ( *, * ) '#'
write ( *, * ) '#READ_SAMPLE: Warning!'
write ( *, * ) '# The coordinate data is NOT translated to have'
write ( *, * ) '# zero center of mass.'
end if
上面是相关代码,请指教一下,为什么if条件判断后面直接用了.false.?这个代码段是什么意思啊?