Symbol Description Uses
rF_edge 6



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 129 GETPWHERE
       rF_edge(1) = 1000.
./pkg/fizhi/getpwhere.F 131 GETPWHERE
        rF_edge(L) = rF_edge(L-1) - (drF(L-1)/100.)
./pkg/fizhi/getpwhere.F 134 GETPWHERE
        rF_pmid(L) = (rF_edge(L) + rF_edge(L+1))/2.
./pkg/fizhi/getpwhere.F 61 GETPWHERE
       _RL rF_pmid(Nr),rF_edge(Nr+1)