I was wondering what is the proper way to extract the source code line
info for a loop e.g. where it begins. I was using the getStartLoc()
method from the Loop class. But for the following loop nest:
do k=1,nz <----------- Should report this line
Dzold = Dz_jlow(i,j,k)
Dz_jlow(i,j,k) = axe(i) * Dz_jlow(i,j,k) + &
bxe(i) * ((Hy(i,j,k )-Hy(i-1,j,k))*dxinv + &
Ez(i,j,k) = aye(j) * Ez(i,j,k) + &
bye(j) * (czh(k)*Dz_jlow(i,j,k) - fzh(k)*Dzold) * epsinv
end do <------------------ reports this line
If I want to know where in the source code the "k-loop" begins, it
reports the "end do" statement of the inner loop (see above), which is
How to get the proper beginning line in the source?
Thanks a lot.