Symbol Description Uses
VGLA 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 729 GETLGR 
      DATA VGLA  /
./pkg/fizhi/update_earth_exports.F 808 GETLGR 
      ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 809 GETLGR 
     &                                 VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC)