fortran - 'n = n'的作用是什么？

我正在阅读一些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

最佳答案

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

通过在该行上设置断点，只有在cmult.gt.0.时才会命中该断点

关于fortran - 'n = n'的作用是什么？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6125634/