anchor.diff:  endinterface
   !-----------------------------------------------------------------------------------------------------------------------------------
   contains
  +  !> @ingroup IR_PrecisionPublicProcedure
  +  !> @{
  +  !>Function for checking if the type of the bit ordering of the running architecture is little endian.
  +  pure function is_little_endian() result(is_little)
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  implicit none
  +  logical::      is_little !< Logical output: true is the running architecture uses little endian ordering, false otherwise.
  +  integer(I1P):: int1(1:4) !< One byte integer array for casting 4 bytes integer.
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  int1 = transfer(1_I4P,int1)
  +  is_little = (int1(1)==1_I1P)
  +  return
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  endfunction is_little_endian
  +
     !>Subroutine for checking the type of bit ordering (big or little endian) of the running architecture; the result is
     !>stored into the "endian" global variable.
     !>@return endian
  -  !> @ingroup IR_PrecisionPublicProcedure
     subroutine check_endian()
     !---------------------------------------------------------------------------------------------------------------------------------
     implicit none
  -  integer(I1P):: int1(1:4) !< One byte integer array for casting 4 bytes integer.
  -  !---------------------------------------------------------------------------------------------------------------------------------
  -
  -  !---------------------------------------------------------------------------------------------------------------------------------
  -  int1 = transfer(1_I4P,int1)
  -  if (int1(1)==1_I1P) then
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  if (is_little_endian()) then
       endian = endianL
     else
       endian = endianB
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction str_I2P
  
    elemental function str_I1P(no_sign,n) result(str)
    !---------------------------------------------------------------------------------------------------------------------------------
    ! The function str_I1P 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(I1P), intent(IN)::           n       ! Integer to be converted.
    character(DI1P)::                    str     ! Returned string containing input number plus padding zeros.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction ctoi_I8P
  
    !> @brief Function for converting string to integer. This function achieves casting of string to integer.
    function ctoi_I4P(str,knd) result(n)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    character(*), intent(IN):: str !< String containing input number.
    integer(I4P), intent(IN):: knd !< Number kind.
    integer(I4P)::             n   !< Number returned.
    integer(I4P)::             err !< Error trapping flag: 0 no errors, >0 error occurs.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  