Symbol Description Uses
dptry40 6



File Line number Procedure Code
./pkg/fizhi/getpwhere.F 56 GETPWHERE
       _RL dptry(ntry40), dptry10(ntry10), dptry40(ntry40)
./pkg/fizhi/getpwhere.F 67 GETPWHERE
       data dptry40 /3.00, 6.00,10.00,14.00,17.00,25.00,
./pkg/fizhi/getpwhere.F 79 GETPWHERE
         dptry(L) = dptry40(L)
./pkg/gridalt/make_phys_grid.F 62 MAKE_PHYS_GRID
       _RL dptry(15),dptry10(ntry10),dptry40(ntry40)
./pkg/gridalt/make_phys_grid.F 67 MAKE_PHYS_GRID
       data dptry40/300.000,600.000, 800.000, 800.000,1250.000,
./pkg/gridalt/make_phys_grid.F 85 MAKE_PHYS_GRID
         dptry(L) = dptry40(L)