    MODULE CONSTANTS
!>--------------------------------------------------------------------------------------------------
!> MODULE CONSTANTS
!>
!> USE MODULES: F77KINDS
!>--------------------------------------------------------------------------------------------------
    USE F77KINDS
!-------------------------------------------------------
!
    REAL   (KIND=R4KIND), PARAMETER :: dtr      = 3.141592654/180.
    REAL   (KIND=R4KIND), PARAMETER :: H90      = 90.0
    REAL   (KIND=R4KIND), PARAMETER :: H360     = 360.0
    REAL   (KIND=R4KIND), PARAMETER :: D5       = 5.E-1
    REAL   (KIND=R4KIND), PARAMETER :: D00      = 0.0
    REAL   (KIND=R4KIND), PARAMETER :: H1       = 1.0
!
    END MODULE CONSTANTS

