anchor.diff:    !---------------------------------------------------------------------------------------------------------------------------------
     endfunction str_I2P
   
  -  !> @brief Procedure for converting integer to string. This function achieves casting of integer to string.
     elemental function str_I1P(no_sign,n) result(str)
  +  !---------------------------------------------------------------------------------------------------------------------------------
  +  !< Procedure for converting 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.
  
positive.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bstr_R8P
  
    !> @brief Procedure for converting real to string of bits. This function achieves casting of real to bit-string.
    !> @note It is assumed that R4P is represented by means of 32 bits, but this is not ensured in all architectures.
    elemental function bstr_R4P(n) result(bstr)
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    real(R4P), intent(IN):: n    !< Real to be converted.
  
negative.code:   !---------------------------------------------------------------------------------------------------------------------------------
    endfunction bctoi_I4P
  
    elemental function bctoi_I2P(bstr,knd) result(n)
    !---------------------------------------------------------------------------------------------------------------------------------
    !< Procedure for converting bit-string to integer. This function achieves casting of bit-string to integer.
    !---------------------------------------------------------------------------------------------------------------------------------
    implicit none
    character(*), intent(IN):: bstr !< String containing input number.
  