Symbol Description Uses
dptry40 6



File Line number Procedure Code
./pkg/gridalt/make_phys_grid.F 61 MAKE_PHYS_GRID
       _RL dptry(15),dptry10(12),dptry40(15) 
./pkg/gridalt/make_phys_grid.F 65 MAKE_PHYS_GRID
       data dptry40/300.000,600.000,1000.000,1400.000,1700.000,
./pkg/gridalt/make_phys_grid.F 80 MAKE_PHYS_GRID
         dptry(L) = dptry40(L)
./pkg/fizhi/getpwhere.F 46 GETPWHERE
       _RL dptry(ntry40), dptry10(ntry10), dptry40(ntry40)
./pkg/fizhi/getpwhere.F 53 GETPWHERE
       data dptry40 /3.00, 6.00,10.00,14.00,17.00,25.00,
./pkg/fizhi/getpwhere.F 65 GETPWHERE
         dptry(L) = dptry40(L)