anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction str_R4P
   
  +  !> @brief Function for converting integer to string. This function achieves casting of integer to string.
     elemental function str_I8P(no_sign,n) result(str)
     !---------------------------------------------------------------------------------------------------------------------------------
  -  ! The function str_I8P converts integer to string. This function achieves casting of integer to string.
  -  !---------------------------------------------------------------------------------------------------------------------------------
  -
  -  !---------------------------------------------------------------------------------------------------------------------------------
  -  implicit none
  -  logical,      intent(IN), optional:: no_sign ! Flag for leaving out the sign.
  -  integer(I8P), intent(IN)::           n       ! Integer to be converted.
  -  character(DI8P)::                    str     ! Returned string containing input number plus padding zeros.
  +  implicit none
  +  logical,      intent(IN), optional:: no_sign !< Flag for leaving out the sign.
  +  integer(I8P), intent(IN)::           n       !< Integer to be converted.
  +  character(DI8P)::                    str     !< Returned string containing input number plus padding zeros.
     !---------------------------------------------------------------------------------------------------------------------------------
   
     !---------------------------------------------------------------------------------------------------------------------------------
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction ctoi_I2P
  
    function ctoi_I1P(str,knd) result(n)
    !---------------------------------------------------------------------------------------------------------------------------------
    ! The function ctoi_I1P converts string to integer. This function achieves casting of string to integer.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    character(*), intent(IN):: str   ! String containing input number.
    integer(I1P), intent(IN):: knd   ! Number kind.
    integer(I1P)::             n     ! Number returned.
    integer(I4P)::             err   ! Error trapping flag: 0 no errors, >0 error occurs.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:   endfunction ctoi_I1P
    !> @}
  
    !> Subroutine for initilizing module's variables that are not initialized into the definition specification.
    !> @ingroup IR_PrecisionPublicProcedure
    subroutine IR_init()
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    ! checking the bit ordering architecture
    call check_endian
    ! computing the bits/bytes sizes of real variables
  #ifdef r16p
    BIR16P = bit_size(i=MaxR16P) ; BYR16P = BIR16P/8_I1P
  #endif
    BIR8P = bit_size(i=MaxR8P) ; BYR8P = BIR8P/8_I1P
    BIR4P = bit_size(i=MaxR4P) ; BYR4P = BIR4P/8_I1P
    BIR_P = bit_size(i=MaxR_P) ; BYR_P = BIR_P/8_I1P
    return
    !---------------------------------------------------------------------------------------------------------------------------------
    endsubroutine IR_init
  
    !>Subroutine for printing to the standard output the kind definition of reals and integers and the utility variables.
    !> @ingroup IR_PrecisionPublicProcedure
    subroutine IR_Print()
  