slsqp_kinds.F90 Source File


Files dependent on this one

sourcefile~~slsqp_kinds.f90~~AfferentGraph sourcefile~slsqp_kinds.f90 slsqp_kinds.F90 sourcefile~bvls_module.f90 bvls_module.f90 sourcefile~bvls_module.f90->sourcefile~slsqp_kinds.f90 sourcefile~slsqp_support.f90 slsqp_support.F90 sourcefile~bvls_module.f90->sourcefile~slsqp_support.f90 sourcefile~slsqp_core.f90 slsqp_core.f90 sourcefile~slsqp_core.f90->sourcefile~slsqp_kinds.f90 sourcefile~slsqp_core.f90->sourcefile~bvls_module.f90 sourcefile~slsqp_core.f90->sourcefile~slsqp_support.f90 sourcefile~slsqp_module.f90 slsqp_module.f90 sourcefile~slsqp_module.f90->sourcefile~slsqp_kinds.f90 sourcefile~slsqp_module.f90->sourcefile~slsqp_core.f90 sourcefile~slsqp_module.f90->sourcefile~slsqp_support.f90 sourcefile~slsqp_support.f90->sourcefile~slsqp_kinds.f90

Source Code

!*****************************************************************************************
!> author: Jacob Williams
!  date: 12/22/2015
!  license: BSD
!
!  Numeric kind definitions.
!
!@note The default real kind (`wp`) can be
!      changed using optional preprocessor flags.
!      This library was built with real kind:
#ifdef REAL32
!      `real(kind=real32)` [4 bytes]
#elif REAL64
!      `real(kind=real64)` [8 bytes]
#elif REAL128
!      `real(kind=real128)` [16 bytes]
#else
!      `real(kind=real64)` [8 bytes]
#endif

    module slsqp_kinds

    use, intrinsic :: iso_fortran_env

    implicit none

    private

#ifdef REAL32
    integer, parameter, public :: slsqp_rk = real32   !! real kind used by this module [4 bytes]
#elif REAL64
    integer, parameter, public :: slsqp_rk = real64   !! real kind used by this module [8 bytes]
#elif REAL128
    integer, parameter, public :: slsqp_rk = real128  !! real kind used by this module [16 bytes]
#else
    integer, parameter, public :: slsqp_rk = real64   !! real kind used by this module [8 bytes]
#endif

    integer,parameter,public :: wp = slsqp_rk  !! copy of `slsqp_rk` with a shorter name

    end module slsqp_kinds
!*****************************************************************************************