! @(#)kinds.inc 1.2 (Sun Microsystems, Inc.) 98/10/08
!
!    Copyright © 1998 Sun Microsystems, Inc.
!    All rights reserved.
!

!     ADDRESS_KIND is the kind number of an integer subtype that is large
!     enough to hold an address.
      INTEGER ADDRESS_KIND
      PARAMETER (ADDRESS_KIND=4)

!     SIZE_KIND is the kind number of an integer subtype that can hold the
!     size of an object.
      INTEGER SIZE_KIND
      PARAMETER (SIZE_KIND=4)