anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction strf_I2P
   
  -  !> @brief Procedure for converting integer to string. This function achieves casting of integer to string.
     elemental function strf_I1P(fm,n) result(str)
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  !< Procedure for converting integer to string. This function achieves casting of integer to string.
     !---------------------------------------------------------------------------------------------------------------------------------
     implicit none
     character(*), intent(IN):: fm  !< Format different from the standard for the kind.
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction byte_size_R8P
  
    !> @brief Procedure for computing the number of bytes of a real variable.
    elemental function byte_size_R4P(r) result(bytes)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R4P), intent(IN):: r     !< Real variable whose number of bytes must be computed.
  
negative.code:                                   nearest(1._R4P,-1._R4P)   !< Smallest representable difference of kind=R4P variable.
  #endif
  real(R_P),  parameter:: Zero    = ZeroR8                    !< Smallest representable difference of kind=R_P variable.
  !< @}
  !-----------------------------------------------------------------------------------------------------------------------------------
  
  !-----------------------------------------------------------------------------------------------------------------------------------
  interface bit_size
    !< Overloading of the intrinsic *bit_size* function for computing the number of bits of (also) real and character variables.
    module procedure                &
  #ifdef r16p
                     bit_size_R16p, &
  