anchor.diff:  !> @addtogroup PrivateProcedure Private Procedures
   !> List of private procedures.
   
  +!> @ingroup Library
  +!> @{
  +!> @defgroup IR_PrecisionLibrary IR_Precision
  +!> @}
  +
  +!> @ingroup Interface
  +!> @{
  +!> @defgroup IR_PrecisionInterface IR_Precision
  +!> @}
  +
   !> @ingroup GlobalVarPar
   !> @{
  -!> @defgroup IR_Precision IR_Precision
  +!> @defgroup IR_PrecisionGlobalVarPar IR_Precision
   !> @}
   
   !> @ingroup PublicProcedure
  
positive.code: !-----------------------------------------------------------------------------------------------------------------------------------
  
  !-----------------------------------------------------------------------------------------------------------------------------------
  !> @brief Function for converting number, real and integer, to string (number to string type casting);
  !> logical, intent(\b IN), optional:: <b>\em no_sign</b> flag for do not write sign;
  !> number,  intent(\b IN)::           <b>\em n</b> input number;
  !> string,  intent(\b OUT)::          <b>\em str</b> output string.
  !> @ingroup Interface,IR_PrecisionPublicProcedure
  interface str
    module procedure           &
  #ifdef r16p
  
negative.code:   return
    !---------------------------------------------------------------------------------------------------------------------------------
    endsubroutine check_endian
    !> @}
  
    !> @ingroup IR_PrecisionPrivateProcedure
    !> @{
  #ifdef r16p
    !> @brief Function for computing the number of bits of a real variable.
    elemental function bit_size_R16P(i) result(bits)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R16P), intent(IN):: i       !< Real variable of which number of bits must be computed.
    integer(I1P)::           bits    !< Number of bits of i.
    integer(I1P)::           mold(1) !< "Molding" dummy variable for bits counting.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    bits = size(transfer(i,mold))*8_I1P
    return
    !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bit_size_R16P
  #endif
  
    !> @brief Function for computing the number of bits of a real variable.
    elemental function bit_size_R8P(i) result(bits)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R8P), intent(IN):: i       !< Real variable of which number of bits must be computed.
    integer(I1P)::          bits    !< Number of bits of i.
    integer(I1P)::          mold(1) !< "Molding" dummy variable for bits counting.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    bits = size(transfer(i,mold))*8_I1P
    return
    !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bit_size_R8P
  
    !> @brief Function for computing the number of bits of a real variable.
    elemental function bit_size_R4P(i) result(bits)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R4P), intent(IN):: i       !< Real variable of which number of bits must be computed.
    integer(I1P)::          bits    !< Number of bits of i.
    integer(I1P)::          mold(1) !< "Molding" dummy variable for bits counting.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
    bits = size(transfer(i,mold))*8_I1P
    return
    !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bit_size_R4P
  
  #ifdef r16p
    !> @brief Function for converting real to string. This function achieves casting of real to string.
    elemental function str_R16P(no_sign,n) result(str)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    logical,    intent(IN), optional:: no_sign !< Flag for leaving out the sign.
    real(R16P), intent(IN)::           n       !< Real to be converted.
    character(DR16P)::                 str     !< Returned string containing input number.
    !---------------------------------------------------------------------------------------------------------------------------------
  
    !---------------------------------------------------------------------------------------------------------------------------------
  