Source Code
! Copyright 2019 Khang Hoang Nguyen
!
! Permission is hereby granted, free of charge, to any person obtaining
! a copy of this software and associated documentation files
! (the "Software"), to deal in the Software without restriction,
! including without limitation the rights to use, copy, modify, merge,
! publish, distribute, sublicense, and/or sell copies of the Software,
! and to permit persons to whom the Software is furnished to do so,
! subject to the following conditions
!
! The above copyright notice and this permission notice shall be
! included in all copies or substantial portions of the Software.
!
! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
! EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
! NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
! BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
! ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
! CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
! SOFTWARE.
!| author: Khang Hoang Nguyen
! license: <a href="https://github.com/kevinhng86/faiNumber-Fortran/blob/master/LICENSE">MIT</a>
! since: 1n.0.0.f
!
! <p>This module, <code>fnConsts128</code> contains constant values for
! modules that deal with 128-bit ints.
! </p>
module fnConsts128
implicit none
integer , parameter :: k_int128 = selected_int_kind(38) !! An integer value for int128's kind.
integer(k_int128), parameter :: czero128 = 48_k_int128 !! An int128 value of the character '0'.
integer(k_int128), parameter :: cneg128 = 45_k_int128 !! An int128 value of the character '-'.
integer(k_int128), parameter :: cpos128 = 43_k_int128 !! An int128 value of the character '+'.
integer(k_int128), parameter :: cspace128 = 32_k_int128 !! An int128 value of space.
end module fnConsts128