Symbol Description Uses
dynlev 7



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 101 GETPWHERE
         pref(L) = rF_pmid(dynlev+L-ntry+1)
./pkg/fizhi/getpwhere.F 39 GETPWHERE
       integer n,L,dynlev
./pkg/fizhi/getpwhere.F 90 GETPWHERE
       dynlev = 0
./pkg/fizhi/getpwhere.F 92 GETPWHERE
        if(rF_pmid(L).ge.pref(ntry)) dynlev = L
./pkg/fizhi/getpwhere.F 94 GETPWHERE
       if(rF_pmid(dynlev).ge.pref(ntry)-25.) then
./pkg/fizhi/getpwhere.F 96 GETPWHERE
         pref(L) = rF_pmid(dynlev+L-ntry)
./pkg/fizhi/getpwhere.F 99 GETPWHERE
        pref(ntry) = rF_pmid(dynlev)