Symbol Description Uses
rF_edge 6



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 48 GETPWHERE
       _RL rF_pmid(Nr),rF_edge(Nr+1)
./pkg/fizhi/getpwhere.F 82 GETPWHERE
       rF_edge(1) = 1000.
./pkg/fizhi/getpwhere.F 84 GETPWHERE
        rF_edge(L) = rF_edge(L-1) - (drF(L-1)/100.)
./pkg/fizhi/getpwhere.F 87 GETPWHERE
        rF_pmid(L) = (rF_edge(L) + rF_edge(L+1))/2.