Symbol Description Uses
VGLA 4


File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 718 GETLGR 
      _RL VGLA(12,NTYPS), VGGR(12,NTYPS)
./pkg/fizhi/update_earth_exports.F 720 GETLGR 
      DATA VGLA  /
./pkg/fizhi/update_earth_exports.F 802 GETLGR 
      ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 803 GETLGR 
     &                                 VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC)