    MODULE VEGPARM
!>--------------------------------------------------------------------------------------------------
!> MODULE VEGPARM
!>
!> USE MODULES: F77KINDS
!>
!> DRIVER     : 
!>--------------------------------------------------------------------------------------------------
    USE F77KINDS
!
    IMPLICIT NONE
!
    SAVE
!
    INTEGER(KIND=I4KIND), PARAMETER :: MAX_VEGTYP   = 30
    REAL   (KIND=R4KIND), DIMENSION(MAX_VEGTYP)                                                 ::&
    & Z0_DATA   , CZIL_DATA
    END MODULE VEGPARM
