Symbol Description Uses
dptry_pedge 6



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 47 GETPWHERE
       _RL dptry_pedge(ntry40+1)
./pkg/fizhi/getpwhere.F 73 GETPWHERE
       dptry_pedge(1) = 1000.
./pkg/fizhi/getpwhere.F 75 GETPWHERE
        dptry_pedge(L) = dptry_pedge(L-1) - dptry(L-1)
./pkg/fizhi/getpwhere.F 78 GETPWHERE
        pref(L) = (dptry_pedge(L) + dptry_pedge(L+1))/2.