您所在位置：主题：请教这个代码什么意思？
songchi74
[专家分：0] 发布于 2012-07-27 11:28:00
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.？这个代码段是什么意思啊？