Symbol Description Uses
dptry_pedge 8



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 122 GETPWHERE
         IF ( rC_dyn(L).GE.dptry_pedge(ntry+1) ) dynlev = L
./pkg/fizhi/getpwhere.F 57 GETPWHERE
       _RL dptry_pedge(ntry40+1)
./pkg/fizhi/getpwhere.F 88 GETPWHERE
       dptry_pedge(1) = rF(1)*1. _d -2
./pkg/fizhi/getpwhere.F 90 GETPWHERE
       dptry_pedge(1) = 1000.
./pkg/fizhi/getpwhere.F 93 GETPWHERE
        dptry_pedge(L+1) = dptry_pedge(L) - dptry(L)
./pkg/fizhi/getpwhere.F 96 GETPWHERE
        pref(L) = (dptry_pedge(L) + dptry_pedge(L+1))/2.