Symbol Description Uses
VGGR 4


File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 727 GETLGR 
      _RL VGLA(12,NTYPS), VGGR(12,NTYPS)
./pkg/fizhi/update_earth_exports.F 752 GETLGR 
      DATA VGGR
./pkg/fizhi/update_earth_exports.F 810 GETLGR 
      AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 811 GETLGR 
     &                                 VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC)