integer :: klow,khigh
      real :: zlow,zhi,dzhil,cr
      COMMON/GRVWS/KLOW,KHIGH,
     1       ZLOW(ZIMXP,ZJMX),ZHI(ZIMXP,ZJMX),DZHIL(ZIMXP,ZJMX)
     2       ,CR(ZIMXP,ZJMX)