Symbol Description Uses
dynlev 15


File Line number Procedure Code
./pkg/fizhi/getpwhere.F 120 GETPWHERE 
       dynlev = 0
./pkg/fizhi/getpwhere.F 122 GETPWHERE 
         IF ( rC_dyn(L).GE.dptry_pedge(ntry+1) ) dynlev = L
./pkg/fizhi/getpwhere.F 124 GETPWHERE 
       DO L = ntry+1,MIN(Nrphys,ntry+Nr-dynlev)
./pkg/fizhi/getpwhere.F 125 GETPWHERE 
         pref(L) = rC_dyn(dynlev+L-ntry)
./pkg/fizhi/getpwhere.F 137 GETPWHERE 
       dynlev = 0
./pkg/fizhi/getpwhere.F 139 GETPWHERE 
        if(rF_pmid(L).ge.pref(ntry)) dynlev = L
./pkg/fizhi/getpwhere.F 142 GETPWHERE 
       IF ( rF_pmid(dynlev).ge.pref(ntry)-25. ) THEN
./pkg/fizhi/getpwhere.F 143 GETPWHERE 
         upperBnd = ntry+Nr-dynlev
./pkg/fizhi/getpwhere.F 145 GETPWHERE 
         upperBnd = ntry+Nr-dynlev-1
./pkg/fizhi/getpwhere.F 156 GETPWHERE 
       if(rF_pmid(dynlev).ge.pref(ntry)-25.) then
./pkg/fizhi/getpwhere.F 158 GETPWHERE 
         pref(L) = rF_pmid(dynlev+L-ntry)
./pkg/fizhi/getpwhere.F 161 GETPWHERE 
        pref(ntry) = rF_pmid(dynlev)
./pkg/fizhi/getpwhere.F 163 GETPWHERE 
         pref(L) = rF_pmid(dynlev+L-ntry+1)
./pkg/fizhi/getpwhere.F 181 GETPWHERE 
       WRITE(ioUnit,'(3(A,I5),A)') ' dynlev=', dynlev,
./pkg/fizhi/getpwhere.F 49 GETPWHERE 
       integer n,L,dynlev