! Copyright (c) 1994 Unicomp, Inc.
!
! Developed at Unicomp, Inc.
!
! Permission to use, copy, modify, and distribute this
! software is freely granted, provided that this notice 
! is preserved.

! Fujitsu Fortran 90

module kind_parameters

   implicit none

   intrinsic kind
   private kind

!  For each intrinsic data type, the number of kinds and the kind numbers:

   integer, parameter :: NUMBER_OF_INTEGER_KINDS = 4
   integer, parameter :: INTEGER_KINDS (NUMBER_OF_INTEGER_KINDS) = &
                               (/ 1, 2, 4, 8 /)

   integer, parameter :: NUMBER_OF_LOGICAL_KINDS = 2
   integer, parameter :: LOGICAL_KINDS (NUMBER_OF_LOGICAL_KINDS) = &
                               (/ 1, 4 /)

   integer, parameter :: NUMBER_OF_REAL_KINDS = 3
   integer, parameter :: REAL_KINDS (NUMBER_OF_REAL_KINDS) = &
                               (/ 4, 8, 16 /)

   integer, parameter :: NUMBER_OF_CHARACTER_KINDS = 1
   integer, parameter :: CHARACTER_KINDS (NUMBER_OF_CHARACTER_KINDS) = &
                               (/ 1 /)

!  The default kinds

   integer, parameter :: DEFAULT_INTEGER_KIND = kind (0)
   integer, parameter :: DEFAULT_LOGICAL_KIND = kind (.false.)
   integer, parameter :: DEFAULT_REAL_KIND = kind (0.0)
   integer, parameter :: DP_REAL_KIND = kind (0.0d0)
   integer, parameter :: DEFAULT_CHARACTER_KIND = kind ("A")

end module kind_parameters