'n = n'的目的是什么？

Question

我正在阅读一些Fortran代码,并且以前的程序员经常抛出语句'n = n'.这样做的目的是什么？一些示例代码:

if (cmult.lt.5.) then
    kx = 0
    do k=ipd(ii),lpd(ii)
       kx = kx + 1
       p1(kx) = epp_rfc(ipp,k)
       epp_rfc(ipp,k) = cmult*epp_rfc(ipp,k) + x   
       zero(ix)
       p2(kx) = epp_rfc(ipp,k)
       n = n
    enddo

if (cmult.gt.0.) then
    n = n
endif

else
    nk = lpd(ii) - ipd(ii) + 1
    do k=ipd(ii),lpd(ii)
       kx = kx + 1
       p1(kx) = epp_rfc(ipp,k)
       epp_rfc(ipp,k) = pp(imem) + zero(ix)
       p2(kx) = epp_rfc(ipp,k)
       n = n
    enddo
endif

Answer 1

像这样的代码经常用于允许程序员在不支持条件断点的调试器中设置断点.

通过在该行上设置断点,只有在遇到时才会触发断点 cmult.gt.0.